如果名稱包含工作簿中的特定文本，如何刪除工作表？

假設您有一個包含多個工作表的工作簿，現在，您要按選項卡名稱刪除工作表。 例如，如果工作表名稱包含特定的文本“ KTE”，則將其刪除，然後獲取以下屏幕截圖。 如果名稱立即包含特定文本而又不一一刪除，該如何刪除工作表？

如果名稱包含帶有VBA代碼的特定文本，請刪除工作表

如果名稱包含帶有VBA代碼的特定文本，請刪除工作表

在這裡，我將為您創建一個VBA代碼，以按名稱刪除工作表，請按以下步驟操作：

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

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：如果名稱包含特定文本，則刪除工作表

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3。 然後按 F5 鍵以運行此代碼，並彈出一個提示框，提醒您輸入要刪除工作表標籤的特定文本，請參見屏幕截圖：

4。 然後點擊 OK，所有名稱中包含指定文本“ KTE”的工作表都被立即刪除。 看截圖：