Cum să ștergeți o foaie specifică dacă există în registrul de lucru?

Cum ați putea șterge o anumită foaie de lucru dacă există într-un registru de lucru? În mod normal, trebuie să îl găsiți și să-l verificați dacă există, apoi să-l ștergeți manual. Aici, voi vorbi despre o modalitate ușoară de a șterge direct foaia de lucru specificată dacă există în fișierul Excel.

Ștergeți o foaie de lucru specifică dacă există într-un registru de lucru cu cod VBA

---

Ștergeți o foaie de lucru specifică dacă există într-un registru de lucru cu cod VBA

Următorul cod VBA vă poate ajuta să ștergeți foaia de lucru specificată dacă există în registrul de lucru, vă rugăm să faceți acest lucru:

1. Țineți apăsată tasta ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: Ștergeți o foaie de lucru specifică dacă există în registrul de lucru

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. Apoi apăsați F5 tasta pentru a rula acest cod, este afișată o casetă de prompt pentru a vă reaminti să tastați numele foii pe care doriți să o verificați dacă există, vedeți captura de ecran:

4. Apoi faceți clic pe OK Butonul:

(1.) Dacă foaia există, va fi ștearsă imediat, vezi captura de ecran:

(2.) Dacă foaia nu există, va apărea o casetă de prompt pentru a vă reaminti după cum se arată în următoarea captură de ecran: