如何创建包含特定数量工作表的新工作簿

ms excelmicrosoft technologiescomputers更新于 2024/8/21 1:16:17

Excel 是一款常用的电子表格程序，它提供了许多工具来帮助有效地组织和分析数据。创建工作簿(即用于输入、修改和呈现数据的一系列工作表)是使用 Excel 的基本操作。

本文将引导您完成创建包含特定数量工作表的新 Excel 工作簿的步骤。无论您是出于数据记录、财务分析还是其他任何原因需要创建多页工作簿，本文都将为您提供所需的技能。无论您的经验水平如何，本指南都旨在方便初学者使用，并包含清晰的说明和相关的屏幕截图，让您轻松上手。让我们开始学习如何创建一个包含所需精确数量工作表的新工作簿!

创建包含特定数量工作表的新工作簿

在这里，我们将首先创建一个 VBA 模块，然后运行它并指定完成任务所需的工作表数量。让我们通过一个简单的过程来学习如何在 Excel 中创建一个包含特定数量工作表的新工作簿。

步骤 1

考虑任何 Excel 工作表。首先，使用 Alt + F11 打开 VBA 应用程序。

步骤 2

然后，点击"插入"，选择"模块"，并将以下代码复制到文本框中。

插入 > 模块 > 复制

示例

Sub MakeWorkbook()
   Dim xOldCount As Integer
   Dim xNewCount As Variant
   xOldCount = Application.SheetsInNewWorkbook
   xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Create New Workbook", , , , , , 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