Innehållsförteckning
I Microsoft Excel kan vi ta bort flera ark med olika enkla metoder. Vi kan använda alternativ från kontextmenyn eller Excel-banden och ibland kan vi också infoga VBA-koder för att uppfylla våra krav. I den här artikeln får du lära dig alla lämpliga metoder för att ta bort flera ark i Excel med lämpliga exempel och illustrationer.
Arbetsbok för praktiska övningar
Ladda ner följande arbetsbok och övning.
Ta bort flera blad.xlsx4 enkla sätt att ta bort flera blad i Excel
1. Använd Ribbon-alternativet för att ta bort flera blad i Excel
Från Bandet kan vi ta bort flera ark.
STEG:
- Välj de blad som vi vill ta bort genom att hålla ned knappen Skift nyckel.
- Gå nu till Hem och välj Ta bort > Radera blad .
- En dialogruta öppnas.
- Klicka på OK .
- Då kan vi se att de markerade arken raderas.
2. Använd arkalternativet för att ta bort flera ark i Excel
2.1 För angränsande arbetsblad
Vi måste följa stegen nedan för att ta bort flera arbetsblad som ligger bredvid varandra.
STEG:
- Genom att trycka på och hålla ned Skift och välj det första och det sista bladet med musen som du vill ta bort.
- Högerklicka på musknappen på fliken Blad och välj Ta bort .
- Slutligen raderas arken.
2.2 För arbetsblad som inte är intilliggande
Vi kan också ta bort de arbetsblad som inte är intilliggande.
STEG:
- Välj de celler som vi vill ta bort genom att trycka på Ctrl nyckel.
- Gå nu till fliken Blad, Högerklicka på på musen och välj Ta bort .
- En dialogruta öppnas.
- Klicka på OK och se resultatet.
3. Ta bort flera arbetsblad med hybridtangentbordet
Att ta bort flera kalkylblad i Excel genom att trycka på tangentbordet är ett av de enklaste och snabbaste sätten. Vi behöver bara välja ark, Högerklicka på på fliken Blad och tryck på D från tangentbordet. Arken raderas.
4. Infoga VBA-koder för att ta bort flera Excel-blad
4.1 Ta bort alla blad som behåller det aktiva bladet
VBA är en av de mest lämpliga metoderna för att radera alla ark utom det aktiva arket.
STEG:
- På fliken Blad väljer du det aktiva bladet, Högerklicka på på musen och välj Visa kod .
- Kopiera nu följande koder och klistra in dem i din 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
- Tryck på Kör och vi kommer att se att alla ark raderas utom det aktiva.
Läs mer: Hur du tar bort Excel-ark med VBA (10 VBA-makron)
4.2 Ta bort blad med en specifik textsträng
Vi kan enkelt radera alla ark med en viss textsträng.
STEG:
- Välj bladet på fliken Blad.
- Nu Högerklicka på på musen och välj Visa kod .
- Kopiera sedan följande koder och klistra in dem i din VBA-modul och klicka på Kör alternativ.
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
- En dialogruta öppnas för bekräftelse och välj OK .
- Slutligen kan vi se att de markerade arken med de markerade textsträngarna raderas.
Slutsats
Genom att följa dessa metoder kan vi enkelt radera flera ark i Excel. En övningsarbetsbok har lagts till. Prova den. Fråga gärna något eller föreslå nya metoder.