请问你要将A列分成几列，我写一个VBA给你。
Sub 宏1()
Dim lastrow As Long, i As Long, k As Long
lastrow = Cells(Rows.Count, 1).End(3).Row
i = 1
k = 1
Do While i <= lastrow
Cells(k, 2) = Cells(i, 1)
Cells(k, 3) = Cells(i + 1, 1)
Cells(k, 4) = Cells(i + 2, 1) '分n列则做n次
i = i + 3 '下移n行
k = k + 1
Loop
End Sub
