Så här tar du bort ark i Excel (genvägar + VBA)

När du arbetar med Excel spenderar du större delen av din tid på kalkylbladet (vilket är området som har alla celler och allt som händer där).

Att arbeta effektivt med Excel innebär också att du måste arbeta med flera kalkylblad i samma arbetsbok.

Med Excel kan du enkelt lägga till flera kalkylblad i arbetsboken, samtidigt kan du enkelt ta bort dessa kalkylblad.

I denna Excel -handledning visar jag dig hur du snabbt ta bort kalkylblad i Excel. Jag skulle täcka flera metoder som att använda kortkommandon, alternativ i menyfliksområdet och VBA för att ta bort ark i Excel.

Obs! I den här självstudien kommer jag att använda orden "blad" och "kalkylblad" omväxlande. Men för att berätta skillnaden, skulle Sheets inkludera såväl kalkylblad som diagramark, men eftersom diagramark inte är så vanligt förekommande, när jag använder ordet Sheet betraktar det som ett kalkylblad.

Ta bort ark med högerklickalternativ

Det enklaste sättet att ta bort ett kalkylblad i Excel är med hjälp av denna enkla musteknik med två klick.

Anta att du har ett kalkylblad som har tre ark enligt nedan, och du vill ta bort Sheet1.

Nedan följer stegen för att göra detta:

1. Högerklicka på det blad som du vill ta bort
2. Klicka på alternativet Radera
3. Klicka på knappen Ta bort i prompten som visas

Du kan också använda ovanstående teknik på ark som inte ens är det aktiva arket. Till exempel, om jag för närvarande är på Sheet1 och jag vill ta bort Shee3, kan jag helt enkelt högerklicka på Sheet3 och ta bort det.

Du kan också använda samma teknik för att radera flera ark samtidigt.

Om jag till exempel vill radera Sheet2 och Sheet3 på en gång kan jag hålla ned kontrollknappen och klicka på Sheet2 och Sheet3 en efter en (samtidigt som jag håller ned kontrollknappen).

Genom att hålla ned kontrollknappen skulle Excel tillåta mig att välja flera ark på en gång. När jag väl har valt de önskade arken kan jag lämna kontrollnyckeln. nu kan jag högerklicka på någon av de valda bladflikarna och klicka på ta bort.

Kom ihåg att du inte kan ta bort alla kalkylblad i en arbetsbok i Excel. det måste alltid finnas minst ett ark i arbetsboken. om du försöker ta bort alla kalkylblad (eller det enda aktiva bladet) ser du en uppmaning som säger att du inte får göra detta

Kortkommandon för att ta bort arbetsblad

Det finns inte en men två och en halv kortkommandon som du kan använda för att ta bort kalkylblad i Excel.

Jag säger två och ett halvt eftersom en av genvägarna han använder musen och tangentbordet (och är fortfarande ett snabbare sätt att göra det)

Hybrid tangentbordsgenväg för att ta bort blad

Högerklicka + D

För att radera det eller de valda kalkylbladet, högerklicka och tryck sedan på D-tangenten på tangentbordet.

Personligen tycker jag att det här är mycket snabbare än att bara använda musen för att radera ett kalkylblad (som jag täckte i avsnittet ovan)

Vanlig tangentbordsgenväg för att ta bort blad

ALT + H + D + S

Om du hellre föredrar att släppa musen och bara använda tangentbordet kommer tangentbordsgenvägen ovan att ta bort det aktiva arket eller de valda arken.

Du måste trycka på dessa tangenter i följd (dvs den ena efter den andra)

Även om det kan se ut som en något längre tangentbordsgenväg, är det väl lika snabbt som någon annan teknik som omfattas av den här självstudien när du vänjer dig

Äldre tangentbordsgenväg för att ta bort kalkylblad

Precis som alla andra har Excel också ett förflutet, och det är inte så vackert. Jag pratar om tiden före bandet.

Av kompatibilitetsskäl tillåter Excel fortfarande att några av de gamla kortkommandona fungerar i de nyare versionerna. och i många fall är de tidigare genvägarna kortare och bättre.

Lyckligtvis finns det en äldre tangentbordsgenväg som fungerar för att ta bort kalkylblad i Excel

ALT + E + L

Ta bort ActiveSheet med VBA

När det gäller att radera ett ark eller ett par kalkylblad är det bättre att använda ovanstående metoder.

Även om VBA kan automatisera processen, kommer den till nytta när du måste upprepa uppgiften flera gånger.

Som du ser kan du med VBA göra mycket mer när det gäller att radera kalkylblad i Excel.

Så jag tar dig till mer avancerade användningsfall, men innan det får vi se hur du helt enkelt tar bort det aktiva kalkylbladet med VBA.

Nedan finns VBA -koden som tar bort det aktiva arket:

Sub DeleteSheet () ActiveSheet.Delete End Sub

Om du använder det i det omedelbara fönstret kan du helt enkelt använda raden nedan:

ActiveSheet.Delete

När du använder koden ovan för att radera det aktiva bladet, skulle Excel visa dig en prompt där du måste klicka på raderingsknappen för att bekräfta åtgärden.

Radera arket utan att visa bekräftelseprompten

Meddelanderutan för bekräftelse är en användbar funktion som ser till att du har en chans att avbryta borttagningen av arket om du har kört koden av misstag/felaktigt

Men om du redan vet vad du gör kan det vara ganska irriterande att få den här prompten.

så här är VBA -koden som skulle se till att arken raderas men du inte ser någon bekräftelsemeddelande.

Sub DeleteSheet () Application.DisplayAlerts = Falskt ActiveSheet.Delete Application.DisplayAlerts = True End Sub

I koden ovan har jag ställt in egenskapen Application.DisplayAlerts till falsk, vilket innebär att Excel inte visar några visningsvarningar medan koden körs.

Det är också väldigt viktigt att se till att du återställer det till sant i slutet av koden för att återställa funktionaliteten (som du kan se har jag gjort i koden ovan).

Varning: När du anger egenskapen Application.DisplayAlerts till falsk, tar Excel helt enkelt bort kalkylbladet och det går inte att återställa det. så jag råder dig att göra en säkerhetskopia innan du använder den här typen av kod.

Radera blad efter namn (om det finns) med VBA

VBA låter dig automatisera processen att radera ett specifikt kalkylblad (på flera kalkylblad) baserat på bladnamnet.

Om du till exempel har ett kalkylblad med namnet "Försäljning" kan du använda koden nedan för att radera det:

Sub DeleteSheetByName () Sheets ("Sales"). Radera End Sub

Denna kod tar bara bort det blad som har namnet Sales.

Det är användbart när du har en arbetsbok med många blad och du inte vill bläddra igenom alla kalkylblad för att hitta den med namnförsäljningen och ta bort den manuellt.

Med koden ovan spelar det ingen roll hur många kalkylblad det finns i arbetsboken, det skulle helt enkelt ta bort försäljningsarket.

Och eftersom jag inte har ändrat Application.DisplayAlert -egenskapen kommer du att få en prompt där du måste klicka på raderingsknappen för att bekräfta försäljningsbladets varaktighet.

Om du vill radera flera ark baserat på deras namn kan du också göra det.

Till exempel raderas koden nedan med namnet Sales, Marketing, Finance:

Sub DeleteSheetsByName () Sheets ("Sales"). Radera Sheets ("Marketing"). Radera Sheets ("Finance"). Radera End Sub

Radera alla ark utom det aktiva bladet med VBA

Om du har en arbetsbok med flera kalkylblad i den och du vill ta bort alla kalkylblad utom det aktiva arket är VBA förmodligen en av de bättre metoderna för att göra detta.

Nedan finns VBA -koden som raderar alla blad utom det aktiva arket i arbetsboken.

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = Falskt för varje ws i Sheets If ws.Name ActiveSheet.Name Sedan ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Observera att jag har sagt att Application.DisplayAlerts -egenskapen faller i början av koden, eftersom jag inte vill se en prompt för varje ark som raderas.

Ta bort alla blad med en specifik textsträng i namnet

Detta är ett lite mer avancerat användningsfall för att använda VBA effektivt när du tar bort kalkylblad.

Anta att du har en arbetsbok med många olika kalkylblad och du vill ta bort alla kalkylblad som har en specifik textsträng i dem, så kan du enkelt göra det med VBA.

Till exempel, nedan har jag en arbetsbok där jag vill ta bort alla kalkylblad som har textsträngen "Försäljning" i dem.

Nedan är VBA -koden som skulle göra det:

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = Falskt för varje ws i Sheets If ws.Name Like "*" & "Sales" & "*" Then MsgBox ws.Name ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Koden ovan använder if-then-satsen för att gå igenom alla kalkylblad i arbetsboken. Det kontrollerar namnet på alla dessa kalkylblad och om namnet innehåller ordet "Försäljning" raderas det kalkylbladet.

Om du vill ändra koden och leta efter någon annan textsträng kan du ändra det på den femte raden i ovanstående kod.

Observera också att jag har använt en asterisk (*), som är ett jokertecken, på båda sidor av textsträngen som vi letar efter i kalkylbladets namn. Detta säkerställer att oavsett var strängen visas i kalkylbladets namn, skulle den fortfarande raderas.

Du kan också ändra koden för att se till att endast de kalkylblad raderas där textsträngen visas i början av kalkylbladets namn.

Om du till exempel vill ta bort de blad där termen försäljning visas i början, använd följande kod på den femte raden.

Om ws.Name Gilla "*" & "Försäljning" & "*" Då

Här har jag använt jokertecken först efter textdrycken och inte före det. Detta kommer att se till att när de kontrollerar namnen på kalkylbladet, skulle endast de uppfylla kriterierna där termen "Försäljning" är i början av namnet.

Så det här är några av de metoder som du kan använda när du vill ta bort ark i Excel. I de flesta fall kan du enkelt göra detta direkt i kalkylbladet med musen eller tangentbordsgenväg.

Men om du har en tung arbetsbok med många kalkylblad och du snabbt vill ta bort specifika typer av blad kan du också använda VBA.

Jag hoppas att du fann denna handledning användbar.