12.Excel vba开发-Sheet复制多份

1.需求：Sheet复制多份

2.代码：

Sub 复制()
Application.ScreenUpdating = False
For i = 1 To 10
 Sheets("Sheet1").Select
 Sheets("Sheet1").Copy after:=Sheets(1)
Next
Application.ScreenUpdating = True
MsgBox ("执行完成")
End Sub

3.效果