转换行组从列格式列组行格式

Question

我试图写在VBA宏来转列行这种风格：

是：

A 
B 
C 

D 
E 
F 

应成为：

A D 
B E 
C F 

有没有人有任何想法？

Answer 1

这应该为你工作：

Sub test() 
Dim lastRow&, groupSize&, i&, k& 
Dim rng As Range 

lastRow = Cells(Rows.Count, 1).End(xlUp).Row 

groupSize = 13 
k = 2 ' start the pasting in the second column 

For i = 14 To lastRow 
    Set rng = Range(Cells(i, 1), Cells(i + groupSize - 1, 1)) 
    rng.Cut Range(Cells(1, k), Cells(13, k)) 
    i = i + 12 
    k = k + 1 
Next i 

End Sub 

Answer 2

这是BruceWayne的正确答案的修改：

Sub test() 
Dim lastRow&, groupSize&, i&, k& 
Dim rng As Range 

lastRow = Cells(Rows.Count, 1).End(xlUp).Row 

groupSize = 13 
k = 1 ' start the pasting in the first column 
j = 1 

For i = 1 To lastRow 
    Set rng = Range(Cells(i, 1), Cells(i + groupSize - 1, 1)) 
    rng.Cut Range(Cells(j, k), Cells(j + 12, k)) 
    k = k + 1 
    i = i + 12 
    If k = 14 Then 
    k = 1 
    j = j + 13 
    End If 
Next i 

End Sub 

唯一不同的是，现在的数据都在一个排不写但在一组行中。所有学分给布鲁斯韦恩。