Jak usunąć określony arkusz, jeśli istnieje w skoroszycie?

Jak możesz usunąć określony arkusz roboczy, jeśli istnieje w skoroszycie? Zwykle musisz go znaleźć i sprawdzić, jeśli istnieje, a następnie usunąć go ręcznie. Tutaj omówię łatwy sposób bezpośredniego usunięcia określonego arkusza roboczego, jeśli istnieje w pliku Excel.

Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie z kodem VBA

---

Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie z kodem VBA

Poniższy kod VBA może pomóc w usunięciu określonego arkusza roboczego, jeśli istnieje w skoroszycie, wykonaj następujące czynności:

1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Usuń określony arkusz roboczy, jeśli istnieje w skoroszycie

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. Następnie naciśnij F5 Aby uruchomić ten kod, zostanie wyświetlone okno zachęty przypominające o wpisaniu nazwy arkusza, który chcesz sprawdzić, czy istnieje, zobacz zrzut ekranu:

4. A następnie kliknij OK przycisk:

(1.) Jeśli arkusz istnieje, zostanie natychmiast usunięty, patrz zrzut ekranu:

(2.) Jeśli arkusz nie istnieje, pojawi się okienko z przypomnieniem, jak pokazano na poniższym zrzucie ekranu: