如何創建具有特定數量工作表的新工作簿？

默認情況下，Excel 中的新工作簿包含單一工作表。雖然您可以手動添加或刪除工作表，但如果您想從一開始就創建具有特定數量工作表的新工作簿該怎麼辦呢？本指南將向您展示如何自動設置具有所需數量工作表的工作簿。

使用 VBA 代碼創建具有特定數量工作表的新工作簿

使用 Kutools for Excel 創建具有特定數量工作表的新工作簿

使用 VBA 代碼創建具有特定數量工作表的新工作簿

您可以使用以下 VBA 代碼來創建包含特定數量標籤的新工作簿。

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，然後在模組窗口中粘貼以下代碼。

VBA 代碼：創建具有特定數量工作表的新工作簿

Sub MakeWorkbook()
'update Extendoffice
    Dim xOldCount As Integer
    Dim xNewCount As Variant
    xOldCount = Application.SheetsInNewWorkbook
    xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
    If xNewCount = False Then Exit Sub
    If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
        MsgBox "The number must be between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

3. 粘貼代碼後，按 F5 鍵運行此代碼，並在提示框中輸入您希望工作簿內含有的工作表數量，請參見截圖：

4. 然後點擊 確定 按鈕，新工作簿已根據您指定的工作表數量創建完成。

使用 Kutools for Excel 創建具有特定數量工作表的新工作簿

如果您不熟悉 VBA 代碼，可以應用一個方便的工具 – Kutools for Excel，利用其 建立序列工作表 功能，您可以快速創建具有默認工作表名稱、自訂工作表名稱等的新工作簿。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 企業 > 工作表 > 建立序列工作表，請參見截圖：

2. 在 建立序列工作表 對話框中，進行以下操作：

(1.) 在 基於工作表 下拉列表中選擇 空白工作表；

(2.) 在 建立的數量 文本框中輸入新工作簿中的工作表數量；

(3.) 在 工作表名稱基於 部分，選擇 Excel預設名稱 選項。

3. 然後點擊 確定 按鈕，並將根據您指定的工作表數量創建新工作簿。

點擊以了解更多關於這個 建立序列工作表 功能…

相關文章：

如何在 Excel 中從一系列單元格創建序列工作表？

如何在 Excel 中添加帶有當前日期的新工作表？