Cum să ștergeți foaia dacă numele foii nu se află într-o listă?
Să presupunem că am o foaie de lucru care conține o listă de nume de foi în registrul de lucru din coloana A, așa cum se arată în imaginea de mai jos, iar unele nume de foi din registrul de lucru nu sunt în listă, acum, vreau să șterg foile care nu sunt în lista coloanei A. Cum aș putea rezolva această sarcină în Excel rapid și ușor?
Ștergeți foile care nu se află într-o anumită listă cu codul VBA
Ștergeți foile care nu se află într-o anumită listă cu codul VBA
În mod normal, puteți verifica numele fișei unul câte unul și le puteți șterge pe cele care nu se află în lista cu numele foilor. Dar, aici, pot vorbi despre un cod VBA pentru a face față acestuia. Vă rugăm să faceți următoarele:
1. Mergeți la foaia de lucru care conține lista de nume a foilor, apoi țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: ștergeți foile care nu se află într-o listă
Sub Deletenotinlist()
'Updateby Extendoffice
Dim i As Long
Dim cnt As Long
Dim xWb, actWs As Worksheet
Set actWs = ThisWorkbook.ActiveSheet
cnt = 0
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
If Not ThisWorkbook.Sheets(i) Is actWs Then
xWb = Application.Match(Sheets(i).Name, actWs.Range("A2:A6"), 0)
If IsError(xWb) Then
ThisWorkbook.Sheets(i).Delete
cnt = cnt + 1
End If
End If
Next
Application.DisplayAlerts = True
If cnt = 0 Then
MsgBox "Not find the sheets to be seleted", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted" & cnt & "worksheets"
End If
End Sub
notițe: În codul de mai sus, A2: A6 este referința celulei care conține numele foilor, o puteți schimba în funcție de nevoile dvs.
3. Și apoi apăsați F5 tasta pentru a rula acest cod, foile care nu sunt în listă au fost șterse simultan, vezi 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!