每隔6列excel後新增一行

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