每隔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