Excel VBA 매크로를 사용하여 데이터 행을 별도의 행과 시차형 열에 복사하여 붙여넣습니다.

Question

다음 단계를 자동화하려고 합니다. Excel 데이터의 단일 행에서 각 셀 값을 그림과 같이 열별로 엇갈리게 복사하여 별도의 행에 붙여넣고 싶습니다. 이 단계를 수행할 수 있는 VBA 매크로 코드가 있습니까? 미리 감사드립니다!

의도한 출력의 스크린샷

Answer 1

Offset이라는 VBA 함수가 있습니다. 행 1의 셀을 반복하면서 변수를 증가시키고 이를 사용하여 각 값의 오프셋을 제어합니다.

Option Explicit

Sub staggerRows()

    Dim i As Long, rng As Range

    With Worksheets("sheet1")

        For Each rng In .Range(.Cells(1, "B"), .Cells(1, .Columns.Count).End(xlToLeft))

            i = i + 1
            rng.Offset(i, 0) = rng.Value2

        Next rng

    End With

End Sub