快速复制工作表

该代码可以在一张表内快速复制相同的工作表，并且可以自定义工作表名。

1、代码

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

2、解说

　　
# 复制工作表名为“信息系统情况（系统1）”的工作表，此表为模板
 Sheets("信息系统情况（系统1）").Select

# 将模板复制到工作表最后一个，依次递加一个工作表
 Sheets("信息系统情况（系统1）").Copy After:=Sheets(Sheets.Count)
    
# 通一命名新复制的表名：信息系统情况（系统number）
 Sheets(Sheets.Count).Name = "信息系统情况（系统" & Sheets.Count & "）"