【VBA】excel自动换名字打印

源码：

Sub m()

For i = 1 To 100

ActiveSheet.PrintOut copies:=1

Cells(1, 1) = Sheets(2).Cells(i, 1)

Next

End Sub