Excel中VBA宏的应用实例：创建日报表模板

我们在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