溜溜问答 > 日常办公 > Excel > 多列Excel如何自动分行分列打印?
kiss mayue
kiss mayue
邀请你来回答
446人阅读 2022-05-06

多列Excel如何自动分行分列打印?

我的一个工作表有a、b 2列608行,我想输出,但要很多张纸,好是浪费……我想让它自动的在每张纸的a、b列上打印出30行后,自动转到c、d列继续输出,然后再转到另一张上的a、b 列输出,再c、d列输出,然后再到另一张上……只有一列的在网上有介绍,但多列的没有,请高手指教……
我要回答
4个回答

做个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

查看全部
2022-05-06
(1) 回复 采纳

文件->页面设置->工作表->打印顺序中勾先行后列

查看全部
2022-05-06
回复 采纳

这个需要公式 还要确定你一张纸能打几列(以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我,修改公式

查看全部
2022-05-06
(10) 回复 采纳

1、把要分列的数据放到Excel表中,然后选定要分列的数据。
2、在工具栏中点击“数据”标签。
3、选择“数据”标签下的“分列”,会弹出一个对话框。
4、按照默认,选泽“分隔符号”(分隔符号和固定宽度是分列的两种形式,如果数据中有特殊的符号,一般用分隔符号的形式进行分列,也就是本文讲的分列方法;如果要分列的数据整列宽度是统一的,那么也可以用固定宽度进行分列)。
5、点击对话框中的“下一步”,会看到如下图界面,可以直接勾选前面4中分隔符,也可以在“其他”框中输入,本例是以中文逗号“,”为分隔符。
6、输入逗号之后,我们会在下面的数据预览框中看到分列之后的效果,然后点击“完成”按钮。

查看全部
2022-05-06
(3) 回复 采纳

相关问题

Excel怎样自动分列打印?
共4条回答 >
原婷子: 注意,先做好备份在工作表名称上右键,查看代码,将下面的代码复制入其中,按代码里面的说明,改变两个变量的值,按F5运行一次,返回sheet表就好了------------Sub分行()Dimr&:r=20'每列的行数DimcAsRange:Setc=Range("A1:A4000")'原数据区域'使用前改变上面2个变量Dimi&,n%Ifc.Columns.Count>1ThenMsgBox"第二个参数有误!"Ifc.Rows.CountModrThenn=Int(c.Ro....
(5) 回复
Excel如何分列分行?
共2条回答 >
猫: 选择这一列或某一单元格,如选中a1:a2,点“数据”菜单下的“分列”,出现文本分列向导第1步,选择分隔符号,点下一步分隔符号勾选逗号,下一步,列数据格式选常规,完成。如要按行显示,则复制a1:g2,在空白处右键,选择性粘贴,勾选转置。
回复
Excel一列太多 打印太空 怎么自动分列?
共2条回答 >
1945。: 分栏是Word干的事情,交给它好了。500多也不多,你想一页显示多少,手动剪切、粘贴好了,虽然可以写公式,但没有必要浪费这个时间。
回复
Excel复制的文字怎么自动分列或分行?
共2条回答 >
成芳: 如下图,A3中的公式=MID($A$1,ROW(A1)*2-1,2)下拉填充;C1中的公式=MID($A$1,COLUMN(A1)*2-1,2)右拖填充。
(2) 回复
多个手机号Excel如何自动分行分列打印?
共1条回答 >
...: 这个需要公式还要确定你一张纸能打几列(以10列为例)假设该工作表在SHEET1SHEET2A1输入公式=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我,修改公式
(1) 回复
发表成功!
感谢您的分享!
好的
官方微信群

(微信添加“妙妙”或“笑笑”,邀您进群)