Kaip ištrinti lapus „Excel“ (nuorodos + VBA)

Dirbdami su „Excel“, didžiąją laiko dalį praleidžiate darbalapyje (tai yra sritis, kurioje yra visos ląstelės ir viskas, kas ten vyksta).

Efektyvus darbas su „Excel“ taip pat reiškia, kad toje pačioje darbaknygėje turite dirbti su keliais darbalapiais.

„Excel“ leidžia lengvai pridėti kelis darbalapius į darbaknygę, tuo pačiu metu taip pat galite lengvai ištrinti šiuos darbalapius.

Šioje „Excel“ pamokoje aš jums parodysiu, kaip greitai ištrinkite darbalapius „Excel“. Apimčiau kelis metodus, tokius kaip sparčiųjų klavišų naudojimas, juostos parinktys ir VBA, norint ištrinti lapus „Excel“.

Pastaba: šioje pamokoje žodžius „lapas“ ir „darbalapis“ naudosiu pakaitomis. Tačiau, norėdamas pasakyti skirtumą, skaičiuoklėse būtų ir darbalapiai, ir diagramų lapai, tačiau kadangi diagramų lakštai nėra tokie dažniausiai naudojami, kiekvieną kartą, kai naudoju žodį „lapas“, laikykite jį darbalapiu.

Ištrinkite lapus naudodami dešiniojo pelės mygtuko paspaudimo parinktis

Lengviausias būdas ištrinti darbalapį „Excel“ yra naudojant šią paprastą dviejų paspaudimų pelės techniką.

Tarkime, kad turite darbalapį, kuriame yra trys lapai, kaip parodyta žemiau, ir norite ištrinti „Sheet1“.

Žemiau pateikiami žingsniai, kaip tai padaryti:

1. Dešiniuoju pelės mygtuku spustelėkite lapą, kurį norite ištrinti
2. Spustelėkite ištrynimo parinktį
3. Pasirodžiusiame raginime spustelėkite mygtuką Ištrinti

Taip pat galite naudoti aukščiau aprašytą metodą lapams, kurie net nėra aktyvus lapas. Pavyzdžiui, jei šiuo metu esu „Sheet1“ ir noriu ištrinti „Shee3“, galiu tiesiog dešiniuoju pelės mygtuku spustelėti „Sheet3“ ir jį ištrinti.

Taip pat galite naudoti tą pačią techniką ištrinti kelis lapus vienu metu.

Pvz., Jei noriu ištrinti „Sheet2“ ir „Sheet3“ vienu ypu, galiu laikyti valdymo klavišą ir po vieną spustelėti „Sheet2“ ir „Sheet3“ (vis tiek laikydami valdymo klavišą).

Laikydami nuspaudę valdymo klavišą, „Excel“ leistų vienu metu pasirinkti kelis lapus. Baigęs pasirinkti norimus lapus, galiu palikti valdymo klavišą. Dabar galiu dešiniuoju pelės mygtuku spustelėti bet kurį pasirinktų lapų skirtuką ir spustelėti „Ištrinti“.

Atminkite, kad negalite ištrinti visų „Excel“ darbaknygės darbalapių. darbo knygoje visada turi būti bent vienas lapas. jei bandysite ištrinti visus darbalapius (arba vienintelį aktyvų lapą), pamatysite raginimą, nurodantį, kad jums neleidžiama to daryti

Spartieji klavišai, skirti darbo lapams ištrinti

Yra ne vienas, o du su puse spartieji klavišai, kuriais galite ištrinti darbalapius „Excel“.

Sakau du su puse, nes vienas iš sparčiųjų klavišų naudoja pelę ir klaviatūrą (ir vis tiek yra greitesnis būdas tai padaryti)

Hibridinis spartusis klavišas, skirtas ištrinti lapą

Dešiniuoju pelės mygtuku spustelėkite + D.

Norėdami ištrinti pasirinktą darbalapį ar darbalapius, dešiniuoju pelės mygtuku spustelėkite ir paspauskite klaviatūros klavišą D.

Man asmeniškai tai atrodo daug greičiau, nei tik naudojant pelę darbalapiui ištrinti (kaip aprašiau aukščiau esančiame skyriuje)

Įprastas spartusis klavišas, skirtas ištrinti lapą

ALT + H + D + S

Jei norėtumėte atsisakyti pelės ir naudoti tik klaviatūrą, aukščiau pateiktas spartusis klavišas ištrins aktyvų lapą arba pasirinktus lapus.

Šiuos klavišus turite paspausti iš eilės (t. Y. Vieną po kito)

Nors tai gali atrodyti kaip šiek tiek ilgesnis spartusis klavišas, pripratus prie jo jis yra toks pat greitas, kaip ir bet kuri kita šioje pamokoje aprašyta technika

Senas spartusis klavišas, skirtas ištrinti darbalapius

Kaip ir visi kiti, „Excel“ taip pat turi praeitį ir nėra tokia graži. Kalbu apie išankstinio kaspino stiliaus erą.

Dėl suderinamumo priežasčių „Excel“ vis dar leidžia kai kuriems iš tų senų sparčiųjų klavišų veikti naujesnėse versijose. ir daugeliu atvejų tie ankstesni spartieji klavišai yra trumpesni ir geresni.

Laimei, yra senas spartusis klavišas, kuris padeda ištrinti darbalapius „Excel“

ALT + E + L

„ActiveSheet“ ištrynimas naudojant VBA

Kai reikia ištrinti vieną lapą ar porą darbalapių, geriau naudoti aukščiau paminėtus metodus.

Nors VBA gali automatizuoti procesą, tai naudinga, kai užduotį turite pakartoti kelis kartus.

Kaip matysite, naudodami VBA galite nuveikti daug daugiau, kai reikia ištrinti darbalapius „Excel“.

Taigi nukelsiu jus į sudėtingesnius naudojimo atvejus, tačiau prieš tai pažiūrėkime, kaip tiesiog ištrinti aktyvų darbalapį naudojant VBA.

Žemiau yra VBA kodas, kuris ištrins aktyvų lapą:

Sub DeleteSheet () ActiveSheet. Ištrinti pabaigos sub

Jei naudojate jį tiesioginiame lange, galite tiesiog naudoti žemiau esančią eilutę:

ActiveSheet.Delete

Kai naudojate aukščiau esantį kodą aktyviam lapui ištrinti, „Excel“ parodys raginimą, kuriame turėsite spustelėti ištrynimo mygtuką, kad patvirtintumėte veiksmą.

Lakšto ištrynimas nerodant patvirtinimo raginimo

Patvirtinimo raginimo pranešimų laukelis yra naudinga funkcija, užtikrinanti, kad turite galimybę atšaukti lapo ištrynimą, jei kodą paleistumėte atsitiktinai/klaidingai

Bet jei jau žinote, ką darote, gauti šį raginimą gali būti gana erzina.

taigi čia yra VBA kodas, kuris užtikrintų, kad lapai būtų ištrinti, bet nematote jokio patvirtinimo raginimo pranešimo laukelio.

Sub DeleteSheet () Application.DisplayAlerts = False ActiveSheet.Delete Application.DisplayAlerts = Tikrosios pabaigos sub

Pirmiau pateiktame kode nustatiau ypatybę „Application.DisplayAlerts“ į „false“, o tai reiškia, kad „Excel“ nerodys jokių ekrano įspėjimų, kol kodas veikia.

Taip pat tikrai svarbu įsitikinti, kad kodo pabaigoje jį paversite tiesa, kad atkurtumėte funkcionalumą (kaip matote, aš padariau aukščiau pateiktame kode).

Įspėjimas: kai nustatote ypatybę „Application.DisplayAlerts“ į „false“, „Excel“ tiesiog ištrins darbalapį ir nebus galimybės jį atkurti. todėl patariu pasidaryti atsarginę kopiją prieš naudojant tokį kodą.

Lakšto ištrynimas pagal pavadinimą (jei jis yra) naudojant VBA

VBA leidžia automatizuoti konkretaus darbalapio ištrynimo procesą (keliuose darbalapiuose) pagal lapo pavadinimą.

Pavyzdžiui, jei turite darbalapį pavadinimu „Pardavimas“, galite jį ištrinti naudodami žemiau esantį kodą:

Sub DeleteSheetByName () Sheets ("Sales"). Ištrinti pabaigos sub

Šis kodas ištrintų tik lapą, pavadintą Pardavimai.

Tai naudinga, kai turite darbaknygę su daugybe lapų ir nenorite persijoti visų darbalapių, suraskite tą, kurio pavadinimas parduodamas, ir ištrinkite rankiniu būdu.

Naudojant pirmiau nurodytą kodą, nesvarbu, kiek darbalapių yra darbaknygėje, jis tiesiog ištrintų pardavimo darbalapį.

Ir kadangi aš nepakeičiau „Application.DisplayAlert“ ypatybės, pamatysite raginimą, kuriame turėsite spustelėti ištrynimo mygtuką, kad patvirtintumėte pardavimo lapo trukmę.

Jei norite ištrinti kelis lapus pagal jų pavadinimą, taip pat galite tai padaryti.

Pavyzdžiui, žemiau pateiktas kodas ištrintų lapus, pavadintus Pardavimai, Rinkodara, Finansai:

Sub DeleteSheetsByName () Sheets ("Sales"). Ištrinti Sheets ("Marketing"). Ištrinti Sheets ("Finance"). Ištrinti End Sub

Visų lapų, išskyrus aktyvųjį, ištrynimas naudojant VBA

Jei turite darbaknygę su keliais darbalapiais ir norite ištrinti visus darbalapius, išskyrus aktyvų lapą, VBA tikriausiai yra vienas iš geresnių būdų tai padaryti.

Žemiau yra VBA kodas, kuris ištrintų visus lapus, išskyrus aktyvų lapą darbo knygoje.

Sub DeleteSheetByName () Dim ws as Workheet Application.DisplayAlerts = False for each ws in Sheets If ws.Name ActiveSheet.Name then ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Atminkite, kad sakiau, kad „Application.DisplayAlerts“ ypatybė patenka į kodo pradžią, nes nenoriu matyti kiekvieno ištrinamo lapo raginimo.

Ištrinkite visus lapus, kurių pavadinime yra tam tikra teksto eilutė

Tai šiek tiek pažangesnis naudojimo atvejis, kai VBA veiksmingai naudojamas ištrinant darbalapius.

Tarkime, kad turite darbaknygę su daugybe skirtingų darbalapių ir norite ištrinti visus darbalapius, kuriuose yra tam tikra teksto eilutė, tada galite lengvai tai padaryti naudodami VBA.

Pavyzdžiui, žemiau turiu darbaknygę, kurioje noriu ištrinti visus darbalapius, kuriuose yra teksto eilutė „Pardavimas“.

Žemiau yra VBA kodas, kuris tai padarytų:

Sub DeleteSheetByName () Dim ws As Workheet Application.DisplayAlerts = Klaidinga kiekvienam ws lape, jei ws.Name Kaip "*" & "Sales" & "*" Tada MsgBox ws.Name ws.Delete End If Next ws Application.DisplayAlerts = „True End Sub“

Aukščiau pateiktas kodas naudoja teiginį „tada“, kad peržiūrėtų visus darbaknygės darbalapius. Jis tikrina visų šių darbalapių pavadinimus ir, jei pavadinime yra žodis „Pardavimas“, šis darbalapis ištrinamas.

Jei norite pakeisti kodą ir ieškoti kitos teksto eilutės, galite tai pakeisti penktoje aukščiau esančio kodo eilutėje.

Taip pat atkreipkite dėmesį, kad abiejose teksto eilutės pusėse, kurių ieškome darbalapio pavadinime, naudojau žvaigždutę (*), kuri yra pakaitos simbolis. Tai užtikrina, kad nesvarbu, kur eilutė rodoma darbalapio pavadinime, ji vis tiek bus ištrinta.

Taip pat galite modifikuoti kodą, kad įsitikintumėte, jog ištrinami tik tie darbalapiai, kuriuose teksto eilutė rodoma darbalapio pavadinimo pradžioje.

Pavyzdžiui, jei norite ištrinti tuos lapus, kurių pradžioje pateikiamas terminas pardavimas, penktoje eilutėje naudokite šį kodą.

Jei ws.Vardas kaip "*" & "Sales" & "*" Tada

Čia „wild card“ simbolį naudojau tik po teksto gėrimo, o ne prieš jį. Tai užtikrins, kad tikrinant darbalapio pavadinimus tik tie, kurie atitiktų kriterijus, kai pavadinimo pradžioje yra terminas „Pardavimas“.

Taigi tai yra keletas metodų, kuriuos galite naudoti, kai norite ištrinti „Excel“ lapus. Daugeliu atvejų tai galite lengvai padaryti darbalapyje naudodami pelę arba spartųjį klavišą.

Bet jei turite sunkią darbaknygę su daugybe darbalapių ir norite greitai ištrinti tam tikros rūšies lapus, taip pat galite naudoti VBA.

Tikiuosi, kad ši pamoka jums buvo naudinga.