如何在打印时，实现表格里的已有的数字自动增加

Question

如图，我需要是副券下面的数字每打印一张会自动生成+10，如A4，下一张就是001331，有什么办法能实现，在线跪求。急！！！！先谢谢各位朋友浏览我问题。能解决吗？

Answer 1

假设你的工作表为 Sheet1，右键点击工作表标签，选择"查看代码"，然后把下面的代码复制过去：
Sub dy()
Sheets("sheet1").PrintOut
Range("A4") = Range("A4") + 10
End Sub
然后按Alt+F8，选择“Sheet1.dy”运行，即可打印并把单元格A4加上10，如果你需要大量打印的话，还可以更改一下代码，让他自动打印（假设你要打印50张，每张的A4单元格相差10，其他不变），代码如下：
Sub dy()
For i = 1 To 50
Sheets("sheet1").PrintOut
Range("A4") = Range("A4") + 10
Next
End Sub

Answer 2

现在没有，你可以设置副券编号在一列，复制你的图表进行粘贴，成若干，选择下拉就1、2、3、---之后打印