在Excel中,将单独一列但多行的数据,按每固定的N行转换成多行N列的表格?

如图,到查看 预约/预购结束,换一行;就是每8个单元格换新的一行。

用函数方法来解决!
B2=OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*8,0)
向下拖动8行,向右拖动3列
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-07-20
贴主, 请下载参考链接处的下载文件,提取码: 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

第2个回答  2011-07-20
写个简单的宏处理一下就可以。
相似回答