在Excel中如何将A列5000个数字，转换每60个数字一列到B列 C列 D列。。。。。。

显示全部楼层 · 2011-12-9 08:37:05

完整答案：请测试Sub test()
Dim x, y(1 To 840, 1 To 6) '840是ceiling(5000/6,60)的计算结果
x = Range("a1:a5000").Value
Do
For c = 1 To 6
For r = p + 1 To p + 60
i = i + 1
If i > 5000 Then Exit Do
y(r, c) = x(i, 1)
Next
Next
p...

千问 · 2011-12-9 08:37:05

Sub test()
Dim x, y(1 To 840, 1 To 6) '840是ceiling(5000/6,60)的计算结果
x = Range("a1:a5000").Value
Do
For c = 1 To 6
For r = p + 1 To p + 60
...

千问 · 2011-12-9 08:37:05

在b1输入=OFFSET($A$1,60*(COLUMN()-2)+ROW()-1,0)右拉，下拉...