Kako izbrisati liste v Excelu (bližnjice + VBA)

Pri delu z Excelom večino časa preživite na delovnem listu (to je območje, ki vsebuje vse celice in vse, kar se tam dogaja).

Učinkovito delo z Excelom pomeni tudi, da morate v istem delovnem zvezku delati z več delovnimi listi.

Excel vam omogoča enostavno dodajanje več delovnih listov v delovni zvezek, hkrati pa lahko tudi preprosto izbrišete te delovne liste.

V tej vadnici Excel vam bom pokazal, kako hitro brisanje delovnih listov v Excelu. Zajel bi več načinov, na primer uporabo bližnjic na tipkovnici, možnosti na traku in VBA za brisanje listov v Excelu.

Opomba: V tej vadnici bom besede "list" in "delovni list" uporabljal zamenljivo. Če pa vam povem razliko, bi listi vključevali delovne liste in liste grafikonov, ker pa listi grafikonov niso tako pogosto uporabljeni, jih vedno, ko uporabim besedo List, štejem za delovni list.

Brisanje listov z možnostmi desnega klika

Najlažji način za brisanje delovnega lista v Excelu je uporaba te preproste tehnike miške z dvema klikom.

Recimo, da imate delovni list s tremi listi, kot je prikazano spodaj, in želite izbrisati List1.

Spodaj so navedeni koraki za to:

1. Z desno miškino tipko kliknite list, ki ga želite izbrisati
2. Kliknite možnost brisanja
3. V pozivu, ki se prikaže, kliknite gumb Izbriši

Zgornjo tehniko lahko uporabite tudi na listih, ki niti niso aktivni. Na primer, če sem trenutno na Sheet1 in želim izbrisati Shee3, lahko preprosto z desno tipko miške kliknem Sheet3 in ga izbrišem.

Z isto tehniko lahko uporabite tudi izbrišite več listov hkrati.

Če na primer želim izbrisati Sheet2 in Sheet3 naenkrat, lahko držim kontrolno tipko in kliknem Sheet2 in Sheet3 enega za drugim (medtem ko še vedno držim kontrolno tipko).

Z držanjem kontrolne tipke bi mi Excel omogočil, da naenkrat izberem več listov. Ko končam z izbiro želenih listov, lahko pustim kontrolni ključ. zdaj lahko z desno miškino tipko kliknem kateri koli od izbranih zavihkov listov in kliknem na izbriši.

Ne pozabite, da v Excelu ne morete izbrisati vseh delovnih listov v delovnem zvezku. v delovnem zvezku mora biti vedno vsaj en list. če poskusite izbrisati vse delovne liste (ali edini aktivni list), se prikaže poziv, ki vam pove, da tega ne smete storiti

Bližnjice na tipkovnici za brisanje delovnih listov

Za brisanje delovnih listov v Excelu lahko uporabite le eno in dve bližnjici na tipkovnici.

Pravim dve in pol, ker eno od bližnjic uporablja tako miško kot tipkovnico (in je še vedno hitrejši način)

Hibridna bližnjica na tipkovnici za brisanje lista

Desni klik + D

Če želite izbrisati izbrani delovni list ali delovne liste, z desno tipko miške kliknite in nato pritisnite tipko D na tipkovnici.

Osebno se mi zdi to veliko hitreje kot le uporaba miške za brisanje delovnega lista (kot sem opisal v zgornjem razdelku)

Običajna bližnjica na tipkovnici za brisanje lista

ALT + H + D + S

Če bi raje umaknili miško in uporabljali samo tipkovnico, bo zgornja bližnjica na tipkovnici izbrisala aktivni list ali izbrane liste.

Te tipke morate pritisniti zaporedoma (to je ena za drugo)

Čeprav je morda videti kot nekoliko daljša bližnjica na tipkovnici, je, ko se je navadite, enako hitra kot katera koli druga tehnika, zajeta v tej vadnici

Starejša bližnjica na tipkovnici za brisanje delovnih listov

Kot vsi drugi ima tudi Excel preteklost in ni tako lepa. Govorim o dobi sloga pred trakom.

Zaradi združljivosti Excel še vedno dovoljuje, da nekatere stare tipkovne bližnjice delujejo v novejših različicah. in v mnogih primerih so te prejšnje bližnjice krajše in boljše.

Na srečo obstaja stara bližnjica na tipkovnici, ki deluje za brisanje delovnih listov v Excelu

ALT + E + L

Brisanje lista ActiveSheet z uporabo VBA

Ko gre za brisanje enega lista ali nekaj delovnih listov, je bolje uporabiti zgoraj omenjene metode.

Čeprav lahko VBA proces avtomatizira, je koristna, ko morate nalogo večkrat ponoviti.

Kot boste videli, lahko z VBA naredite veliko več pri brisanju delovnih listov v Excelu.

Zato vas bom popeljal v naprednejše primere uporabe, pred tem pa poglejmo, kako preprosto izbrisati aktivni delovni list z uporabo VBA.

Spodaj je koda VBA, ki bo izbrisala aktivni list:

Sub DeleteSheet () ActiveSheet.Delete End Sub

Če ga uporabljate v neposrednem oknu, lahko preprosto uporabite spodnjo vrstico:

ActiveSheet.Delete

Ko z zgornjo kodo izbrišete aktivni list, vam Excel prikaže poziv, kjer morate klikniti gumb za brisanje, da potrdite dejanje.

Brisanje lista brez prikaza potrditvenega poziva

Polje s sporočilom za potrditev je uporabna funkcija, ki vam omogoča, da prekličete brisanje lista, če ste kodo zagnali pomotoma/pomotoma

Če pa že veste, kaj počnete, je lahko ta poziv zelo dražljiv.

Torej, tukaj je koda VBA, ki bi zagotovila, da so listi izbrisani, vendar ne vidite nobenega polja s sporočilom za potrditev.

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

V zgornji kodi sem lastnost Application.DisplayAlerts nastavil na false, kar pomeni, da vam Excel med izvajanjem kode ne bo prikazal opozoril na zaslonu.

Prav tako je zelo pomembno, da na koncu kode znova nastavite vrednost true, da obnovite funkcionalnost (kot vidite, sem to storil v zgornji kodi).

Pozor: Ko lastnost Application.DisplayAlerts nastavite na false, bi Excel preprosto izbrisal delovni list in ga ne bi bilo mogoče obnoviti. zato vam svetujem, da pred uporabo tovrstne kode naredite varnostno kopijo.

Brisanje lista po imenu (če obstaja) z uporabo VBA

VBA vam omogoča, da avtomatizirate postopek brisanja določenega delovnega lista (na več delovnih listih) glede na ime lista.

Če imate na primer delovni list z imenom »Prodaja«, ga lahko zbrišete s spodnjo kodo:

Sub DeleteSheetByName () Sheets ("Sales"). Izbriši End Sub

Ta koda bi izbrisala le list z imenom Prodaja.

Koristno je, če imate delovni zvezek z veliko listi in ne želite prelistati vseh delovnih listov, poiščite tisto z imenom prodaja in ga ročno izbrišite.

Z zgornjo kodo ni pomembno, koliko delovnih listov je v delovnem zvezku, preprosto bi izbrisali delovni list za prodajo.

Ker lastnosti Application.DisplayAlert nisem spremenil, se prikaže poziv, kjer morate klikniti gumb za brisanje, da potrdite trajanje prodajnega lista.

Če želite izbrisati več listov glede na njihovo ime, lahko to storite tudi.

Spodnja koda bi na primer izbrisala liste z imenom Prodaja, Trženje, Finance:

Sub DeleteSheetsByName () Sheets ("Sales"). Delete Sheets ("Marketing"). Delete the Sheets ("Finance"). Delete End Sub

Brisanje vseh listov razen aktivnega lista z uporabo VBA

Če imate delovni zvezek z več delovnimi listi in želite izbrisati vse delovne liste, razen aktivnega lista, je VBA verjetno eden boljših načinov za to.

Spodaj je koda VBA, ki bi izbrisala vse liste, razen aktivnega lista v delovnem zvezku.

Sub DeleteSheetByName () Zatemni ws kot aplikacijo delovnega lista.DisplayAlerts = False Za vsako ws v listih Če ws.Name ActiveSheet.Name Potem ws.Delete End Če Naslednja ws Application.DisplayAlerts = True End Sub

Upoštevajte, da sem rekel, da lastnost Application.DisplayAlerts pade na začetek kode, saj ne želim videti poziva za vsak izbrisani list.

Izbrišite vse liste z določenim besedilnim nizom v imenu

To je nekoliko naprednejša uporaba učinkovite uporabe VBA pri brisanju delovnih listov.

Recimo, da imate delovni zvezek z veliko različnimi delovnimi listi in želite izbrisati vse delovne liste, ki vsebujejo določen besedilni niz, potem lahko to preprosto storite z uporabo VBA.

Spodaj imam na primer delovni zvezek, v katerem želim izbrisati vse delovne liste, v katerih je besedilni niz »Prodaja«.

Spodaj je koda VBA, ki bi to naredila:

Sub DeleteSheetByName () Zatemni ws kot aplikacijo delovnega lista.DisplayAlerts = False Za vsako ws v listih Če je ws.Name podobno "*" & "Prodaja" & "*" Nato MsgBox ws.Name ws.Delete End Če Naslednja ws Application.DisplayAlerts = True End Sub

Zgornja koda uporablja stavek if-then za pregledovanje vseh delovnih listov v delovnem zvezku. Preveri ime vseh teh delovnih listov in če ime vsebuje besedo »Prodaja«, se ta delovni list izbriše.

Če želite spremeniti kodo in poiskati kateri koli drug besedilni niz, lahko to spremenite v peti vrstici zgornje kode.

Upoštevajte tudi, da sem na obeh straneh besedilnega niza, ki ga iščemo v imenu delovnega lista, uporabil zvezdico (*), ki je znak z nadomestnim znakom. To zagotavlja, da bo ne glede na to, kje je niz v imenu delovnega lista, še vedno izbrisan.

Kodo lahko spremenite tudi, da se prepričate, da so izbrisani le tisti delovni listi, kjer je besedilni niz na začetku imena delovnega lista.

Na primer, če želite izbrisati tiste liste, kjer se izraz prodaja pojavi na začetku, uporabite naslednjo kodo v peti vrstici.

Če ws.Name kot "*" & "Prodaja" & "*" Potem

Tu sem znak wildcard uporabil šele po besedilnem napitku in ne pred njim. To bo med preverjanjem imen delovnega lista zagotovilo le to, da bodo izpolnjevali merila, kjer je izraz „prodaja“ na začetku imena.

To je torej nekaj načinov, ki jih lahko uporabite, če želite izbrisati liste v Excelu. V večini primerov lahko to preprosto storite neposredno na delovnem listu z miško ali bližnjico na tipkovnici.

Če pa imate težek delovni zvezek z veliko delovnimi listi in želite hitro izbrisati določene vrste listov, lahko uporabite tudi VBA.

Upam, da vam je bila ta vadnica koristna.