Come eliminare un foglio se il nome contiene un testo specifico dalla cartella di lavoro?

Supponiamo di avere una cartella di lavoro che contiene più fogli di lavoro e ora si desidera eliminare i fogli in base ai nomi delle schede. Ad esempio, se il nome del foglio contiene un testo specifico “KTE”, eliminarlo, ottenendo così quanto mostrato nello screenshot seguente. Come potresti eliminare immediatamente i fogli il cui nome contiene un testo specifico senza doverli eliminare uno per uno?

Elimina fogli se il nome contiene un testo specifico con il codice VBA

Elimina fogli se il nome contiene un testo specifico con il codice VBA

Qui creerò un codice VBA per te per eliminare i fogli in base al nome, 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 fogli se il nome contiene un testo specifico

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di dialogo che ti chiederà di inserire il testo specifico in base al quale vuoi eliminare la scheda del foglio, vedi screenshot:

4. Dopodiché clicca su OK, tutti i fogli il cui nome contiene il testo specificato “KTE” verranno eliminati contemporaneamente. Vedi screenshot:

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!