溜溜问答 > 日常办公 > Excel > Excel怎样自动分列打印?
kiss mayue
kiss mayue
邀请你来回答
157人阅读 2022-05-06

Excel怎样自动分列打印?

一个表格,是用别的软件导出来的,只有一列我现在需要打印它,这样打印太费纸张了,我想这样打印:每页打印40行5列,要求每一页的内容是连续的(就是打印后下一列是接上一列内容的)
我要回答
4个回答

好像没有好办法吧!
我先说个折中的办法 ,在B1中输入
=A41,C1中输入=A81,这样把数据引过来,再打印!
希望其它高手的更好的办法!

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

我也遇到这个问题。我是复制到word里面,使用word的分栏功能,分成你想要的列数,然后打印。

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

我的博客上有个软件,可以实现你的要求,不过你的电脑要安装OFFICE的ACCESS,将EXCEL导入到ACCESS,再用那个软件载入打印。有什么问题发百度信息给我。

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

注意,先做好备份
在工作表名称上 右键,查看代码,将下面的代码复制入其中,按代码里面的说明,改变两个变量的值,按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
(5) 回复 采纳

相关问题

多列Excel如何自动分行分列打印?
共4条回答 >
鴉丨: 这个需要公式还要确定你一张纸能打几列(以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我,修改公式
(10) 回复
Excel一列太多 打印太空 怎么自动分列?
共2条回答 >
1945。: 分栏是Word干的事情,交给它好了。500多也不多,你想一页显示多少,手动剪切、粘贴好了,虽然可以写公式,但没有必要浪费这个时间。
回复
Excel怎么自动分列?
共1条回答 >
我想婧婧了🐰: Excel自动分列:选择单元格列区域,依次单击“数据”选项卡-“分列”-按分隔符,单击完成。
回复
怎样把Excel分列打印?
共1条回答 >
瑶怪 1 号: 打开编辑好的Excel文档,选中想要打印的区域,点击页面布局选项卡,选择打印区域选项,点击设置打印区域子选项,这时候就成功设置了打印区域。在设置好打印区域后,需要对选中的打印区域的输出效果稍作调整,以符合的输出需求。首先按下CTRL+P,点击预览选项;在弹出的先窗口中点击页面设置,可以看到:1-页面,2-页边距,3-页眉/页脚,4-工作表四个选项卡,它们分别依次负责调整页面布局,调整页边距,添加页眉和页脚,以及工作表打印输出的一些高级选项(工作表选项新手很少使用),再熟悉了整个简单的页面设置后读....
(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) 回复
发表成功!
感谢您的分享!
好的
官方微信群

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