使用 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