如何利用EXCEL制定报告单 （把表1数据对应填到表2） 然后通过宏功能实现连续打印

Question

如题所述

Answer 1

Sub Macro1()
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
宏名为macro1，表1为sheet1，表2为sheet2 ，可根据实际修改。
其实自己录一个更好。方法是：依次点菜单：工具-宏-录制新宏，在弹出的对话框中输入宏名（可以默认的），确定之后开始录制。点表1，再同时按Ctrl+A就可选择表1全部内容，按Ctrl+V完成复制。点表2，点a1单元格，同时按Alt+E键，再按S键，在弹出的对话框中点选“数值”，确定并点停止录制按钮，完成录制。再打开工具-宏-宏，就可以看到你刚才录制的宏了，可以运行，也可以编辑。