Jak přejmenovat více listů v aplikaci Excel?

Normálně k přejmenování listů v aplikaci Excel můžeme rychle dvakrát kliknout na kartu listu nebo kliknout pravým tlačítkem na kartu listu a zvolit příkaz Přejmenovat pro přejmenování listů. To je docela užitečné přejmenovat jeden nebo dva listy v aplikaci Excel, ale pokud chceme přejmenovat více listů v rámci jedné operace, jak to můžeme udělat?

Pomocí příkazu Přejmenovat přejmenujete pracovní listy
Použití kódu VBA k přejmenování více listů
Pomocí praktického nástroje můžete pohodlně přejmenovat více listů

Pomocí příkazu Přejmenovat přejmenujete pracovní listy

Můžeme rychle přejmenovat pracovní listy v aplikaci Excel pomocí Přejmenovat příkaz podle následujících postupů:

Klikněte pravým tlačítkem na kartu listu, kterou chcete přejmenovat, a vyberte Přejmenovat příkaz z nabídky pravého tlačítka myši. Nebo dvojitým kliknutím na kartu list list přejmenujte. Poté zadejte nový název a stiskněte vstoupit klíč k jeho přejmenování, viz screenshot:

S tím Přejmenovat příkaz, můžete přejmenovat pouze jeden list najednou, pro účely přejmenování více listů opakujte výše uvedené operace.

Použití kódu VBA k přejmenování více listů

Zde vám představím dva kódy VBA k přejmenování více pracovních listů.

1. Kód VBA k přejmenování více pracovních listů podle požadovaného jména najednou

Pomocí následujícího kódu VBA můžete rychle přejmenovat všechny listy aktuálního sešitu se stejnou předponou v názvech jejich listů, například: KTE-order1, KTE-order 2 a KTE-order 3…

1. Klikněte na Vývojka > Visual Basic, a klepněte na tlačítko Vložit > Modul v Aplikace Microsoft Visual Basic Windows.

2. Zkopírujte a vložte následující kód do Modul

VBA: Přejmenujte všechny listy zadáním konkrétního názvu

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  klikněte  tlačítko k provedení kódu a do rozbalovacího dialogu zadejte požadovaný název. viz screenshoty:

4. klikněte OK. Pak uvidíte, že jsou všechny listy přejmenovány.

2. Kód VBA k přejmenování více listů podle konkrétní hodnoty buňky v každém listu aktivního sešitu

Pomocí následujícího kódu VBA přejmenuje všechny listy aktuálního sešitu pomocí obsahu konkrétní buňky. Můžete například zadat název listu do buňky A1 celého sešitu a poté bude list přejmenován na hodnotu buňky A1.

1.  Určete buňku, která bude obsahovat název listu v každém listu, a zadejte do něj název listu. V tomto příkladu zadám název listu do buňky A1 v každém listu.

2.  klikněte Vývojka > Visual Basic, a klepněte na tlačítko Vložit > Modul v Aplikace Microsoft Visual Basic Windows.

3.  Zkopírujte a vložte následující kód do modulu.

VBA: Přejmenujte pracovní listy podle konkrétního obsahu buňky

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  klikněte  tlačítko k provedení kódu. Všechny zhoršené listy jsou přejmenovány na základě obsahu buněk A1.

Poznámky:

1. Ve výše uvedeném kódu A1 je obsah buňky, na kterém chcete přejmenovat pracovní listy, můžete jej podle potřeby změnit

2. Pokud konkrétní buňka nemá žádný obsah, nebude list konkrétní buňky přejmenován.

Pomocí praktického nástroje můžete pohodlně přejmenovat více listů

Projekt Přejmenujte více pracovních listů nástroj Kutools pro Excel je docela užitečné pro přejmenování všech listů nebo vybraných konkrétních listů aktuálního sešitu.

Pomocí tohoto nástroje můžete rychle přejmenovat všechny listy nebo vybrané konkrétní listy přidáním dalšího obsahu před nebo za název stávajícího listu nebo nahradit původní názvy listů novými názvy. Můžete také přejmenovat všechny listy nebo vybrané listy pomocí obsahu buněk rozsahu.

1. Přejmenujte více listů s konkrétními daty pomocí programu Kutools pro Excel

S tím Přejmenujte více pracovních listů nástroj, můžete snadno přejmenovat listy s konkrétní hodnotou, kterou můžete dát před nebo za název původního listu, můžete také originál nahradit konkrétní hodnotou. Postupujte následovně:

1.  klikněte Kutools Plus > Pracovní list > Přejmenujte pracovní listy. Viz snímek obrazovky:

2. Upřesněte nastavení v Přejmenujte více pracovních listů dialogové okno. Viz snímek obrazovky:

1. Vyberte listy, které chcete přejmenovat Pracovní listy seznam.

2. Vyberte jeden typ, pod kterým chcete přejmenovat pracovní listy Přejmenovat možnosti.

3. Zadejte konkrétní hodnotu do Ze vstupního pole.

3. A pak klikněte na tlačítko OK. Získáte následující výsledky:

2. Přejmenujte více listů s hodnotami buněk pomocí programu Kutools pro Excel

Pokud máte řadu hodnot buněk a nyní potřebujete název listu přejmenovat na hodnoty buněk, může vám tento nástroj také pomoci rychle přejmenovat více listů se specifickými hodnotami buněk. Udělejte prosím toto:

1. Aplikujte tento nástroj kliknutím Enterprise > Pracovní list > Přejmenujte více pracovních listů . A v Přejmenujte více pracovních listů v dialogovém okně zadejte následující nastavení:

1. Vyberte listy, které chcete přejmenovat Pracovní listy seznam.

2. Vyberte jeden typ, pod kterým chcete přejmenovat pracovní listy Přejmenovat možnosti.

3. cvaknutí  Tlačítko pro výběr hodnot buněk, na které chcete pojmenovat listy podle pod Ze specifického rozsahu sekce.

3.  A pak klikněte na tlačítko OK. Získáte následující výsledek:

3. Přejmenujte více listů s konkrétní hodnotou buňky v každém listu pomocí programu Kutools pro Excel

Chcete-li přejmenovat list s konkrétní hodnotou buňky v každém listu, Kutools pro Excel's Přejmenujte více pracovních listů také vám může udělat laskavost, postupujte následovně:

1. Aplikujte tento nástroj kliknutím Enterprise > Pracovní list > Přejmenujte více pracovních listů . A v Přejmenujte více pracovních listů v dialogovém okně zadejte následující nastavení:

1. Vyberte listy, které chcete přejmenovat Pracovní listy seznam.

2. Vyberte jeden typ, pod kterým chcete přejmenovat pracovní listy Přejmenovat možnosti.

3. cvaknutí  Tlačítko pro výběr konkrétní hodnoty buňky, na kterou chcete pojmenovat listy podle pod Přejmenujte listy s konkrétní buňkou sekce.

2. Pak klikněte na tlačítko Ok tlačítko, názvy listů byly přejmenovány s konkrétní hodnotou buňky v každém listu, viz screenshot:

Ukázka: Přejmenujte více pracovních listů pomocí programu Kutools pro Excel

---

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

• Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
• Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
• Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
• Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
• Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
• Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
• Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
• Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
• Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

Čtěte více... Stažení zdarma... Nákup... 

---

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!

Čtěte více... Stažení zdarma... Nákup...