如何根據儲存格的值刪除工作表？

如果您的工作簿中有多個工作表，並且需要根據特定儲存格的內容刪除某些工作表，VBA 可以幫助您自動完成此任務。例如，您可能希望刪除所有 A1 儲存格包含特定單詞或短語的工作表。本指南將向您展示如何使用 VBA 快速識別並刪除這些工作表。

使用 VBA 程式碼根據儲存格的值刪除工作表

使用 VBA 程式碼根據儲存格的值刪除工作表

在這裡，我將介紹一段程式碼，用於刪除特定儲存格具有某個值的所有工作表，請按照以下步驟操作：

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

2. 點擊 插入 > 模組，然後在 模組視窗中粘貼以下程式碼。

VBA 程式碼：根據儲存格的值刪除工作表：

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

注意：在上述程式碼中，A1 是包含特定文字的儲存格，您希望根據該文字刪除工作表。

3. 接著按下 F5 鍵運行程式碼，會彈出一個提示框，提醒您輸入想要刪除工作表所依據的特定值，請參見截圖：

4. 然後點擊 確定 按鈕，所有 A1 儲存格包含 KTE 文字的工作表都會被一次性刪除。請參見截圖：