VBA-批量复制sheet

复制20份sheet，并统一命名

Sub 复制工作表()
'
' 复制工作表 宏
' 复制工作表，并依次递增表名
'
　　For i = 2 To 20

　　　　Sheets(1).Copy After:=Sheets(Sheets.Count)
　　　　Sheets(Sheets.Count).Name = "信息系统情况（系统" & i & "）"
　　Next

End Sub