Indholdsfortegnelse
I Microsoft Excel kan vi slette flere ark med forskellige nemme metoder. Vi kan anvende indstillinger fra kontekstmenuen eller Excel-bånd, og nogle gange kan vi også indsætte VBA-koder for at opfylde vores krav. I denne artikel får du mulighed for at lære alle de egnede metoder til at slette flere ark i Excel med passende eksempler og illustrationer.
Arbejdsbog til øvelser
Download følgende arbejdsbog og øvelse.
Slet flere ark.xlsx4 nemme måder at slette flere ark i Excel på
1. Brug Ribbon Option til at slette flere ark i Excel
Fra den Bånd kan vi slette flere ark.
TRIN:
- Vælg de ark, som vi vil slette, ved at trykke på og holde Skift nøgle.
- Gå nu til Hjem og vælg Slet > Slet ark .
- Der åbnes en dialogboks.
- Klik på OK .
- Derefter kan vi se, at de valgte ark er slettet.
2. Brug arkindstillingen til at slette flere ark i Excel
2.1 For tilstødende regneark
Vi skal følge nedenstående trin for at slette flere regneark, der støder op til hinanden.
TRIN:
- Ved at trykke på og holde Skift tasten, vælg det første ark og det sidste med musen, som vi vil slette.
- Højreklik på museknappen på fanen Ark og vælg Slet .
- Endelig slettes arkene.
2.2 For ikke-tilstødende regneark
Vi kan også slette de ikke-tilstødende regneark.
TRIN:
- Vælg de celler, som vi vil slette, ved at trykke på Ctrl nøgle.
- Gå nu til fanen Ark, Højreklik på på musen, og vælg Slet .
- Der vises en dialogboks.
- Klik på OK og se resultatet.
3. Slet flere regneark ved hjælp af hybridtastaturet
At slette flere regneark i Excel ved at trykke på tastaturet er en af de nemmeste og hurtigste måder. Vi skal blot vælge arkene, Højreklik på på fanen Ark, og tryk på D fra tastaturet. Arkene slettes.
4. Indsæt VBA-koder til at slette flere Excel-ark
4.1 Slet alle ark, der beholder det aktive ark
VBA er en af de mest velegnede metoder til at slette alle ark undtagen det aktive ark.
TRIN:
- Vælg det aktive ark under fanen Ark, Højreklik på på musen, og vælg Se kode .
- Kopier nu følgende koder, og indsæt dem i dit VBA-modul.
Option Explicit Sub deletemultiplesheets() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In Sheets If spreadsheet.Name ActiveSheet.Name Then spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub
- Tryk på Kør og vi vil se, at alle ark er slettet undtagen det aktive.
Læs mere: Sådan sletter du Excel-ark ved hjælp af VBA (10 VBA-makroer)
4.2 Sletning af ark med en specifik tekststreng
Vi kan nemt slette alle ark med en bestemt tekststreng.
TRIN:
- Vælg arket under fanen Ark.
- Nu Højreklik på på musen, og vælg Se kode .
- Kopier derefter følgende koder, og indsæt dem i dit VBA-modul. Og klik på Kør mulighed.
Option Explicit Sub DeleteSheetWithSameName() Dim spreadsheet As Worksheet Application.DisplayAlerts = False For Each spreadsheet In sheets If spreadsheet.Name Like "*" & "Sales1" & "*" Then MsgBox spreadsheet.Name spreadsheet.Delete End If Next spreadsheet Application.DisplayAlerts = True End Sub
- Der vises en dialogboks til bekræftelse, og vælg OK .
- Endelig kan vi se, at de valgte ark med de valgte tekststrenge er slettet.
Konklusion
Ved at følge disse metoder kan vi nemt slette flere ark i Excel. Der er tilføjet en øvelsesarbejdsmappe. Prøv det bare. Du er velkommen til at spørge om noget eller foreslå nye metoder.