Excel에서 열을 행으로 전치하고 새 행을 삽입하여 데이터를 채우려면 어떻게 해야 하나요?

이 문서에서는 아래 스크린샷에 표시된 대로 열을 행으로 전치하고 새 행을 삽입하여 데이터를 채우는 VBA 코드를 소개합니다. 이 작업에 관심이 있다면 자세한 내용은 아래를 참조하세요.

VBA를 사용하여 전치 및 행 삽입

VBA를 사용하여 전치 및 행 삽입

범위를 전치하고 동일한 데이터를 채우기 위해 행을 삽입하는 직접적인 방법은 없지만, 여기에서는 이 작업을 빠르게 해결할 수 있는 VBA 코드를 소개합니다.

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

2. 삽입 > 모듈을 클릭하고 아래의 VBA 코드를 모듈 창에 붙여넣습니다. 스크린샷을 참조하세요:

VBA: 전치 및 행 삽입.

 Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
    Dim xRg As Range
    Dim i As Long, j As Long, k As Long
    Dim x As Long, y As Long
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    Application.ScreenUpdating = False
    x = xRg(1, 1).Column + 2
    y = xRg(1, xRg.Columns.Count).Column
    For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
        If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
            k = Cells(i, x - 2).End(xlToRight).Column
            If k > y Then k = y
            For j = k To x + 1 Step -1
                Cells(i + 1, 1).EntireRow.Insert
                With Cells(i + 1, x - 2)
                    .Value = .Offset(-1, 0)
                    .Offset(0, 1) = .Offset(-1, 1)
                    .Offset(0, 2) = Cells(i, j)
                End With
                Cells(i, j).ClearContents
            Next j
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

3. 실행하려면 F5 키를 누릅니다. 그런 다음 나타나는 대화 상자에서 전치하고 행을 삽입하려는 데이터 범위를 선택합니다. 스크린샷을 참조하세요:

4. 클릭 확인선택한 범위가 아래 스크린샷에 표시된 대로 변환되었습니다.

참고: 코드를 실행하기 전에 원본 데이터의 복사본을 저장하는 것이 좋습니다.

팁. 교차 테이블을 리스트 테이블로 또는 그 반대로 빠르게 전치하려면 Kutools for Excel의 테이블 차원 변환 기능을 사용해 보세요. 다음 스크린샷에 표시된 것처럼 30 일 동안 제한 없이 모든 기능을 사용할 수 있습니다. 지금 다운로드하여 무료로 사용해 보세요.