Přejít k hlavnímu obsahu

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?

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

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

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

Použití kódu VBA k přejmenování 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 více pracovních listů se zadaným textem, hodnotami buněk nebo konkrétní hodnotou buňky v každém listu

Nástroj Přejmenovat více listů Kutools pro Excel vám může pomoci snadno přejmenovat více listů současně v Excelu. Získejte 30denní plnohodnotnou bezplatnou zkušební verzi!

Kutools pro Excel - Supercharge Excel s více než 300 základními nástroji. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Get It Now


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

Nástroj Přejmenovat více listů 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.

Po stažení a instalace Kutools pro Excel, Klikněte na Kutools Plus > Pracovní list > Přejmenujte pracovní listy k otevření Přejmenujte více pracovních listů dialogové okno. Pak prosím postupujte následovně:

Scénář 1. Přejmenujte více listů se specifickými daty pomocí Kutools pro Excel

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

  1. Vyberte listy, které chcete přejmenovat, z Pracovní listy seznam.
  2. Vyberte jeden typ, pod kterým chcete listy přejmenovat Přejmenovat možnosti.
  3. Zadejte konkrétní hodnotu do Ze vstupního pole.
  4. klikněte OK. Získáte následující výsledky:

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

Scénář 2. Přejmenujte více listů s hodnotami buněk pomocí Kutools pro Excel

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

  1. Vyberte listy, které chcete přejmenovat, z Pracovní listy seznam.
  2. Vyberte jeden typ, pod kterým chcete listy přejmenovat Přejmenovat možnosti.
  3. klikněte  tlačítko doc Tlačítko pro výběr hodnot buněk, na které chcete pojmenovat listy podle pod Ze specifického rozsahu sekce.
  4. klikněte OK. Získáte následující výsledky:

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

Scénář 3. Přejmenujte více listů se specifickou hodnotou buňky v každém listu pomocí Kutools pro Excel

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

  1. Vyberte listy, které chcete přejmenovat, z Pracovní listy seznam.
  2. Vyberte jeden typ, pod kterým chcete listy přejmenovat Přejmenovat možnosti.
  3. klikněte  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.
  4. klikněte OK. Názvy listů byly přejmenovány na konkrétní hodnotu buňky v každém listu.

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

Tip: Chcete-li používat tuto funkci, měli byste nainstalovat Kutools pro Excel nejprve, prosím kliknutím stáhněte a získejte 30denní bezplatnou zkušební verzi nyní.

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ů.

Kód 1. Kód VBA pro přejmenování více listů podle požadovaného názvu 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:

  • 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
  • Pokud konkrétní buňka nemá žádný obsah, list konkrétní buňky nebude přejmenován.

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


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Useless without kutools. What a waste of time.
This comment was minimized by the moderator on the site
i wants some requirments
1: i wants two or more blank sheets between two main sheets.

2: i want to copy one condent from sheet 1 to other sheets, at the same time the heading condet sheet name wil be chenged both sheets. that

sheet 01 heading is sheet 01. icopy the condent and paste it to other 1500 sheet at the same time i want to change the sheet name will be changed sheet 02, sheet 03 this orderly

3: i want to copy one condent from first sheet and i want to paste it some specific pages..
This comment was minimized by the moderator on the site
Good day,
Sorry can't help you with that yet. Welcome to post any question in our forum: https://www.extendoffice.com/forum.html to get more Excel support from out Excel professional or other Excel fans.
This comment was minimized by the moderator on the site
This is fab, I've been happily using '2. VBA code to rename multiple worksheets by specific cell value in each worksheet of the active workbook for months but now work have upgraded to Excel 2010 and it doesn't work anymore... can't find a similar solution online - any suggestions?
This comment was minimized by the moderator on the site
Thats great!!!, thank you very much for sharing vba codes. they are very useful
This comment was minimized by the moderator on the site
Thats great!!!, thank you very much for sharing vba codes. they are very useful
This comment was minimized by the moderator on the site
What if we want to have the numbers in descending order from 52 to 1?
This comment was minimized by the moderator on the site
I need to rename worksheets with data in cell Q5, however, multiple worksheets contain the same data in Q5. How can I tell Excel to rename those worksheets with the data in Q5 and just add something (like 1 or 2) after the name? I hope this makes sense.
This comment was minimized by the moderator on the site
I have tried to come up with something very similar, I have worksheet that has 2 columns and 119 rows. I need to take A1:B1 put them together and rename 3rd worksheet, next A2:B2, put them together and rename 4th worksheet, on until row 119. I have been hitting my head on the monitor trying to come up with easy way to do this. Any help would be much appreciated!
This comment was minimized by the moderator on the site
I have been looking for something very similar to these, however...I have sheet that has 2 columns and 119 rows. I need to combine A1:B1, start at the 3rd worksheet to rename the tab, next would be A2:B2, rename the 4th tab, so on and so forth. I have been beating my head against monitor and can't figure this one out...any help would be appreciate it.
This comment was minimized by the moderator on the site
Awesome. saved me so much time thanks
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations