我們?cè)贓xcel中建好了一個(gè)報(bào)表模板，當(dāng)我們想要每月30日都使用該模板的時(shí)候，是否需要?jiǎng)?chuàng)建30個(gè)工作表，再將模板復(fù)制30份呢

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

將以上表格中的模板，建立30份到30個(gè)工作表中，請(qǐng)看動(dòng)圖演示：

創(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