如何创建具有特定数量的工作表的新工作簿？

通常，创建新工作簿时，默认情况下，它将在Excel 2007/2010中包括三个工作表，在Excel 2013中包括一个工作表。 以后，您可以根据需要添加或删除选项卡。 但是，您是否曾经尝试过每次需要使用特定数量的工作表来创建新工作簿？

使用VBA代码创建具有特定数量的工作表的新工作簿

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

使用VBA代码创建具有特定数量的工作表的新工作簿

您可以使用以下VBA代码创建包含特定数量的选项卡的新工作簿。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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代码，则可以使用方便的工具- Kutools for Excel，其 创建序列工作表 实用程序，您可以快速创建具有默认工作表名称，自定义工作表名称等的新工作簿。

安装后 Kutools for Excel，请执行以下操作：

1。 点击 Enterprise > 工作表 > 创建序列工作表，请参见屏幕截图：

2. 在 创建序列工作表 对话框中，进行以下操作：

（1.）选择 空白工作表 在下面 基本工作表 下拉列表;

（2.）在下面的新工作簿中输入页数 创建数 文本框;

（3.）从 工作表名称基于 部分，选择 Excel默认名称 选项。

立即免费下载Kutools for Excel

3。 然后点击 OK 按钮，将使用您指定数量的工作表创建新工作簿。

单击以了解有关此“创建序列工作表”实用程序的更多信息……

立即免费下载Kutools for Excel

相关文章：

如何从Excel中的一系列单元格创建序列工作表？

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