1 열의 값을 기준으로 데이터를 그룹화 한 다음 매크로를 사용하여 Excel에서 행 형식으로 인쇄

이것부터 시작 :

이 매크로 실행 :

Sub DataReorganizer()
    Dim N As Long, K As Long, L As Long, i As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    K = 1
    L = 4
    Cells(K, L).Value = Cells(1, 1).Value
    Cells(K, L + 1).Value = Cells(1, 2).Value
    L = L + 2

    For i = 2 To N
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Cells(K, L) = Cells(i, 2)
            L = L + 1
        Else
            L = 4
            K = K + 1
            Cells(K, L) = Cells(i, 1)
            Cells(K, L + 1) = Cells(i, 2)
            L = L + 2
        End If
    Next i
End Sub

다음을 생성합니다.