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

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

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

使用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

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

4。 然后点击 OK 按钮：

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

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