Come eliminare un foglio specifico se esiste nella cartella di lavoro?

Come potresti eliminare un foglio di lavoro specifico se è presente all'interno di una cartella di lavoro? Normalmente, devi prima cercarlo e verificarne l'esistenza, quindi eliminarlo manualmente. Qui ti mostrerò un modo semplice per eliminare direttamente il foglio specificato se esiste nel file Excel.

Elimina un foglio di lavoro specifico se esiste in una cartella di lavoro con il codice VBA

Elimina un foglio di lavoro specifico se esiste in una cartella di lavoro con il codice VBA

Il seguente codice VBA può aiutarti a eliminare il foglio di lavoro specificato se esiste nella cartella di lavoro, procedi come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Elimina un foglio di lavoro specifico se esiste nella cartella di lavoro

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. Quindi premi il tasto F5 per eseguire questo codice, verrà visualizzata una finestra di dialogo che ti chiederà di inserire il nome del foglio che desideri verificare se esiste, vedi screenshot:

4. Dopodiché clicca sul pulsante OK:

(1.) Se il foglio esiste, verrà eliminato immediatamente, vedi screenshot:

(2.) Se il foglio non esiste, verrà visualizzata una finestra di avviso per ricordartelo, come mostrato nello screenshot seguente:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!