每隔6列后新一行胜出

我有连续的数据。 让我们A1到XFD1，我想每隔6列分割我的数据。 这意味着A1-F1，从G1-L1移到A2-F2，依此类推。

例：

ABCDEFABCDEFABCDEFABC DEFABCDEFABCDEF 

我需要这样的：

 ABCDEFABCDEF ABCDEF ABCDEF 

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