Cum se șterge foaia dacă numele conține text specific din registrul de lucru?
Să presupunem că aveți un registru de lucru care conține mai multe foi de lucru și acum doriți să ștergeți foile după numele filelor. De exemplu, dacă numele foii conține un text specific „KTE”, apoi ștergeți-l, apoi obțineți următoarea captură de ecran. Cum ați putea șterge foile dacă numele conține un anumit text imediat fără a le șterge pe rând?
Ștergeți foile dacă numele conține text specific cu cod VBA
Ștergeți foile dacă numele conține text specific cu cod VBA
Aici, voi crea un cod VBA pentru a șterge foile după nume, vă rugăm să procedați astfel:
1. Țineți apăsat butonul 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 foile dacă numele conține un anumit text
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. Apoi apăsați F5 tasta pentru a rula acest cod și o casetă de prompt este afișată pentru a vă reaminti că introduceți textul specific pe care doriți să ștergeți fila de foaie, consultați captura de ecran:
4. Apoi faceți clic pe OK, toate foile al căror nume conține textul specificat „KTE” au fost șterse simultan. Vedeți captura de ecran:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!