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

假設您有一個包含多個工作表的工作簿，現在，您想根據標籤名稱刪除工作表。例如，如果工作表名稱包含特定文字“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. 然後點擊確定，所有名稱包含指定文字“KTE”的工作表都已一次性刪除。見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

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

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