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

通常，創建新工作簿時，默認情況下，它將在Excel 2007/2010中包括三個工作表，在Excel 2013中包括一個工作表。 以後，您可以根據需要添加或刪除選項卡。 但是，您是否曾經嘗試過每次需要使用特定數量的工作表來創建新工作簿？

使用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 between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

3. 粘貼代碼後，按 F5 鍵以運行此代碼，然後在提示框中，輸入工作簿中所需的工作表數，請參見屏幕截圖：

4。 然後點擊 OK 按鈕，新工作簿已創建，並且您需要指定數量的工作表。

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

如果您不熟悉VBA代碼，則可以使用方便的工具- Excel的Kutools，其 創建序列工作表 實用程序，您可以快速創建具有默認工作表名稱，自定義工作表名稱等的新工作簿。

安裝後 Excel的Kutools，請執行以下操作：

1。 點擊 Enterprise > 下載學習單 > 創建序列工作表，請參見屏幕截圖：

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

（1.）選擇 空白工作表 在 基本工作表 下拉列表;

（2.）在下面的新工作簿中輸入頁數 創建數 文本框;

（3.）從 工作表名稱基於 部分，選擇 Excel默認名稱 選項。

立即免費下載Kutools for Excel

3。 然後點擊 OK 按鈕，將使用您指定數量的工作表創建新工作簿。

單擊以了解有關此“創建序列工作表”實用程序的更多信息……

立即免費下載Kutools for Excel

相關文章：

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

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