EXCEL 单元格自加

问题描述：

如何通过宏实现以下功能：
对A1单元格赋值为1
打印
A1自加1（即为2)
打印
.
.
.

直至指定数值为止，如100，共需打印100份
循环操作已经知道for来实现，但不知道在怎么通过VB来实现对A1的自加，请高手指点
注：全部过程一键操作

问题解答：

Sub Macro1()
For t = 1 To 100
[A1].Value = t
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

如 101 - 250 共 150份, 便要改成 For t = 101 To 250

如每份要印两张, 便要改成 Copies:=2

请灵活套用在应用文件中