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