Excel에서 중복 행을 열로 전치하는 방법은 무엇입니까?

Excel에 데이터 범위가 있다고 가정해 봅시다. 이제 다음과 같은 스크린샷에 표시된 대로 중복 행을 여러 열로 전치하려고 합니다. 이 작업을 해결하기 위한 좋은 아이디어가 있습니까?

VBA 코드를 사용하여 중복 행을 열로 전치하기

VBA 코드를 사용하여 중복 행을 열로 전치하기

안타깝게도 Excel에서 이를 처리할 직접적인 방법은 없지만, VBA 코드를 작성하여 문제를 해결할 수 있습니다. 아래 단계를 따라 해 보세요:

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

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

VBA 코드: 중복 행을 여러 열로 전치하기

Sub ConvertTable()
'Updateby Extendoffice
Dim xArr1 As Variant
Dim xArr2 As Variant
Dim InputRng As Range, OutRng As Range
Dim xRows As Long
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xArr1 = InputRng.Value
t = UBound(xArr1, 2): xRows = 1
With CreateObject("Scripting.Dictionary")
    .CompareMode = 1
    For i = 2 To UBound(xArr1, 1)
        If Not .exists(xArr1(i, 1)) Then
            xRows = xRows + 1: .Item(xArr1(i, 1)) = VBA.Array(xRows, t)
            For ii = 1 To t
                xArr1(xRows, ii) = xArr1(i, ii)
            Next
        Else
            xArr2 = .Item(xArr1(i, 1))
            If UBound(xArr1, 2) < xArr2(1) + t - 1 Then
                ReDim Preserve xArr1(1 To UBound(xArr1, 1), 1 To xArr2(1) + t - 1)
                For ii = 2 To t
                    xArr1(1, xArr2(1) + ii - 1) = xArr1(1, ii)
                Next
            End If
            For ii = 2 To t
                xArr1(xArr2(0), xArr2(1) + ii - 1) = xArr1(i, ii)
            Next
            xArr2(1) = xArr2(1) + t - 1: .Item(xArr1(i, 1)) = xArr2
        End If
    Next
End With
OutRng.Resize(xRows, UBound(xArr1, 2)).Value = xArr1
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하고, 나타난 대화 상자에서 중복 행을 여러 열로 변환하려는 데이터 범위를 선택하세요. 스크린샷 참조:

4. 확인을 클릭하고 결과를 배치할 셀을 다음 대화 상자에서 선택하세요. 스크린샷 참조:

5. 그런 다음 확인 버튼을 클릭하면 선택한 데이터가 다음과 같이 변환됩니다:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 기사:

열과 행을 하나의 행으로 전치/변환하는 방법은 무엇입니까?

열과 행을 하나의 열로 전치/변환하는 방법은 무엇입니까?

Excel에서 하나의 열을 여러 열로 전치/변환하는 방법은 무엇입니까?