你好，可以再设置一个宏，进行批量打印 复制到 表2 Sub 打印() For N = 1 To 100 '打印100份 [B1] = Sheets("表1").[A1] '每张表格中B1单元格的内容都等于 表1的 A1 Range("A1:I20").Select '打印区域，自己修改 Selection.PrintOut Copies:=1 ' Next MsgBox "打印完毕" End Sub