如果工作簿中不存在该如何创建工作表？

网友投稿 360 2023-12-22

如果工作簿中不存在该如何创建工作表？

假设您有一个包含多个工作表的工作簿，现在，您需要确定是否存在特定的工作表名称。如果工作表名称不存在，请创建它。如果存在，请给出提示消息以告诉您该工作表存在。您如何在Excel中解决此任务？

使用VBA代码在工作簿中不存在的情况下创建工作表

下面的VBA代码可以帮助您检查工作簿中是否存在特定的工作表名称，如果不存在，则该代码可以根据需要创建工作表。

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

2。点击插页 > 模块，然后将以下代码粘贴到模块窗口。

VBA代码：如果工作簿中不存在工作表，请创建一个工作表：

Sub TestSheetCreate() Updateby Extendoffice Dim newSheetName As String Dim checkSheetName As String newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _ "sheet4", , , , , 2) On Error Resume Next checkSheetName = Worksheets(newSheetName).Name If checkSheetName = "" Then Worksheets.Add.Name = newSheetName MsgBox "The sheet named " & newSheetName & _ " does not exist in this workbook but it has been created now.", _ vbInformation, "Kutools for Excel" Else MsgBox "The sheet named " & newSheetName & _ "exist in this workbook.", vbInformation, "Kutools for Excel" End If End Sub

Copy

3。然后按 F5 要运行此代码的键，会弹出一个提示框，提醒您输入要检查的工作表名称，请参见屏幕截图：

4。然后点击 OK 按钮：

（1.）如果存在工作表，则会弹出一个提示框提醒您，如下所示的屏幕截图：

（2.）如果工作表不存在，将立即创建它，请参见屏幕截图：

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！