EXCEL中如何转置多行多列？

Question

如何把左边的数据转置成右边的格式

Answer 1

每5行转置到一行
试下这个 VBA
Sub aa()
Dim I
For I = 7 To Range("a65536").End(xlUp).Row Step 6
Range(Cells(I, "a"), Cells(I + 5, "a")).Select
Selection.Copy
Cells(Range("F65536").End(xlUp).Row + 1, "f").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Next
End Sub追问

因为数据量大，一个一个转置太费事了。有什么方法吗？

追答

已回答

追问

是每6行转置到一行

追答

是的6行转置，步长为 6

是，步长为 6