Come eliminare il foglio se il nome contiene un testo specifico dalla cartella di lavoro?
Supponendo 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", eliminalo e ottieni la seguente schermata. Come potresti eliminare i fogli se il nome contiene un testo specifico immediatamente senza eliminarli uno per uno?
Elimina i fogli se il nome contiene testo specifico con codice VBA
Elimina i fogli se il nome contiene testo specifico con codice VBA
Qui, creerò un codice VBA per eliminare i fogli per nome, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: elimina i fogli se il nome contiene 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 premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di inserire il testo specifico su cui desideri eliminare la scheda del foglio, vedi screenshot:
4. E poi clicca OK, tutti i fogli il cui nome contiene il testo specificato "KTE" sono stati cancellati contemporaneamente. Vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!