excel - Excel の 6 列ごとに新しい行

Question

私は行のデータを持っています。A1 を XFD1 にしましょう。データを 6 列ごとに分割します。つまり、A1-F1 はそのままで、G1-L1 から A2-F2 に移行する必要があります。

例：

A B C D E F A B C D E F A B C D E F A B C D E F A B C D E F A B C D E F 

私はこれらがこのように必要です:

A B C D E F 
A B C D E F
A B C D E F
A B C D E F

Answer 1

この VBA ルーチンは機能します。

Sub SplitData()
    Dim data As Range, arr() As Variant
    Dim row As Integer, i As Integer, j As Integer

    Set data = Range(Range("A1"), Range("A1").End(xlToRight))
    arr = data
    data.ClearContents

    row = 1

    On Error Resume Next
    For i = 1 To data.Columns.Count Step 6
        For j = 0 To 5
            Cells(row, j + 1) = arr(1, i + j)
        Next j
        row = row + 1
    Next i
End Sub