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

 Jak kopírovat list a přejmenovat automaticky v aplikaci Excel?

Jak můžete v aplikaci Excel zkopírovat list a automaticky jej přejmenovat, aniž byste zadali název obvyklým způsobem? V tomto článku budu mluvit o tom, jak zkopírovat list jednou nebo vícekrát a dát jim konkrétní jména najednou.

Zkopírujte list několikrát a pomocí kódu VBA je přejmenujte pomocí názvů přírůstků

Zkopírujte list několikrát a přejmenujte je pomocí vlastních jmen pomocí programu Kutools pro Excel


Pokud potřebujete list zkopírovat vícekrát a dát jim názvy sérií, jako je KTE-1, KTE-2, KTE-3, KTE-4…, můžete si udělat laskavost pomocí následujícího kódu VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Několikrát zkopírujte list a přejmenujte jej najednou:

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a okno s výzvou vám připomene, kolik kopií aktuálního listu, který chcete kopírovat, viz screenshot:

přejmenování dokumentu zkopírované listy 1

4. Do rozevíracího dialogového okna zadejte počet kopií a poté klikněte na OK Tlačítko, váš aktuální list byl duplikován 5 kopií a přejmenován na název sekvence, jak ukazuje následující snímek obrazovky:

přejmenování dokumentu zkopírované listy 2

Poznámka: Ve výše uvedeném kódu můžete změnit text názvu listu „KTE-„Podle vašich potřeb.


Možná je pro vás použití výše uvedených kódů VBA obtížné, zde představím snadný nástroj - Kutools pro Excel, S jeho Vytvořte pracovní listy sekvence můžete tento úkol dosáhnout bez jakéhokoli úsilí.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

Po instalaci Kutools pro Excel, postupujte následovně:

1, klikněte Kutools Plus > Pracovní list > Vytvořte pracovní listy sekvence, viz screenshot:

2. V Vytvořte pracovní listy sekvence dialogové okno:

(1.) Vyberte název listu, který chcete zkopírovat z Základní pracovní list rozbalovací seznam;

(2.) Poté zadejte počet listů, pod které chcete kopírovat Počet vytvoření Textové pole;

(3.) A pak zkontrolujte Pořadová čísla pod Názvy listů založené na sekce;

(4.) Nakonec vytvořte názvy pracovních listů sekvence v pravém podokně, které chcete, viz screenshot:

přejmenování dokumentu zkopírované listy 4

3. Po dokončení nastavení klikněte Ok Tlačítko a konkrétní list byl zkopírován několikrát a přejmenován na základě vaší vytvořené sekvence v novém sešitu, viz screenshot:

přejmenování dokumentu zkopírované listy 5

Klikněte na Stažení zdarma Kutools pro Excel hned!


Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

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 (2)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Páni, to mi ušetřilo spoustu času! Děkuji!
Tento komentář byl moderátorem webu minimalizován
Je možné, že do tohoto kódu přidáte možnost také kopírovat konkrétní buňky. Například: Mám v jedné buňce číslo 1 a chtěl bych, aby se při duplikaci List změnilo na +1. dík
Zatím zde nejsou žádné komentáře
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