Ako odstrániť hárky v programe Excel (skratky + VBA)

Pri práci s Excelom trávite väčšinu času na pracovnom hárku (čo je oblasť, v ktorej sú všetky bunky a všetko, čo sa tam deje).

Efektívna práca s Excelom tiež znamená, že musíte pracovať s viacerými pracovnými listami v jednom zošite.

Excel umožňuje jednoducho pridať do zošita viacero pracovných hárkov, súčasne tieto pracovné hárky tiež môžete ľahko odstrániť.

V tomto tutoriále k Excelu vám ukážem, ako rýchlo odstrániť pracovné hárky v programe Excel. Na odstránenie hárkov v programe Excel by som pokryl viacero spôsobov, ako napríklad používanie klávesových skratiek, možností na páse s nástrojmi a jazyka VBA.

Poznámka: V tomto tutoriáli budem používať slová „list“ a „pracovný list“ zameniteľne. Ale aby som vám povedal rozdiel, hárky by zahŕňali pracovné hárky aj hárky s grafmi, ale keďže hárky s grafmi nie sú tak bežne používané, kedykoľvek použijem slovo hárok, považuje to za pracovný hárok.

Odstráňte hárky pomocou možností pravým tlačidlom myši

Najľahší spôsob, ako odstrániť pracovný hárok v programe Excel, je použiť túto jednoduchú techniku ​​dvojitého kliknutia myšou.

Predpokladajme, že máte pracovný list, ktorý má tri listy, ako je uvedené nižšie, a chcete odstrániť List1.

Nasledujú kroky, ako to urobiť:

1. Kliknite pravým tlačidlom myši na list, ktorý chcete odstrániť
2. Kliknite na možnosť odstránenia
3. V zobrazenej výzve kliknite na tlačidlo Odstrániť

Vyššie uvedenú techniku ​​môžete použiť aj na listy, ktoré nie sú ani aktívnym listom. Ak som napríklad v súčasnosti na hárku Sheet1 a chcem odstrániť Shee3, potom môžem na Sheet3 jednoducho kliknúť pravým tlačidlom myši a odstrániť ho.

Rovnakú techniku ​​môžete použiť aj na odstrániť viac listov naraz.

Ak napríklad chcem odstrániť hárok 2 a hárok 3 naraz, môžem podržať ovládací kláves a kliknúť na hárok 2 a hárok 3 jeden po druhom (pričom ovládací kláves stále držím).

Podržaním ovládacieho klávesu mi Excel umožní vybrať viac hárkov naraz. Akonáhle skončím s výberom požadovaných hárkov, môžem opustiť ovládací kláves. teraz môžem pravým tlačidlom myši kliknúť na ktorúkoľvek z vybraných kariet hárkov a kliknúť na položku odstrániť.

Nezabudnite, že nemôžete odstrániť všetky pracovné hárky v zošite v programe Excel. v pracovnom zošite musí byť vždy aspoň jeden list. Ak sa pokúsite odstrániť všetky pracovné hárky (alebo iba aktívny hárok), zobrazí sa výzva, ktorá vám povie, že to nemôžete urobiť.

Klávesové skratky na odstránenie pracovných hárkov

Na odstránenie hárkov v programe Excel neexistuje jedna, ale dva a pol klávesové skratky.

Hovorím dva a pol, pretože jednu zo skratiek používa myš aj klávesnicu (a stále je to rýchlejší spôsob)

Hybridná klávesová skratka na odstránenie hárka

Kliknite pravým tlačidlom myši + D

Ak chcete vybratý pracovný hárok alebo pracovné hárky odstrániť, kliknite pravým tlačidlom myši a potom stlačte kláves D na klávesnici.

Osobne to považujem za oveľa rýchlejšie, ako len pomocou myši odstrániť pracovný hárok (ako som uviedol v predchádzajúcej časti).

Bežná klávesová skratka na odstránenie hárka

ALT + H + D + S

Ak by ste radšej upustili od myši a používali iba klávesnicu, vyššie uvedená klávesová skratka vymaže aktívny hárok alebo vybrané listy.

Tieto klávesy musíte stlačiť za sebou (t.j. jeden po druhom)

Aj keď to môže vyzerať ako trochu dlhšia klávesová skratka, keď si na to zvyknete, je to rovnako rýchle ako všetky ostatné techniky popísané v tomto návode.

Staršia klávesová skratka na odstránenie hárkov

Ako každý iný, aj Excel má svoju minulosť a nie je taká pekná. Hovorím o ére pred stužkovou.

Z dôvodov kompatibility Excel stále umožňuje, aby niektoré z týchto starých klávesových skratiek fungovali v novších verziách. a v mnohých prípadoch sú tieto skoršie skratky kratšie a lepšie.

Našťastie existuje staršia klávesová skratka, ktorá funguje na odstraňovanie pracovných hárkov v programe Excel

ALT + E + L

Odstránenie ActiveSheetu pomocou VBA

Pokiaľ ide o vymazanie jedného hárka alebo niekoľkých pracovných hárkov, je lepšie použiť vyššie uvedené metódy.

Aj keď VBA môže tento proces automatizovať, je užitočné, keď musíte úlohu opakovať viackrát.

Ako uvidíte, s VBA môžete urobiť oveľa viac, pokiaľ ide o odstraňovanie pracovných hárkov v programe Excel.

Zoberiem vás na pokročilejšie prípady použitia, ale predtým sa pozrime na to, ako jednoducho odstrániť aktívny pracovný hárok pomocou VBA.

Nasleduje kód VBA, ktorý odstráni aktívny hárok:

Podstavec DeleteSheet () ActiveSheet.Delete End Sub

Ak ho používate v bezprostrednom okne, môžete jednoducho použiť nasledujúci riadok:

ActiveSheet.Delete

Keď použijete vyššie uvedený kód na odstránenie aktívneho hárka, Excel vám zobrazí výzvu, kde budete musieť akciu potvrdiť kliknutím na tlačidlo Odstrániť.

Odstránenie listu bez zobrazenia výzvy na potvrdenie

Okno so správou s potvrdením je užitočná funkcia, ktorá zaisťuje, že máte šancu zrušiť vymazanie hárka v prípade, že ste omylom/omylom spustili kód

Ak však už viete, čo robíte, získanie tejto výzvy môže byť dosť nepríjemné.

tak tu je kód VBA, ktorý by zaistil odstránenie hárkov, ale nezobrazuje sa žiadne okno so správou s potvrdením.

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

Vo vyššie uvedenom kóde som nastavil vlastnosť Application.DisplayAlerts na hodnotu false, čo znamená, že Excel vám počas spustenia kódu nezobrazí žiadne upozornenia na zobrazenie.

Je tiež veľmi dôležité uistiť sa, že ho na konci kódu vrátite na hodnotu true, aby sa obnovila funkčnosť (ako vidíte, urobil som to vo vyššie uvedenom kóde).

Upozornenie: Ak nastavíte vlastnosť Application.DisplayAlerts na hodnotu false, program Excel jednoducho odstráni pracovný hárok a nebude možné ho obnoviť. preto vám odporúčam, aby ste si pred použitím tohto druhu kódu vytvorili záložnú kópiu.

Odstránenie hárka podľa názvu (ak existuje) pomocou VBA

VBA vám umožňuje automatizovať proces odstraňovania konkrétneho pracovného hárka (z viacerých pracovných hárkov) na základe názvu hárka.

Ak máte napríklad pracovný hárok s názvom „Predaj“, môžete ho odstrániť pomocou nižšie uvedeného kódu:

Vedľajšie hárky DeleteSheetByName () („Predaj“). Odstrániť koncový pod

Tento kód odstráni iba hárok s názvom Predaj.

Je to užitočné, keď máte zošit s veľkým počtom hárkov a nechcete si prezerať všetky pracovné hárky, nájsť ten s názvom predaj a ručne ho odstrániť.

Pri vyššie uvedenom kóde nezáleží na tom, koľko pracovných hárkov je v zošite, jednoducho by sa odstránil predajný list.

A pretože som nezmenil vlastnosť Application.DisplayAlert, zobrazí sa výzva, kde by ste museli kliknúť na tlačidlo Odstrániť, aby ste potvrdili trvanie predajného listu.

V prípade, že chcete odstrániť viac hárkov podľa ich názvu, môžete to tiež urobiť.

Nasledujúci kód by napríklad odstránil hárky s názvom Predaj, marketing, financie:

Vedľajšie hárky DeleteSheetsByName () („Predaj“). Odstráňte hárky („Marketing“). Odstráňte hárky („Financie“). Odstrániť koncovú podskupinu

Odstránenie všetkých hárkov okrem aktívneho hárka pomocou VBA

Ak máte zošit s viacerými pracovnými listami a chcete odstrániť všetky pracovné hárky okrem aktívneho hárka, VBA je pravdepodobne jednou z lepších metód, ako to urobiť.

Nasleduje kód VBA, ktorý by odstránil všetky hárky okrem aktívneho hárka v zošite.

Sub DeleteSheetByName () Dim ws as Worksheet Application.DisplayAlerts = False for every ws in Sheets If ws.Name ActiveSheet.Name Then ws.Delete End If Next ws Application.DisplayAlerts = True End Sub

Všimnite si toho, že som povedal, že vlastnosť Application.DisplayAlerts spadá na začiatok kódu, pretože nechcem vidieť výzvu pre každý hárok, ktorý sa odstráni.

Odstráňte všetky hárky s konkrétnym textovým reťazcom v názve

Toto je mierne pokročilejší prípad efektívneho používania VBA pri odstraňovaní pracovných hárkov.

Predpokladajme, že máte zošit s mnohými rôznymi pracovnými listami a chcete odstrániť všetky pracovné hárky, ktoré obsahujú konkrétny textový reťazec, potom to môžete ľahko urobiť pomocou VBA.

Napríklad nižšie mám zošit, v ktorom chcem odstrániť všetky pracovné hárky, v ktorých je textový reťazec „Predaj“.

Nasleduje kód VBA, ktorý by to urobil:

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

Vyššie uvedený kód používa príkaz if-then na prechádzanie všetkými pracovnými listami v zošite. Skontroluje názov všetkých týchto pracovných hárkov a ak názov obsahuje slovo „Predaj“, tento pracovný hárok sa odstráni.

Ak chcete zmeniť kód a hľadať iný textový reťazec, môžete to zmeniť v piatom riadku vyššie uvedeného kódu.

Tiež si všimnite, že som použil hviezdičku (*), čo je zástupný znak, na oboch stranách textového reťazca, ktorý hľadáme v názve pracovného hárka. To zaisťuje, že bez ohľadu na to, kde sa reťazec nachádza v názve pracovného hárka, bude stále odstránený.

Môžete tiež upraviť kód a uistiť sa, že sa odstránia iba tie pracovné hárky, kde sa textový reťazec zobrazuje na začiatku názvu pracovného hárka.

Ak napríklad chcete odstrániť tie hárky, kde je na začiatku uvedený výraz predaj, použite nasledujúci kód v piatom riadku.

Ak ws.Name Like „*“ & „Predaj“ & „*“ Potom

Tu som použil zástupný znak iba po textovom nápoji a nie pred ním. Pri kontrole názvov pracovného hárka bude zaistené, že iba tie, ktoré budú spĺňať kritériá, kde je na začiatku názvu výraz „predaj“.

Toto sú niektoré z metód, ktoré môžete použiť na odstránenie hárkov v programe Excel. Vo väčšine prípadov to môžete ľahko urobiť priamo v pracovnom hárku pomocou myši alebo klávesovej skratky.

Ale v prípade, že máte ťažký zošit s veľkým počtom pracovných hárkov a chcete rýchlo odstrániť konkrétne druhy listov, môžete použiť aj VBA.

Dúfam, že ste našli tento návod užitočný.