我们在Excel中建好了一个报表模板，当我们想要每月30日都使用该模板的时候，是否需要创建30个工作表，再将模板复制30份呢

只需要一个按钮，加上简单的几句VBA代码，实现以上功能，请看示例

将以上表格中的模板，建立30份到30个工作表中，请看动图演示：

创建工作表代码：

Sub cr()

On Error Resume Next

Dim i, m As Integer

Dim rg As Range

For i = 1 To 31 - Sheets.Count

Sheets.Add after:=Sheets(Sheets.Count)

ActiveSheet.Name = i

Sheets("目录").[A1:C14].Copy

ActiveSheet.Paste

Next

Sheets("目录").Select

End Sub

删除工作表代码：

Sub dl()

Application.DisplayAlerts = False

For Each sh In Sheets

If sh.Name <> "目录" Then

sh.Delete

End If

Next

Application.DisplayAlerts = True

End Sub

如果你觉得很神奇，请点赞并关注，后续给出代码解释，任何疑问，请在评论区中留言讨论！