分页单独打印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,也很容易将数据按模板表格形式,拆分成独立的工作表。有兴趣的朋友可以试试。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
wps表格中高级筛选功能的使用技巧
deepin启动卡在initramfs怎么办-deepin启动卡在initramfs解决方法
![](https://img.aspxhome.com/file/2023/3/a298285_0s.jpg)
电脑网页图片显示不出来怎么办?电脑网页图片显示不出来教程
![](https://img.aspxhome.com/file/2023/2/47952_0s.png)
什么是.PPT与.PPTX格式?.PPT与.PPTX格式的区别
怎么关闭wps右下角弹窗提示
桌面文件丢失怎么办?找回桌面文件的妙招
![](https://img.aspxhome.com/file/2023/29/a261031_0s.jpg)
Word2007文档中隐藏文字的设置方法
Win8使用过程中磁盘空间越来越少是什么原因如何解决
![](https://img.aspxhome.com/file/2023/29/a253116_0s.jpg)
Excel表格数据对齐方式设置动画教程
![](https://img.aspxhome.com/file/2023/3/a155813_0s.gif)
电脑系统服务器管理没有本地用户和组的解决方法
![](https://img.aspxhome.com/file/2023/4/a309668_0s.jpg)
Win10更新后出现蓝屏进不去桌面怎么办?
![](https://img.aspxhome.com/file/2023/1/a278715_0s.png)
如何同时打开两个excel表格
Tina中怎么使用示波器?Tina使用示波器的详细操作方法
![](https://img.aspxhome.com/file/2023/8/a333916_0s.jpg)
教你怎么用PPT写好年终总结
![](https://img.aspxhome.com/file/2023/10/a352964_0s.jpg)
Word2010中插入书签的诀窍
![](https://img.aspxhome.com/file/2023/2/25282_0s.jpg)
毒app如何买鞋?毒app买鞋的操作方法
![](https://img.aspxhome.com/file/2023/8/a333726_0s.jpg)
内存条天梯图2022 电脑内存条排行榜2022最新版高清大图
![](https://img.aspxhome.com/file/2023/30/a267925_0s.png)
Excel技巧:快速录数据 让单位自动补全 1
![](https://img.aspxhome.com/file/2023/0/38740_0s.jpg)
Win11 照片 2022.31100.9001.0 预览版发布:集成苹果 iCloud 照片库
![](https://img.aspxhome.com/file/2023/27/a238927_0s.jpg)
Win11引导选项在哪里设置?
![](https://img.aspxhome.com/file/2023/27/a235574_0s.jpg)