Hvordan slettes alle ark undtagen specificeret / aktuelt i Excel?
For at slette alle ark i en Excel-projektmappe undtagen specificeret et eller aktuelt aktivt ark, kan du håndtere dette som vist nedenfor.
Slet alle ark undtagen angivet et med VBA-kode
Et klik for at slette alle ark undtagen den aktuelle aktive med Kutools til Excel
Slet alle ark undtagen angivet et med VBA-kode
Med nedenstående VBA-kode kan du slette alle ark i en projektmappe undtagen specifikke i Excel.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic-applikation vindue.
2. klik indsatte > Moduler, kopier og indsæt derefter under VBA-kode i modulvinduet.
VBA-kode: Slet alle ark undtagen specificerede ark
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Noter:
1. "Sheet1"Og"Sheet2”Er ark, du vil gemme i den aktuelle projektmappe. Du kan ændre dem ud fra dine behov.
2. Hvis du vil slette alle, men beholde flere ark, skal du tilføje kode Og xWs.Name <> "dit arknavn" før Derefter ord i den sjette linje i koden. Såsom:
Hvis xWs.Name <> "Sheet1" Og xWs.Name <> "Sheet2" Og xWs.Name <> "dit arknavn" Derefter
3. Hvis du bare vil beholde et ark og slette alt fra projektmappen, skal du fjerne alt og tilstand i koden. For eksempel for at opbevare ark1 i den aktuelle projektmappe skal du ændre den sjette linjekode til: Hvis xWs.Name <> "Sheet1" Derefter
Slet alle ark undtagen den aktuelle aktive med Kutools til Excel (kun et klik)
YDu kan nemt fjerne alle ark undtagen det aktuelle aktive ark med kun et klik forbi Slet alle inaktive ark nytte af Kutools til Excel.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. klik Kutools Plus > Arbejdsark > Slet alle inaktive ark.
3. Derefter vises en dialogboks, hvis du bestemmer dig for at slette alle ark undtagen den aktive, skal du klikke på OK knappen, ellers skal du klikke på Ophæve .
Derefter slettes alle ark undtagen den aktuelle aktive i din projektmappe.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Tilføj tekst midt i markerede celler med Kutools til Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!