逐页单独打印Excel表格中的数据

在实际工作中，我们经常会遇到需要将工作表中的数据(如下图所示的“数据”工作表)导入固定表(如下图所示)并打印出来的情况。

中的数据可以一个接一个地输入到工作表中，从多个工作表中合并，或者从网站等其他地方导入。此时，您希望以所示的格式打印每条数据信息。单独逐行输入数据既费时又费力，尤其是遇到数百条数据时。

VBA最擅长解决这样的问题。

首先，在工作簿中创建一个名为“表格模板”的工作表，并根据打印的表格对其进行格式化，如下所示。

在VBE中输入以下程序代码：

子打印所有数据()

数据记录工作表变量。

将工作周标记为工作表

模板工作表变量。

将工作稳定的工作表调暗

数据记录工作表中的最后一行变量。

昏暗的灯光和长长的一样

“循环变量”

模糊如龙

将工作表分配给相应的变量。

设置wksDatas=工作表(“数据”)。

设置wksTable=工作表(“表格模板”)。

获取数据记录工作表最后一行的行号。

lngLastRow=wksDatas。范围(“一”行。计数)。结束(xlUp)。排

遍历数据记录工作表中的数据行。

在模板工作表中填写相应的数据。

对于i=2至lngLastRow

将数据工作表中的数据填充到模板中。

有了wksDatas

wksTable。范围(“B3”)=。范围(“A”I)

wksTable。范围(“F3”)=。范围(“B”I)

wksTable。范围(“B4”)=。范围(“C”I)

wksTable。范围(“D4”)=。范围(“D”I)

wksTable。范围(“F4”)=。范围(“E”I)

wksTable。范围(“B5”)=。范围(“F”I)

wksTable。范围(“F5”)=。范围(“G”I)

wksTable。范围(“B6”)=。范围(“高”I)

wksTable。范围(“F6”)=。范围(“我”我)

wksTable。范围(“B7”)=。范围(“J”I)

wksTable。范围(“B8”)=。范围(“K”I)

以…结尾

“打印”

wksTable。打印输出

接下来我

末端接头

运行代码来打印数据。

代码的图片版本如下：

使用VBA，也很容易将数据以模板表的形式拆分成独立的工作表。有兴趣的朋友可以试一试。