여러 열을 열에 결합해야하는 요구 사항이 있고 단서가없는 경우이 전체 기사가 적합합니다. 이 기사에서는 vba 코드를 사용하여 여러 열을 하나의 열로 결합하는 방법을 배웁니다.

아래 스냅 샷에서 :-

image 1

다음은 require 출력의 스냅 샷입니다 .-

image 2

아래 단계를 따라야합니다 :

개발자 탭을 클릭하십시오. 코드 그룹에서 Visual Basic을 선택하십시오

image 3

표준 모듈에 다음 코드를 입력하세요

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = “Sheet1” ‘여기에서 시트 이름 변경

Const shName2 As String = “Sheet2”

Dim arr, arrNames

워크 시트 포함 (shName1)

arrNames = .Range ( “F1”, .Cells (1, Columns.Count) .End (xlToLeft))

For i = 2 To .Cells (Rows.Count, 1) .End (xlUp) .Row

arr = .Cells (i, 1) .Resize (, 4)

워크 시트 사용 (shName2)

.Cells (Rows.Count, 1) .End (xlUp)

.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr

끝 부분

끝 부분

다음

끝 부분

End Sub

Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)

image 4

매크로를 실행할 때; 매크로는 여러 열의 데이터를 단일 열로 전송합니다.

이러한 방식으로 여러 열 데이터를 단일 열에 결합 할 수 있습니다.

image 5