多列excel如何自动分行分列打印?
发布网友
共4个回答
热心网友
1、把要分列的数据放到Excel表中，然后选定要分列的数据。
2、在工具栏中点击“数据”标签。
3、选择“数据”标签下的“分列”，会弹出一个对话框。
4、按照默认，选泽“分隔符号”（分隔符号和固定宽度是分列的两种形式，如果数据中有特殊的符号，一般用分隔符号的形式进行分列，也就是本文讲的分列方法；如果要分列的数据整列宽度是统一的，那么也可以用固定宽度进行分列）。
5、点击对话框中的“下一步”，会看到如下图界面，可以直接勾选前面4中分隔符，也可以在“其他”框中输入，本例是以中文逗号“，”为分隔符。
6、输入逗号之后，我们会在下面的数据预览框中看到分列之后的效果，然后点击“完成”按钮。
热心网友
这个需要公式 还要确定你一张纸能打几列（以10列为例）
假设该工作表在SHEET1
SHEET2A1输入公式
=INDIRECT("sheet1!"&CHAR(66-MOD(COLUMN(A1),2))&MOD(ROW(A1)-1,30)+1+150*INT((ROW(A1)-1)/30)+30*INT((COLUMN(A1)-1)/2))
向右填充10列
向下填充，
如果列数多，HI我，修改公式追问你好，假如我的表格是6列608行，我想让每一页打印12列，请给个公式……
谢谢
热心网友
文件->页面设置->工作表->打印顺序中勾先行后列
热心网友
做个VBA。注意，先做好备份
在工作表名称上 右键，查看代码，将下面的代码复制入其中，按代码里面的说明，改变两个变量的值，按F5运行一次，返回sheet表就好了
------------
Sub 分行()
Dim r&: r = 20 '每列的行数
Dim c As Range: Set c = Range("A1:A4000") '原数据区域
'使用前改变上面2个变量
Dim i&, n%
If c.Columns.Count > 1 Then MsgBox "第二个参数有误！"
If c.Rows.Count Mod r Then n = Int(c.Rows.Count / r) + 1 Else n = Int(c.Rows.Count / r)
If n > 255 Then
If MsgBox("列数将超过工作表*！仍要进行？", vbOKCancel) = vbCancel Then Exit Sub
End If
For i = 2 To n
c.Cells((i - 1) * r + 1, 1).Resize(r, 1).Copy Cells(1, i).Resize(r, 1)
Next
MsgBox "ok!"
End Sub追问这个是单列的，我的是2列，能解决吗？多列呢？
