分页单独打印Excel表中的数据
发布时间:2023-11-25 00:53:43
在实际工作中,我们经常会遇到想将工作表中的数据(如下所示的“数据”工作表)导入到固定的表格(如下所示)中并打印。
上中的数据可能是我们陆续输入到工作表中的,可能是从多个工作表合并的,也可能是从其他地方例如网站上导入的。此时,想要以所示的格式打印每条数据信息。如果一行行数据分别录入,则费时费力,特别是遇到成百上千条数据时。
VBA最擅长解决这样的问题。
首先,在工作簿中创建一个名为“表格模板”的工作表,按打印的表格格式化,如下所示。
在VBE中输入下面的程序代码:
Sub printAllDatas()
‘数据记录工作表变量
Dim wksDatas As Worksheet
‘模板工作表变量
Dim wksTable As Worksheet
‘数据记录工作表中最后一行变量
Dim lngLastRow As Long
‘循环变量
Dim i As Long
‘将工作表赋给相应的变量
Set wksDatas = Worksheets(“数据”)
Set wksTable = Worksheets(“表格模板”)
‘获取数据记录工作表最后一行行号
lngLastRow = wksDatas.Range(“A”& Rows.Count).End(xlUp).Row
‘遍历数据记录工作表中数据行
‘将相应数据填入模板工作表
For i = 2 To lngLastRow
‘将数据工作表中的数据填入模板
With wksDatas
wksTable.Range(“B3”) =.Range(“A” & i)
wksTable.Range(“F3”) =.Range(“B” & i)
wksTable.Range(“B4”) =.Range(“C” & i)
wksTable.Range(“D4”) =.Range(“D” & i)
wksTable.Range(“F4”) =.Range(“E” & i)
wksTable.Range(“B5”) =.Range(“F” & i)
wksTable.Range(“F5”) =.Range(“G” & i)
wksTable.Range(“B6”) =.Range(“H” & i)
wksTable.Range(“F6”) =.Range(“I” & i)
wksTable.Range(“B7”) =.Range(“J” & i)
wksTable.Range(“B8”) =.Range(“K” & i)
End With
‘打印
wksTable.PrintOut
Next i
End Sub
运行代码,即可实现数据打印。
代码的图片版如下:
使用VBA,也很容易将数据按模板表格形式,拆分成独立的工作表。有兴趣的朋友可以试试。
猜你喜欢
- 最近有朋友反映下载了win10镜像文件,但是不知道怎么安装。我该怎么办?实际上们可以用硬盘安装,用硬盘安装。今天,小编带来了详细的解决方案。
- 分页符在word的使用中非常常用,对于常用word的朋友就再熟悉不过了,但是对于大多数人来说还是不太懂,下面小编就教你们怎么在word中插入
- 使用一个公式来获取当前单元格所在列的列字符,例如当前单元格为B2,其所在列为列B。如何使用一个公式来获取当前单元格B2所在列的列字符B呢?先
- 刚刚毕业,不会用Word?或者对Word不太熟悉,无法完成更高级的操作?那么不妨花3分钟看看下面这些Word技巧吧!它们个个都很好用哦~一、
- 主控文档 (主控文档:主控文档是一组单独文件(或子文档)的容器。主控文档 (主控文档:主控文档是一组单独文件(或子文档)的容器。使用主控文档
- 知道了在Word2007文档中如何设置单色页面背景后,会发现,单色页面背景看起来总是单调写,很难让人眼前一亮的效果,那么大家就可以考虑考虑设
- 虽然很多用户经常使用Win10系统,但是还不是很了解Win10系统的全部功能。就像是文件粉碎功能,很多用户不知道Win10电脑有自己的文件粉
- 在PowerPoint 2007 中,我们会经常尝试将Excel 2007 图表转换为Office 图形对象,以便将图表的某些部分设置为不同
- Excel2013表格中的数据怎么制作指定的饼图?excel表格中的数据想要做成饼图,该怎么制作饼图呢?下面我们就来看看excel2013中
- Office2013怎么使用电话激活且保持永久?笔者此次分享的Office 2013 拨号完美激活教程,适用于所有 Office 2013
- Word2010中的格式刷工具可以将特定文本的格式复制到其他文本中,当用户需要为不同文本重复设置相同格式时,即可使用格式刷工具提高工作效率,
- 准备工作:首先我们可以到软件的官网或是其他下载渠道将软件下载并安装好,安装过程非常简单,用户可以轻松完成。 开
- 1. Shift + Delete键 = 剪切当我们选中简历表格里的一段文字后,按住Shift并按动Delete键就相当于执行了剪切命令,所
- word文档是我们日常办公中经常使用的一款办公软件,我们平时会发现word中经常会有很多的文字带圈,这是怎么做到的呢?现在跟小编一起来看看怎
- 我们在用excel表格时,有时候做好数据或者整理好表格之后,不想被其他人轻易改动或者自己不小心修改了,可以对部分单元格进行锁定设置,这样的话
- 怎样让Word文档有更好的视觉效果呢?也许在Word中插入背景能够让你的Word文档变得更加好看。以下小编整理的在Word中插入背景的方法,
- 使用过表格文档的朋友们,一定常常用到“合并与拆分单元格”功能。而我们已经知道了在Word2007文档中插入表格并且可以处理数据。那么在Wor
- Visual Basic for Applications(VBA)是Visual Basic的一种宏语言,主要能用来扩展Windows的应
- 在编辑word的时候上方会有个word标尺,其实它隐藏着很多好用的功能,今天小编就带大家来瞧瞧,word标尺有哪些好用的功能。如何打开隐藏/
- Word2016中的文字怎么添加拼音?Word2016中有些文字是多音字,想给文字添加正确的读音,该怎么设置呢?下面我们就来看看word20