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

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

Úžasný! Používání efektivních karet v Excelu, jako je Chrome, Edge, Firefox a Safari!
Ušetřete 50% svého času a snížíte tisíce kliknutí myší každý den!

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.

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ů

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

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

Související články