excel表格中如何将一列合并成多列

来源：百度知道 编辑：UC知道 时间：2024/05/19 01:46:54
excel表格中有2000多行，如何把它们分成多列
例如：分成40行为1列，转置只能把列改为行

编宏:
Sub abc()
n = Range("A1").End(xlDown).Row
[h1] = n
For i = 2 To Int(n / 40) + 1
For j = 1 To 40
Cells(j, i) = Cells((i - 1) * 40 + j, "A")
Next j
Next i
End Sub

楼上说的很正确，但主要是说一下过程啊给楼主。

转置