如何刪除工作簿中存在的特定工作表？

如果某個工作簿內有特定的工作表，您要如何刪除它呢？一般情況下，您需要先找到並確認該工作表是否存在，然後再手動刪除。在此，我將介紹一種簡單的方法，若 Excel 文件中存在指定的工作表，即可直接刪除它。

使用 VBA 代碼刪除工作簿中存在的特定工作表

使用 VBA 代碼刪除工作簿中存在的特定工作表

以下的 VBA 代碼可以幫助您刪除工作簿中存在的指定工作表，請按照以下步驟操作：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並將以下代碼粘貼到 模組視窗中。

VBA 代碼：刪除工作簿中存在的特定工作表

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. 然後按 F5 鍵運行此代碼，會彈出一個提示框，提醒您輸入想要檢查是否存在的工作表名稱，如下截圖所示：

4. 接著點擊 確定 按鈕：

(1.) 如果該工作表存在，它將立即被刪除，如下截圖所示：

(2.) 如果該工作表不存在，將彈出一個提示框提醒您，如下截圖所示：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！