Как удалить конкретный лист, если он существует в книге?

Как вы могли удалить конкретный лист, если он существует в книге? Обычно вам нужно найти и проверить его, если он существует, а затем удалить его вручную. Здесь я расскажу о простом способе прямого удаления указанного листа, если он существует в файле Excel.

Удалить конкретный лист, если он существует в книге с кодом VBA

---

Удалить конкретный лист, если он существует в книге с кодом VBA

Следующий код VBA может помочь вам удалить указанный рабочий лист, если он существует в книге, сделайте следующее:

1. Удерживая нажатой ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: удалить определенный рабочий лист, если он существует в книге

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, отображается окно подсказки, напоминающее вам ввести имя листа, которое вы хотите проверить, если оно существует, см. снимок экрана:

4, Затем нажмите OK Кнопка:

(1.) Если лист существует, он будет немедленно удален, см. Снимок экрана:

(2.) Если лист не существует, появится всплывающее окно с напоминанием, как показано на следующем снимке экрана: