我們在Excel中建好了一個報表模板，當我們想要每月30日都使用該模板的時候，是否需要創(chuàng)建30個工作表，再將模板復制30份呢

只需要一個按鈕，加上簡單的幾句VBA代碼，實現(xiàn)以上功能，請看示例

將以上表格中的模板，建立30份到30個工作表中，請看動圖演示：

創(chuàng)建工作表代碼：

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