Sådan slettes ark i Excel (genveje + VBA)

Når du arbejder med Excel, bruger du det meste af din tid på regnearket (hvilket er området, der har alle cellerne og alt, hvad der sker der).

Arbejde effektivt med Excel betyder også, at du skal arbejde med flere regneark inden for den samme projektmappe.

Excel giver dig mulighed for nemt at tilføje flere regneark i projektmappen, samtidig kan du også nemt slette disse regneark.

I denne Excel -vejledning viser jeg dig, hvordan du hurtigt slette regneark i Excel. Jeg ville dække flere metoder, såsom at bruge tastaturgenveje, muligheder på båndet og VBA til at slette ark i Excel.

Bemærk: I denne vejledning vil jeg bruge ordene 'ark' og 'regneark' i flæng. Men for at fortælle dig forskellen vil ark omfatte regneark såvel som diagramark, men da diagramark ikke er så almindeligt anvendt, når jeg bruger ordet Ark, betragter det som et regneark.

Slet ark ved hjælp af højreklik

Den nemmeste måde at slette et regneark i Excel er ved at bruge denne enkle museknik med to klik.

Antag, at du har et regneark, der har tre ark som vist nedenfor, og du vil slette Sheet1.

Nedenfor er trinene for at gøre dette:

1. Højreklik på det ark, du vil slette
2. Klik på sletningsmuligheden
3. Klik på knappen Slet i prompten, der vises

Du kan også bruge ovenstående teknik på ark, der ikke engang er det aktive ark. For eksempel, hvis jeg i øjeblikket er på Sheet1, og jeg vil slette Shee3, så kan jeg simpelthen højreklikke på Sheet3 og slette det.

Du kan også bruge den samme teknik til slette flere ark på én gang.

For eksempel, hvis jeg vil slette Sheet2 og Sheet3 på én gang, kan jeg holde kontroltasten nede og klikke på Sheet2 og Sheet3 en efter en (mens jeg stadig holder kontroltasten nede).

Ved at holde kontroltasten indeholdt Excel mig mulighed for at vælge flere ark på én gang. Når jeg er færdig med at vælge de ønskede ark, kan jeg forlade kontrolnøglen. nu kan jeg højreklikke på en af ​​de valgte arkfaner og klikke på slet.

Husk, at du ikke kan slette alle regnearkene i en projektmappe i Excel. der skal altid være mindst et ark i projektmappen. hvis du prøver at slette alle regnearkene (eller det eneste aktive ark), får du vist en prompt, der fortæller dig, at du ikke må gøre dette

Tastaturgenveje til at slette arbejdsarkene

Der er ikke én, men to og en halv tastaturgenveje, som du kan bruge til at slette regneark i Excel.

Jeg siger to og en halv, fordi en af ​​genvejene bruger han musen såvel som tastaturet (og er stadig en hurtigere måde at gøre det på)

Hybrid tastaturgenvej til at slette ark

Højreklik + D

Hvis du vil slette det eller de valgte regneark, skal du højreklikke og derefter trykke på D-tasten på dit tastatur.

Personligt finder jeg dette meget hurtigere end bare at bruge musen til at slette et regneark (som jeg dækkede i ovenstående afsnit)

Almindelig tastaturgenvej til at slette ark

ALT + H + D + S

Hvis du hellere foretrækker at droppe musen og kun bruge tastaturet, vil ovenstående tastaturgenvej slette det aktive ark eller de valgte ark.

Du skal trykke på disse taster efter hinanden (dvs. den ene efter den anden)

Selvom det kan ligne en lidt længere tastaturgenvej, er det, lige når du vænner dig til det, lige så hurtigt som enhver anden teknik, der er dækket i denne vejledning

Ældre tastaturgenvej til at slette regneark

Som alle andre har Excel også en fortid, og den er ikke så smuk. Jeg taler om æraen før båndet.

Af kompatibilitetsgrunde tillader Excel stadig nogle af de gamle tastaturgenveje at fungere i de nyere versioner. og i mange tilfælde er de tidligere genveje kortere og bedre.

Heldigvis er der en ældre tastaturgenvej, der fungerer til at slette regneark i Excel

ALT + E + L

Sletning af ActiveSheet ved hjælp af VBA

Når det kommer til at slette et ark eller et par regneark, er det bedre at bruge de ovennævnte metoder.

Selvom VBA kan automatisere processen, kommer den til nytte, når du skal gentage opgaven flere gange.

Som du vil se, kan du med VBA gøre meget mere, når det kommer til at slette regneark i Excel.

Så jeg tager dig til mere avancerede brugssager, men før det skal vi se, hvordan du simpelthen sletter det aktive regneark ved hjælp af VBA.

Nedenfor er VBA -koden, der sletter det aktive ark:

Sub DeleteSheet () ActiveSheet.Delete End Sub

Hvis du bruger det i det umiddelbare vindue, kan du blot bruge nedenstående linje:

ActiveSheet.Delete

Når du bruger ovenstående kode til at slette det aktive ark, viser Excel dig en prompt, hvor du skal klikke på knappen Slet for at bekræfte handlingen.

Sletning af arket uden at vise bekræftelsesprompten

Bekræftelsesboksen til bekræftelse er en nyttig funktion, der sikrer, at du har en chance for at annullere sletningen af ​​arket, hvis du har kørt koden ved et uheld/fejlagtigt

Men hvis du allerede ved, hvad du laver, kan det være ret irriterende at få denne prompt.

så her er VBA -koden, der ville sikre, at arkene blev slettet, men du kan ikke se nogen meddelelsesboks til bekræftelse.

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

I ovenstående kode har jeg indstillet egenskaben Application.DisplayAlerts til falsk, hvilket betyder, at Excel ikke viser dig nogen advarsler om visning, mens koden kører.

Det er også virkelig vigtigt at sikre, at du vender det tilbage til sand i slutningen af ​​koden for at gendanne funktionaliteten (som du kan se, jeg har gjort i ovenstående kode).

Forsigtig: Når du angiver egenskaben Application.DisplayAlerts til falsk, ville Excel ganske enkelt slette regnearket, og der ville ikke være nogen måde at gendanne det. så jeg råder dig til at lave en sikkerhedskopi, før du bruger denne form for kode.

Sletning af ark efter navn (hvis det findes) ved hjælp af VBA

VBA giver dig mulighed for at automatisere processen med at slette et specifikt regneark (på flere regneark) baseret på arknavnet.

Hvis du f.eks. Har et regneark med navnet 'Salg', kan du bruge nedenstående kode til at slette det:

Sub DeleteSheetByName () Sheets ("Salg"). Slet End Sub

Denne kode ville kun slette det ark, der har navnet Salg.

Det er nyttigt, når du har en projektmappe med mange ark, og du ikke vil gennemse alle regnearkene, finde den med navnet salg og slette den manuelt.

Med ovenstående kode er det ligegyldigt, hvor mange regneark der er i projektmappen, det ville simpelthen slette salgsarket.

Og da jeg ikke har ændret egenskaben Application.DisplayAlert, vil du se en prompt, hvor du skal klikke på knappen Slet for at bekræfte salgsarkets varighed.

Hvis du vil slette flere ark baseret på deres navn, kan du også gøre det.

For eksempel ville nedenstående kode slette arkene med navnet Salg, Marketing, Finans:

Sub DeleteSheetsByName () Sheets ("Salg"). Slet Sheets ("Marketing"). Slet Sheets ("Finance"). Slet End Sub

Sletning af alle ark undtagen det aktive ark ved hjælp af VBA

Hvis du har en projektmappe med flere regneark i den, og du vil slette alle regnearkene undtagen det aktive ark, er VBA sandsynligvis en af ​​de bedre metoder til at gøre dette.

Nedenfor er VBA -koden, der sletter alle arkene undtagen det aktive ark i projektmappen.

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = Falsk for hver ws i Sheets If ws.Name ActiveSheet.Name Herefter ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Bemærk, at jeg har sagt, at egenskaben Application.DisplayAlerts falder i begyndelsen af ​​koden, da jeg ikke ønsker at se en prompt for hvert ark, der slettes.

Slet alle ark med en specifik tekststreng i navnet

Dette er et lidt mere avanceret tilfælde af brug af VBA effektivt, når du sletter regneark.

Antag, at du har en projektmappe med mange forskellige regneark, og du vil slette alle de regneark, der har en bestemt tekststreng i dem, så kan du nemt gøre det ved hjælp af VBA.

For eksempel har jeg nedenfor en projektmappe, hvor jeg vil slette alle de regneark, der har tekststrengen "Salg" i sig.

Nedenfor er VBA -koden, der ville gøre det:

Sub DeleteSheetByName () Dim ws As Worksheet Application.DisplayAlerts = Falsk for hver ws i Sheets If ws.Name Like "*" & "Sales" & "*" Then MsgBox ws.Name ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Ovenstående kode bruger if-then-sætningen til at gå igennem alle regnearkene i projektmappen. Det kontrollerer navnet på alle disse regneark, og hvis navnet indeholder ordet "Salg", slettes dette regneark.

Hvis du vil ændre koden og kigge efter en anden tekststreng, kan du ændre det i den femte linje i ovenstående kode.

Bemærk også, at jeg har brugt en stjerne (*), som er et jokertegn, på begge sider af tekststrengen, som vi leder efter i regnearksnavnet. Dette sikrer, at uanset hvor strengen vises i regnearkets navn, ville den stadig blive slettet.

Du kan også ændre koden for at sikre, at kun disse regneark slettes, hvor tekststrengen vises i begyndelsen af ​​regnearksnavnet.

For eksempel, hvis du vil slette de ark, hvor udtrykket salg vises i begyndelsen, skal du bruge følgende kode i den femte linje.

Hvis ws.Name Kan lide "*" & "Salg" & "*" Så

Her har jeg kun brugt wild card -karakteren efter tekstdrikken og ikke før den. Dette vil sikre, at mens de kontrollerer navnene på regnearket, er det kun dem, der opfylder kriterierne, hvor udtrykket 'Salg' er i begyndelsen af ​​navnet.

Så det er nogle af de metoder, du kan bruge, når du vil slette ark i Excel. I de fleste tilfælde kan du nemt gøre dette lige i regnearket ved at bruge musen eller tastaturgenvejen.

Men hvis du har en tung projektmappe med mange regneark, og du hurtigt vil slette bestemte slags ark, kan du også bruge VBA.

Jeg håber, at du fandt denne vejledning nyttig.