Excel에서 여러 열을 하나의 열로 빠르게 쌓는 방법은 무엇입니까?

Excel에서 텍스트를 열로 분할하는 기능은 구분 기호를 기준으로 셀을 여러 열로 분할할 수 있지만, 아래 스크린샷과 같이 여러 열을 하나의 열로 쌓을 수 있는 방법이 있을까요? 이 문서에서는 이 작업을 신속하게 해결하기 위한 몇 가지 팁을 소개합니다.

수식을 사용하여 여러 열을 하나로 쌓기

VBA를 사용하여 여러 열을 하나로 쌓기

범위 변환을 사용하여 여러 열을 하나로 쌓기

수식을 사용하여 여러 열을 하나로 쌓기

1. 쌓고자 하는 범위를 선택하고 이름 상자 로 이동하여 해당 범위에 이름을 지정한 후 Enter 키를 누릅니다. 스크린샷 보기:

2. 그런 다음 결과를 배치할 빈 셀을 선택하고 다음 수식을 입력합니다. =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), 그리고 Enter키를 눌러 채우기 핸들을 아래로 드래그하다 오류가 표시될 때까지 진행합니다. 스크린샷 보기:

VBA를 사용하여 여러 열을 하나로 쌓기

여기에 도움이 될 수 있는 VBA 코드가 있습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 표시합니다.

2. 삽입 > 모듈을 클릭하고 아래 코드를 모듈에 붙여넣습니다.

VBA: 열을 하나로 쌓기

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 실행하려면 F5 키를 누릅니다. 소스 데이터를 선택하기 위해 대화상자가 나타나고 확인을 클릭하여 결과를 배치할 셀을 선택합니다. 스크린샷 보기:

4. 클릭 확인합니다. 이제 열이 하나의 열로 쌓였습니다.

범위 변환을 사용하여 여러 열을 하나로 쌓기

Kutools for Excel의 범위 변환 유틸리티를 적용하면 이 문제를 빠르게 해결할 수 있습니다.

설치 후에는 다음과 같이 하십시오:

1. 사용 중인 열 데이터를 선택하고 Kutools > 범위 > 범위 변환을 클릭합니다. 스크린샷 보기:

2. 범위 변환 대화상자에서 범위를 단일 열로 변환 옵션을 선택하고 확인을 클릭한 다음 결과를 배치할 셀을 선택합니다. 스크린샷 보기:

3. 클릭 확인합니다. 이제 열이 하나의 단일 열로 쌓였습니다.