Hogyan lehet törölni a lapot, ha a lap neve nem szerepel a listában?
Tegyük fel, hogy van egy munkalapom, amely tartalmazza az A oszlop munkafüzetében található munkalapok listáját, az alábbi képernyőkép szerint, és a munkafüzet egyes bizonyos lapnevei nem szerepelnek a listában, most törölni akarom azokat a lapokat, amelyek nem az A. oszlop felsorolásában. Hogyan tudnám gyorsan és egyszerűen megoldani ezt a feladatot az Excel programban?
Törölje azokat a lapokat, amelyek nincsenek egy adott listában, VBA kóddal
Törölje azokat a lapokat, amelyek nincsenek egy adott listában, VBA kóddal
Normál esetben egyenként ellenőrizheti a lapneveket, és törölheti azokat, amelyek nem szerepelnek a lapnevek listájában. De itt beszélhetek egy VBA-kódról, amely foglalkozik vele. Kérjük, tegye a következőket:
1. Lépjen a munkalapra, amely tartalmazza a lapnevek listáját, majd tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ezután kattintson betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Törölje azokat a lapokat, amelyek nem szerepelnek a listában
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
Megjegyzések: A fenti kódban A2: A6 az a cellahivatkozás, amely a lapneveket tartalmazza, igény szerint módosíthatja.
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a listában nem szereplő lapokat egyszerre törölték, lásd a képernyőképet:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!