复制20份sheet,并统一命名
Sub 复制工作表()'' 复制工作表 宏' 复制工作表,并依次递增表名' For i = 2 To 20
Sheets(1).Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "信息系统情况(系统" & i & ")" NextEnd Sub