如何在工作簿中不存在工作表时创建一个工作表？

假设您有一个包含多个工作表的工作簿，需要检查某个特定的工作表名称是否存在。如果该工作表不存在，则创建它；如果存在，则显示提示通知您该工作表已存在。那么，如何在 Excel 中完成此任务呢？

使用 VBA 代码在工作簿中不存在工作表时创建一个工作表

使用 VBA 代码在工作簿中不存在工作表时创建一个工作表

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

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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. 然后单击 确定 按钮：

（1.）如果工作表存在，将弹出一个提示框提醒您，如下图所示：

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