Come eliminare un foglio di lavoro in base al valore della cella in Excel?

Se hai più fogli di lavoro in una cartella di lavoro e devi eliminare alcuni fogli in base al contenuto di una cella specifica, VBA può aiutarti ad automatizzare questa operazione. Ad esempio, potresti voler rimuovere tutti i fogli in cui la cella A1 contiene una parola o frase particolare. Questa guida ti mostrerà come utilizzare VBA per identificare rapidamente ed eliminare questi fogli in Excel.

Elimina foglio di lavoro in base al valore della cella con codice VBA

Elimina foglio di lavoro in base al valore della cella con codice VBA

Qui ti presenterò un codice che ti permetterà di eliminare tutti i fogli in cui una cella specifica ha un determinato valore; procedi come segue:

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

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

Codice VBA: Elimina foglio di lavoro in base al valore della cella:

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

Nota: Nel codice sopra, A1 è la cella specifica che contiene il testo in base al quale vuoi eliminare i fogli.

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

4. Dopodiché clicca sul pulsante OK, tutti i fogli in cui la cella A1 contiene il testo KTE verranno eliminati immediatamente. Vedi screenshot: