贴主, 请下载参考链接处的下载文件,提取码: cl1jca9c
打开此文件时, 请选择 “启用宏”, 启动程序 请用CTRL+R键。
程序会把A列数据,按8行一列,分到B列开始的多列上。 请注意的一点,多列别超过你EXCEL的最大列数。
Alft + F11, 可以查看到程序代码, 如下:
Sub dd()
Dim i&, c&, n&, ar()
n = 8
c = Sheet1.[A65536].End(xlUp).Row
ReDim ar(c \ n, n)
For i = 1 To c
ar((i - 1) \ n, (i - 1) Mod n) = Sheet1.Cells(i, 1)
Next
Sheet1.[B1].Resize(UBound(ar, 2) + 1, UBound(ar, 1) + 1) = WorksheetFunction.Transpose(ar)
End Sub
参考资料:http://u.163.com/l8WqtSv