表格打印次数递增减

第一步

打开文档 按 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 Sub
图片如下：

按红色框内三角形 运行

第三步

输入要打印的数量。

完美。