Note: The other languages of the website are Google-translated. Back to English

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.


Snadno přejmenujte několik zhoršených listů se zadaným textem, hodnotami buňky nebo konkrétní hodnotou buňky v každém listu:

Projekt Přejmenujte více pracovních listů užitečnost Kutools pro Excel vám pomůže snadno přejmenovat více listů najednou v aplikaci Excel.
Stáhnout teď! (30-denní stezka zdarma)


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 doc-rename-multiple-worksheets-4 tlačítko k provedení kódu a do rozbalovacího dialogu zadejte požadovaný název. viz screenshoty:

pracovní listy pro přejmenování dokumentu 2

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

pracovní listy pro přejmenování dokumentu 3

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 doc-rename-multiple-worksheets-4 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:

pracovní listy pro přejmenování dokumentu 5

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:

pracovní listy pro přejmenování dokumentu 6

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í:

pracovní listy pro přejmenování dokumentu 7

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 doc 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:

pracovní listy pro přejmenování dokumentu 8

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í:

pracovní listy pro přejmenování dokumentu 9

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 doc 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:

pracovní listy pro přejmenování dokumentu 10

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


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.
karta kte 201905

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!
officetab dno
Komentáře (22)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
co když místo kteorder1 potřebujeme zobrazit 1-12-13,2-12-13 atd. (kam umístit hodnotu "i"?
Tento komentář byl moderátorem webu minimalizován
[quote] co když místo kteorder1 potřebujeme zobrazit 1-12-13,2-12-13 atd. (kam umístit hodnotu "i"?Od náhodného chlapa[/quote] Dobrý den, chcete přejmenovat název listu na 1-12-13,2-12-13? Nejprve zadejte názvy listů do rozsahu a poté je můžete použít k přejmenování listů jako: http://www.extendoffice.com/images/stories/doc-comments/rename-worksheets.png
Tento komentář byl moderátorem webu minimalizován
díky, pomůže to :-)
Tento komentář byl moderátorem webu minimalizován
Co když si nestáhneme kutools, můžeme stále pojmenovávat listy podle rozsahu buněk?
Tento komentář byl moderátorem webu minimalizován
Díky moc, moc mi to pomáhá :-)
Tento komentář byl moderátorem webu minimalizován
Víš, kolik času jsi mi ušetřil? Válíš!
Tento komentář byl moderátorem webu minimalizován
Ahoj, prosím, jestli má můj excelový list notin jako developer nebo kutools nebo enterprise? Používám excel 2010 na windows 8.pls help!
Tento komentář byl moderátorem webu minimalizován
Hledám kód VBA k přejmenování názvů 10-12 listů a rád bych uvedl názvy uvnitř kódu, místo toho, abych je zadával do okna výzvy. Můžete mi v tom prosím pomoci. Děkuji -H
Tento komentář byl moderátorem webu minimalizován
Tohle funguje dobře! JAK mohu upravit kód tak, aby začínal pouze na druhé stránce? Děkuji!
Tento komentář byl moderátorem webu minimalizován
Zde je skvělá variace, kterou jsme s kolegou dali dohromady, abychom přejmenovali více listů a přeskakovali ostatní. Stačí skrýt ty listy, které nechcete měnit: Sub ChangeWorkSheetName() 'Updateby20140624 Dim Rng As Range Dim WorkRng As Range On Error Pokračovat Další xTitleId = "KutoolsforExcel" newName = Application.InputBox("Name", xTitleId, " Typ:=2) j = 1 Pro i = 1 To Application.Sheets.Count If Application.Sheets(i).Visible Then Application.Sheets(i).Name = newName & j j = j + 1 End If Next End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát! Nejlepší makro vůbec pro přejmenování listů po buňkách. Už měsíce hledám způsob, jak to udělat, a ty jsi zachránce života!
Tento komentář byl moderátorem webu minimalizován
Úžasný. ušetřil mi spoustu času díky
Tento komentář byl moderátorem webu minimalizován
Hledal jsem něco velmi podobného těmto, ale...mám list, který má 2 sloupce a 119 řádků. Potřebuji zkombinovat A1:B1, začít na 3. listu, abych přejmenoval kartu, další by byl A2:B2, přejmenovat 4. kartu, tak dále a tak dále. Mlátil jsem si hlavu o monitor a nemůžu na to přijít... jakákoli pomoc by byla vděčná.
Tento komentář byl moderátorem webu minimalizován
Snažil jsem se vymyslet něco velmi podobného, ​​mám pracovní list, který má 2 sloupce a 119 řádků. Potřebuji vzít A1:B1, dát je dohromady a přejmenovat 3. list, další A2:B2, dát je dohromady a přejmenovat 4. list, až do řádku 119. Narážel jsem hlavou do monitoru a snažil se přijít na snadný způsob, jak Udělej tohle. Jakákoli pomoc by byla velmi oceněna!
Tento komentář byl moderátorem webu minimalizován
Potřebuji přejmenovat listy s daty v buňce Q5, nicméně více listů obsahuje stejná data v Q5. Jak mohu Excelu říct, aby přejmenoval tyto listy s daty v Q5 a přidal něco (například 1 nebo 2) za název? Doufám, že to dává smysl.
Tento komentář byl moderátorem webu minimalizován
Co když chceme mít čísla v sestupném pořadí od 52 do 1?
Tento komentář byl moderátorem webu minimalizován
To je skvělé!!!, děkujeme moc za sdílení kódů vba. jsou velmi užitečné
Tento komentář byl moderátorem webu minimalizován
To je skvělé!!!, děkujeme moc za sdílení kódů vba. jsou velmi užitečné
Tento komentář byl moderátorem webu minimalizován
To je skvělé, šťastně jsem používal '2. Kód VBA pro přejmenování více listů podle konkrétní hodnoty buňky v každém listu aktivního sešitu po několik měsíců, ale nyní byla práce upgradována na Excel 2010 a už to nefunguje... nemůžete najít podobné řešení online - nějaké návrhy?
Tento komentář byl moderátorem webu minimalizován
chci nějaké požadavky
1: Chci dva nebo více prázdných listů mezi dvěma hlavními listy.

2: Chci zkopírovat jeden condent z listu 1 na další listy, zároveň se změní název listu záhlaví na obou listech. že

nadpis listu 01 je list 01. zkopírujte zářez a vložte jej na jiný 1500 list zároveň chci změnit název listu bude změněn list 02, list 03 tento řád

3: Chci zkopírovat jeden bod z prvního listu a chci do něj vložit nějaké konkrétní stránky.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
S tím vám bohužel zatím nemohu pomoci. Vítejte, pokud chcete na našem fóru zveřejnit jakýkoli dotaz: https://www.extendoffice.com/forum.html získat další podporu Excelu od profesionála Excelu nebo jiných fanoušků Excelu.
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL