Hur tar jag bort ark om arknamnet inte finns i en lista?
Låt oss säga att jag har ett kalkylblad som innehåller en lista över arknamn i arbetsboken i kolumn A enligt skärmbilden nedan, och vissa vissa arknamn i arbetsboken finns inte i listan, nu vill jag ta bort de ark som inte är i listan i kolumn A. Hur kunde jag lösa denna uppgift i Excel snabbt och enkelt?
Ta bort ark som inte finns i en specifik lista med VBA-kod
Ta bort ark som inte finns i en specifik lista med VBA-kod
Normalt kan du kontrollera arknamnen ett efter ett och ta bort de som inte finns i arknamnslistan. Men här kan jag prata om en VBA-kod för att hantera det. Gör så här:
1. Gå till kalkylbladet som innehåller listan med arknamn och håll sedan ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka sedan Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Ta bort ark som inte finns i en lista
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 "No sheets found to delete.", vbInformation, "Kutools for Excel"
Else
MsgBox "Have deleted " & cnt & " worksheets."
End If
End Sub
Anmärkningar: I ovanstående kod, A2: A6 är cellreferensen som innehåller arknamnen, du kan ändra den efter dina behov.
3. Och tryck sedan på F5 nyckel för att köra den här koden, arken som inte finns i listan har raderats på en gång, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!