安全执法检查-复制sheet

根据要求复制sheet

Sub 复制工作表()
'
' 复制工作表 宏
' 复制工作表，并依次递增表名
'
' 快捷键: Ctrl+p
'
    For i = 2 To 20
    
     
    Sheets("信息系统情况（系统1）").Select
    
    Sheets("信息系统情况（系统1）").Copy After:=Sheets(Sheets.Count)
    
    Sheets(Sheets.Count).Name = "信息系统情况（系统" & Sheets.Count - 1 & "）"
    
    Next
    
   
    
End Sub

 

转载于:https://www.cnblogs.com/smartmsl/p/11242573.html