qq_36631386的博客

第一步 打开文档 按 alt+F11 打开VBA代码编辑器 第二步 复制以下代码 ###Sub 宏1() // "1"代表每次递增的数量可自行修改 a = InputBox(“数量”, , 1) For i = 1 To a // “D1” 表示要递增的单元格 可自行修改 // 让i的值循环+1 Range(“D1”) = i //打印选定的工作表，每次打印1份 ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next End Su