Как удалить лист на основе значения ячейки в Excel?

Если у вас есть несколько листов в книге и вам нужно удалить определенные листы на основе содержимого конкретной ячейки, VBA может помочь автоматизировать эту задачу. Например, вы можете захотеть удалить все листы, где в ячейке A1 содержится определенное слово или фраза. Это руководство покажет вам, как использовать VBA для быстрого поиска и удаления этих листов в Excel.

Удаление листа на основе значения ячейки с помощью кода 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, будут удалены одновременно. См. скриншот: