Přejít k hlavnímu obsahu

Jak odstranit všechny listy kromě zadaného / aktuálního v aplikaci Excel?

Chcete-li odstranit všechny listy v sešitu aplikace Excel kromě zadaného jednoho nebo aktuálního aktivního listu, můžete s tím vypořádat níže uvedené metody.

Odstraňte všechny listy kromě zadaného pomocí kódu VBA
Jedním kliknutím odstraníte všechny listy kromě aktuálního aktivního s Kutools pro Excel


Odstraňte všechny listy kromě zadaného pomocí kódu VBA

S níže uvedeným kódem VBA můžete odstranit celý list v sešitu kromě konkrétního v aplikaci Excel.

1. lis Další + F11 současně otevřete Aplikace Microsoft Visual Basic okno.

2. cvaknutí Vložit > Modul, poté zkopírujte a vložte pod kód VBA do okna modulu.

Kód VBA: Odstraňte všechny listy kromě zadaných

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

Poznámky:

1. "Sheet1"A"Sheet2„Jsou listy, které chcete zachovat v aktuálním sešitu. Můžete je změnit podle svých potřeb.

2. Chcete-li odstranit všechny, ale ponechat více listů, přidejte kód A xWs.Name <> "název vašeho listu" před Pak slovo v šestém řádku kódu. Jako:

Pokud xWs.Name <> "List1" A xWs.Name <> "List2" A xWs.Name <> "název vašeho listu" Pak

3. Pokud si chcete ponechat pouze jeden list a ze sešitu odstranit všechny, odeberte všechny A podmínka v kódu. Například pro zachování listu1 v aktuálním sešitu musíte změnit kód šestého řádku na: Pokud xWs.Name <> "List1", pak


Odstraňte všechny listy kromě aktuálního aktivního pomocí Kutools pro Excel (pouze jedno kliknutí)

YJediným kliknutím můžete snadno odstranit všechny listy kromě aktuálního aktivního listu Odstranit všechny neaktivní listy užitečnost Kutools pro Excel.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools Plus > Pracovní list > Odstranit všechny neaktivní listy

3. Poté se zobrazí dialogové okno. Pokud se rozhodnete odstranit všechny listy kromě aktivního, klikněte na OK tlačítko, jinak klikněte na Zrušit .

Poté jsou odstraněny všechny listy kromě aktuálního aktivního v sešitu.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Přidejte text uprostřed vybraných buněk pomocí Kutools pro Excel

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Loved the code, awesome. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations