Как удалить лист, если его имя содержит определенный текст из книги?

Предположим, у вас есть книга, содержащая несколько листов, и теперь вы хотите удалить листы по названиям вкладок. Например, если имя листа содержит определенный текст «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», будут удалены одновременно. См. скриншот:

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!