excel表格固定模板自动打印自动填入信息？

Question

各位老师好，我有一个问题请教大家。因为工作需要，有上万条信息要从表2里复制过来，粘贴到表1的固定表格中并单独打印，处理量太大，现在请问能否实现自动化填入，即将相关信息自动填入到模版中，并且不需要保存为N个文件，打印的时候却可以一个个打印。具体自动填入要求：1、将“表2”中的单行信息对应填写到表1里的固定位置；2、后期只要更改表2里的信息就可以实现打印；3、最好是加个运行或是什么的启动键，这样方便更改后，点运行启动键就可以自动打印；4，不是要变成N+个表格或是文件，也不是要和文档合并那种。再一次谢谢大家的帮忙了！！！

Answer 1

需要VBA编程，做一个按钮来实现填充和打印。大概框架代码如下，细节部分需要你自己完善：
sub 宏1()
dim arr,i,t

arr=sheets("清单").usedrange

for i=2 to ubound(arr)

with sheets("模板")

'赋值，关键是下面的这句，其中的a2,3表示把【清单】表第3列的内容填入【模板】表的a2单元格，凡是需要填的地方都要这样一对一对的写到下面的行
for each t in array(array("a2",3), array("c2",4), array("d2",6))
.range(t(0)) = arr(i, t(1))
next t
.printout '打印输出【模板】表，如果需要选中打印机、设置打印属性等，可以修改代码（录制来改）或者先设定好

end with

next i

end sub追问

大神，你好！

我按你的VBA写好后，也另存为.xlsm格式了，确实可以打印了，但是测试时发现，我的测试信息只放了三行，结果每次都打印出来数量不等的张数，其中包含测试的三张（没有问题），后面再打印出来的就是空白模板（需要自动填写信息的部分没有信息），打了三次，都是这样，一次10几张，一次5张，一次17张，为什么不能我有三个信息就打印3张呢？

你看看是不是我编程写错了？

追答

删除多余的空白行

Answer 2

如果根据需要，选一个人一次打一张，可以参照工资条件，或word邮件功能打印出N多个表格。

Answer 3

提供文件调试代码