Table of contents
Excel VBA是一个强大而方便的工具，可以快速完成大量的任务。 你可以通过VBA应用几个条件，并在各个条件的基础上得出不同的结果。 现在，有时你可能想检查你的工作簿中是否存在一个特定的工作表。 如果没有，你可能需要创建这个工作表。 在这篇文章中，我将向你展示所有的步骤，以 加床单 如果它不存在，使用Excel VBA。
Excel VBA：如果不存在就添加工作表（快速查看）
Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , 2) On Error Resume Next requiredSheetName = Worksheets（addSheetName）.Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "'" & addSheetName & _ " '' sheet has被添加，因为它不存在。", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "'' sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 
插入到一个新的模块中，应用上面的代码。
下载实践工作手册
你可以从这里免费下载我们的练习工作手册!
如果不存在则添加工作表.xlsm应用VBA代码在Excel中添加工作表（如果它不存在）的步骤
假设你有一本工作簿，包含4张工作表，分别命名为1月、2月、3月和4月。 每张工作表都包含下个月的销售报告。 现在，你需要在工作簿中找到一些工作表，如果不存在，就添加工作表。 你可以按照下面的步骤指南来完成这一工作。
📌 步骤1：插入一个新模块
首先，你需要插入一个模块来编写VBA代码。
- 要做到这一点，在一开始就到 开发商 标签>>。 视觉基础 工具。
- 因此， 微软Visual Basic应用程序 窗口将出现。
- 随后，去到 插入 标签>>。 模块 工具。
因此，一个新的模块名为 模块1 已经创建。
阅读更多。 如何在Excel VBA中添加带有名称的工作表（6种简单方法）
类似读物
- 在Excel中使用VBA创建新工作簿并保存
- Excel VBA：创建一个新的工作簿并为其命名（6个例子）
- 如何在Excel中使用宏程序从模板中创建新工作表
📌 第二步：编写并保存所需的VBA代码
现在，你需要在模块内编写代码并保存。
- 为了做到这一点，请点击 模块1 选项，并在代码窗口中写下以下代码。
Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , 2) On Error Resume Next requiredSheetName = Worksheets（addSheetName）.Name If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "'" & addSheetName & _ " '' sheet has被添加，因为它不存在。", _ vbInformation, "Add Sheet If Not Exist" Else MsgBox "The ''" & addSheetName & _ "'' sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End子
- 结果是，代码窗口将看起来像下面这样。
🔎 代码解释。
♣ 第1段。
Sub AddSheetIfNotExist() Dim addSheetName As String Dim requiredSheetName As String 在这一部分，我们已经声明了宏的名称和变量名称。
♣ 第2段。
addSheetName = Application.InputBox("Which Sheet Are You Looking For?", _ "Add Sheet If Not Exist", "Sheet5", , , , 2) On Error Resume Next requiredSheetName = Worksheets（addSheetName）.Name 在这一部分，我们创建了一个输入框，通过这个输入框，我们可以输入我们需要查找的文件的名称。
♣ 第3段。
If requiredSheetName = "" Then Worksheets.Add.Name = addSheetName MsgBox "The ''" & addSheetName & _ "'' sheet has been added as it did not exist.", _ vbInformation, "Add sheet If Not Exist" 在这一部分，我们检查工作簿中是否存在所需的工作表。 如果没有，它将创建所需的工作表，并向我们显示有关这一变化的信息。
♣ 第4段。
Else MsgBox "The ''" & addSheetName & _ "''s sheet already exists in this workbook.", _ vbInformation, "Add Sheet If Not Exist" End If End Sub 在这一部分中，如果所需的工作表已经存在于工作簿中，我们已经处理了结果。 在这种情况下，会出现另一个消息框，通知你这个工作表已经存在。 此外，在这一部分中，我们正确地结束了代码。
- 之后，按 Ctrl + S.
- 随后，一个 微软Excel 窗口会出现，点击 没有 按钮。
- 因此， 另存为 窗口将出现。
- 随后，选择 保存为类型。 选项为 .xlsm 随后，点击 拯救 按钮。
因此，你已经编写并保存了你所需要的代码。
请注意。
你必须将Excel工作簿保存在 .xlsm 否则，宏就不会被启用，代码就不会工作。
阅读更多。 Excel VBA为工作表添加变量名称（5个理想的例子）
📌 第三步：运行代码
现在，你需要运行该代码并检查结果。
- 要做到这一点，首先，也是最重要的，点击 运行 中的图标。 微软Visual Basic应用程序 窗口。
- 因此， 巨集 窗口将出现。
- 随后，选择 如果不存在，则添加表格 宏，并点击 运行 按钮。
- 这时，我们创建的消息框名为 如果不存在则添加工作表 这里，自动选项将是 第五张 .
- 现在，为了检查，写上 "四月" 在文本框中填入""，然后点击""。 好的 按钮。
- 随后，你会看到另一个信息框出现，告诉你该工作表已经存在。
- 点击进入 好的 按钮。
- 之后，再次运行该代码，并写下 "五月" 随后，在创建的信息框的文本框中点击 认可 按钮。
- 因此，你会看到另一个信息框，它将出现，通知你 "五月" 表并不存在，因此它创建了这个表。
- 随后，点击 认可 按钮。
最后，你可以看到你已经添加了一个以前不存在的工作表。 而且，现在的工作簿会是这样的。
阅读更多。 Excel VBA：在最后一页后面添加工作表（3个理想的例子）
总结
因此，在这篇文章中，我向你展示了用Excel VBA添加一个不存在的工作表的所有步骤。 仔细阅读全文，以便更好地理解它，并完成你所期望的结果。 我希望你觉得这篇文章有帮助，有信息。 如果你有任何进一步的疑问或建议，请随时联系我。
而且，访问 ǞǞǞ 谢谢你！我希望有更多像这样的文章。
