Jak odstranit konkrétní list, pokud existuje v sešitu?

Jak byste mohli odstranit konkrétní list, pokud existuje v sešitu? Normálně jej musíte najít a zkontrolovat, zda existuje, a poté jej ručně odstranit. Zde budu hovořit o snadném způsobu, jak přímo odstranit určený list, pokud existuje v souboru Excel.

Odstraňte konkrétní list, pokud existuje v sešitu s kódem VBA

---

Odstraňte konkrétní list, pokud existuje v sešitu s kódem VBA

Následující kód VBA vám pomůže odstranit zadaný list, pokud v sešitu existuje, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Odstraňte konkrétní list, pokud v sešitu existuje

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, zobrazí se výzva k připomenutí, abyste zadali název listu, který chcete zkontrolovat, pokud existuje, viz screenshot:

4. A pak klikněte na tlačítko OK Tlačítko:

(1.) Pokud list existuje, bude odstraněn najednou, viz screenshot:

(2.) Pokud list neexistuje, zobrazí se okno s výzvou, které vám připomene následující obrázek obrazovky: