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

Jak kopírovat více listů vícekrát v aplikaci Excel?

Někdy možná budeme muset v sešitu vytvořit kopii nebo více kopií určených listů. Zde je několik rychlých způsobů, které vám pomohou snadno zkopírovat jeden list nebo více listů několikrát v aplikaci Excel.


Vytvořte jednu kopii více listů najednou do aktivního sešitu nebo jiného sešitu pomocí příkazu Přesunout nebo Kopírovat

S Přesunout nebo Kopírovat Příkaz v aplikaci Excel můžete vytvořit jednu kopii listu, více konkrétních listů nebo všechny listy do aktivního sešitu nebo jiného sešitu najednou.

1. V určitém sešitu, kam budete kopírovat listy, vyberte na panelu karet List více listů.
Poznámka: Držení CTRL klávesa, můžete vybrat více nesousedících záložek listu kliknutím na jeden po druhém na panelu Tabulátory; podíl SHIFT můžete vybrat více sousedních karet listu kliknutím na první kartu listu a poslední na panelu karet List.

2. Klikněte pravým tlačítkem na vybranou kartu listu na panelu Karta listu a vyberte Přesunout nebo Kopírovat z kontextové nabídky. Viz snímek obrazovky:
doc kopírovat více listů 01

3. V Přesunout nebo Kopírovat V dialogovém okně zadejte následující nastavení:
(1) Uveďte cílový sešit, do kterého zkopírujete listy z Zarezervovat rozbalovací seznam. Podle potřeby si můžete vybrat aktivní sešit, jiný otevřený sešit nebo nový sešit.
(2) Určete umístění zkopírovaných listů na panelu Tabulátory listů, můžete si vybrat po všech existujících listech.
(3) Zkontrolovat Vytvořte kopii Pokud tuto možnost nezaškrtnete, vybrané listy se přesunou do cílového sešitu.
(4) Klikněte na OK .

Nyní vytvoří pouze jednu kopii vybraných listů do zadaného sešitu. Chcete-li vytvořit více kopií těchto listů, můžete operaci opakovat několikrát.

Pouze několik kliknutí k vytvoření více kopií více listů v aktivním sešitu

Obecně můžeme kopírovat více listů pomocí Přesunout nebo Kopírovat funkce v aplikaci Excel. Tato funkce však může vytvořit pouze jednu kopii najednou. Tady, s Kutools pro Excel Kopírování pracovních listů nástroj, můžete snadno vytvořit tolik kopií mnoha listů, kolik potřebujete, v aktivním sešitu pouze několika kliknutími. Plná verze zkušební verze zdarma 30 dní!
reklamní kopie více pracovních listů 01

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

Vytvořte více kopií jednoho zadaného listu do aktivního sešitu s kódem VBA

Pokud chcete vytvořit 10 kopií zadaného listu, Přesunout nebo Kopírovat příkaz bude časově náročný způsob a operaci musíte opakovat mnohokrát. Ale s následujícím kódem VBA můžete rychle zkopírovat list 10krát najednou.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

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

VBA: Vytvořte více kopií určitých listů do aktivního sešitu

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Poznámka: Ve výše uvedeném kódu nahraďte „Sheet1"s názvem listu, který má být zkopírován.

3. Pak stiskněte tlačítko F5 po spuštění kódu se zobrazí okno s výzvou k zadání požadovaného počtu kopií listu.

4. Pak klikněte na tlačítko OK, zadaný list byl v aktivním sešitu zkopírován 100krát.


Vytvořte více kopií více listů do aktivního sešitu pomocí programu Kutools pro Excel

I když je snadné vytvořit kopii více listů v aplikaci Excel, pokud chcete vytvořit více kopií více listů v aktuálním sešitu, možná budete muset použít Přesunout nebo Kopírovat položka příkazu znovu a znovu. Chtěli byste věc dokončit jedním kliknutím? S Kopírování pracovních listů užitečnost doplňku třetí strany Kutools pro Excel, jste schopni vytvořit více kopií více listů jedním kliknutím v aplikaci Excel.

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

1, klikněte Kutools Plus > Kopírování pracovních listů. Viz snímek obrazovky:

Poznámka: Klikání Kutools Plus > Pracovní list > Kopírování pracovních listů také získá tuto funkci.

2. Použít nastavení v Zkopírujte více pracovních listů dialogové okno:
(1) Zkontrolujte listy, ze kterých chcete kopírovat Zkopírujte vybrané listy sekce.
(2) Upřesněte Počet kopií.
(3) Určete polohu kopírovaných listů, například před nebo po všech pracovních listech, před nebo po aktuálním listu.
(4) Klikněte na Ok .

3. Zobrazí se okno s výzvou, které vám připomene, že zaškrtnuté listy byly zkopírovány do vícekrát, jak potřebujete, klikněte na ikonu OK tlačítko pro jeho ukončení. Viz snímek obrazovky:

Tento Zkopírujte více pracovních listů vlastnost Kutools pro Excel vytvoří v aktivním sešitu několik kopií několika určených listů pouze s několika kliknutími. Vyzkoušejte zdarma!


Vytvořte jednu kopii více listů z více sešitů do nového

Pokud máte nainstalovaný program Kutools pro Excel, můžete jej také použít Zkombinujte pracovní listy funkce pro vytvoření jedné kopie více listů z více uzavřených sešitů do nového sešitu několika kliknutími pouze v aplikaci Excel.

Kutools pro Excel - Zahrnuje více než 300 užitečných nástrojů pro Excel. Plná funkce 30denní bezplatná zkušební verze, není nutná kreditní karta! Get It Now

1, klikněte Kutools Plus > Kombinovat aktivovat funkci Kombinovat pracovní listy.

2. V průvodci Spojení pracovních listů - krok 1 ze 3 zkontrolujte prosím Zkombinujte více listů ze sešitů do jednoho listu a klepněte na tlačítko další knoflík. Viz screenshot:

3. V Průvodci kombinováním pracovních listů - krok 2 ze 3 proveďte následující obrázek obrazovky:
(1) Klepněte na tlačítko přidat > Soubor or Desky Chcete-li přidat sešity, zkopírujete z nich listy.
(2) V Seznam sešitů část, zkontrolujte sešit, jehož listy budete kopírovat;
(3) V Seznam pracovních listů část, zkontrolujte listy, které zkopírujete;
(4) Opakujte výše (2) a (3) k výběru pracovních listů z jiných sešitů, které zkopírujete.
(5) Klikněte na další .

4. V průvodci Spojení pracovních listů - krok 3 ze 3 nakonfigurujte nastavení kopírování podle potřeby a klikněte na úprava .

5. Nyní v novém dialogovém okně zadejte cílovou složku pro uložení nového sešitu, pojmenujte nový sešit v Název souboru a klepněte na tlačítko Uložit knoflík. Viz screenshot:

Nyní vyjdou další dvě dialogová okna a požádají vás, abyste otevřeli nový sešit a uložili scénář kombinace, klikněte prosím na tlačítka, jak potřebujete. Zatím zkopírovalo všechny určené listy z více sešitů najednou.

S tím Kombinovat (pracovní listy) můžete snadno kopírovat a kombinovat listy a sešity podle následujícího seznamu. Vyzkoušejte zdarma!
(1) Rychle kombinujte více listů / rozsahů ze sešitů do jednoho listu;
(2) Rychle sloučit / zkombinovat všechny listy stejného jména napříč sešity do jednoho listu;
(3) Rychlé sloučení / sloučení listů nebo sešitů do jednoho sešitu;
(4) Rychle shrňte / vypočítejte data z více listů do jednoho listu.


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (25)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Při použití kódu VBA je pojmenování duplikovaných listů v obráceném pořadí. Řekněme, že udělám 10 kopií List1, skončím List1, List1(10), List1(9), List1(8),.......je možné je mít v normálním pořadí?
Tento komentář byl moderátorem webu minimalizován
Zkusil jsem kód VBA a dostal jsem chybu dolního indexu mimo rozsah (9). Nahradil jsem název listu čímkoli, co mě napadlo, co už bylo v sešitu. Máte představu, co jsem udělal špatně? Existuje také způsob, jak pojmenovat každý list postupně? Jsem si jistý, že to souvisí s Michaelovou otázkou. Hádám, že odpověď na jeho otázku by byla, že byste museli nějak nastavit cíl After na "list"+x a to by se zase vztahovalo na mou otázku, pokud by existoval způsob, jak určit, jak pojmenovat nový list. Vždy jsem mohl jednoduše změnit „master“ své šéfky na „Aug 0“ nebo jakýkoli měsíc, ale pro ni by bylo snazší to pochopit, kdyby skript pojmenoval automaticky.
Tento komentář byl moderátorem webu minimalizován
díky, vba kód byl obrovský
Tento komentář byl moderátorem webu minimalizován
Páni, díky za kód VBA. Opravdu to hodně pomáhá!
Tento komentář byl moderátorem webu minimalizován
[quote]Při použití kódu VBA je pojmenování duplicitních listů v obráceném pořadí. Řekněme, že udělám 10 kopií List1, skončím List1, List1(10), List1(9), List1(8),.......je možné je mít v normálním pořadí?Autor: MichaelTadashi[/quote] Byl někdo schopen odpovědět na tuto otázku? Potřebuji vytvořit 72 kopií, ale bylo by potřeba je mít v pořádku (1 až 72, místo 72 až 1) Díky!
Tento komentář byl moderátorem webu minimalizován
[quote][quote]Při použití kódu VBA je pojmenování duplicitních listů v obráceném pořadí. Řekněme, že udělám 10 kopií List1, skončím List1, List1(10), List1(9), List1(8),.......je možné je mít v normálním pořadí?Od Juana[/quote] Byl někdo schopen odpovědět na tuto otázku? Potřebuji vytvořit 72 kopií, ale bylo by potřeba je mít v pořádku (1 až 72, místo 72 až 1) Díky!Autor: MichaelTadashi[/quote]e] Pokud chcete, aby byly kopie listů v sekvenčním pořadí namísto pozpátku, změňte následující řádek... After:=ActiveWorkbook.Sheets("List1") k tomuto... After:=ActiveWorkbook.Sheets(Pracovní listy. Počet) Můj dokončený kód vypadal následovně, který používá 2 výzvy InputBox k umožnění dynamického počtu kopií a názvu listu. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kolik kopií potřebujete?") s = InputBox("Zadejte název listu, který chcete zkopírovat") Pro numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Tento komentář byl moderátorem webu minimalizován
Jak získám nepřetržité číslování kopií. Pokud se list, který chci zkopírovat, jmenuje I002 a chci, aby se další jmenoval I003, I004, I005 a tak dále.
Tento komentář byl moderátorem webu minimalizován
Vyhledejte slovo „Po“ a změňte jej na „Před“. Tím se vytvoří kopie ve správném pořadí "Před" List1. Jediné, co je třeba si zapamatovat, je, že číslování bude vždy začínat od (2), protože původní list bude vždy počítán jako 1. kopie. Také můžete nahradit "Sheet1" názvem karty, kterou se pokoušíte zkopírovat.
Tento komentář byl moderátorem webu minimalizován
ano, funguje to díky Úspěšně jsem vytvořil více kopií jednoho listu ve stejném sešitu pomocí hodně vba kódu thnx.
Tento komentář byl moderátorem webu minimalizován
jak kopírovat se stejnou šířkou sloupců
Tento komentář byl moderátorem webu minimalizován
Stejné šířky sloupců jako původní list nebo chcete, aby byly všechny šířky sloupců stejné?
Tento komentář byl moderátorem webu minimalizován
Dostal jsem stejnou chybu jako Theou a zdá se, že to nikdo neřešil. Moje karty se již jmenují PO 51, PO 52 atd. a nahradil jsem List1 za PO 51, abych to zkopíroval a dostal jsem chybu dolního indexu mimo rozsah (9) Postupoval jsem podle Schuylerova kódu, abych získal správné pořadí, ale stále se mi zobrazuje chyba a je to vždy kvůli těmto dvěma řádkům: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Tento komentář byl moderátorem webu minimalizován
[quote]Mám stejnou chybu jako Theou a zdá se, že to nikdo neřešil. Moje karty se již jmenují PO 51, PO 52 atd. a nahradil jsem List1 za PO 51, abych to zkopíroval a dostal jsem chybu dolního indexu mimo rozsah (9) Postupoval jsem podle Schuylerova kódu, abych získal správné pořadí, ale stále se mi zobrazuje chyba a je to vždy kvůli těmto dvěma řádkům: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Od Debbi[/quote] Můžete zahrnout svůj úplný kód, aby bylo snazší ladění? "Chyba dolního indexu mimo rozsah" obvykle znamená, že kód odkazuje na něco, co neexistuje. Najdu to ve svém vlastním kódu, když mám překlep nebo něco podobného.
Tento komentář byl moderátorem webu minimalizován
Zobrazuje se mi chyba, že 'numtimes' není definováno...?
Tento komentář byl moderátorem webu minimalizován
kam vložím tento výše uvedený kód ve vba, mám vytvořit společné tlačítko a pak uvnitř? pozdravy.
Tento komentář byl moderátorem webu minimalizován
Postupujte podle následujících kroků:
1. Zkopírujte výše uvedený kód
2. Podržte klávesy ALT + F11 a otevře se okno Microsoft Visual Basic for Applications.
2. Klepněte na Vložit > Modul a vložte následující kód do okna Modul.
4. Poté stiskněte klávesu F5 pro spuštění kódu
5. Zobrazí se okno s dotazem na požadovaný počet kopií listu.
Tento komentář byl moderátorem webu minimalizován
Když jsem to poprvé zkusil, dostal jsem chybovou zprávu, protože jsem nezměnil název List1. Poté, co jsem si uvědomil, co způsobilo chybu, zkoumal jsem trochu dále, protože jsem nechtěl ručně zadávat název listu do makra. A když tuto funkci potřebuji, je to téměř vždy pro aktuální list. Přidal jsem řádek a = activesheet.name A upravil jsem řádek za:=activeworkbook.sheets("sheet1") do activeworkbook.sheets(a).copy _ To fungovalo velmi dobře, ale všiml jsem si, že číslování bylo obrácené ... to mi nevadilo, stejně jsem se chystal ručně přejmenovat nové listy. Když jsem viděl Schuylerův příspěvek, dále jsem upravil řádek activeworkbook.sheets(a).copy _ na after:=activeworkbook.sheets(worksheets.count) Nyní jsem s výsledkem spokojen. Moje dokončené makro: Sub copy() Dim x As Integer x = InputBox("Zadejte, kolikrát chcete zkopírovat List1") For numtimes = 1 Do x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Všechno nejlepší, Barry
Tento komentář byl moderátorem webu minimalizován
Děkuji moc Barry. Vaše hotové makro je jediná věc, která mi fungovala.
Tento komentář byl moderátorem webu minimalizován
Mám chybu syntaxe na "After:=ActiveWorkbook.Sheets(Worksheets.Count)


ale nevím co se děje... Můžete mi prosím pomoci?
Tento komentář byl moderátorem webu minimalizován
Fantastický kód VBA - opravdu pomohl
Tento komentář byl moderátorem webu minimalizován
Jsem v tom nový, jen se snažím vytvořit kopie stejného listu, toto je kód, který používám. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kolik kopií potřebujete?") s = InputBox("Zadejte název listu, který chcete zkopírovat") Pro numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, když použiji kód, zobrazí se mi chyba „Syntax Error“, pak se tento text zbarví červeně ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) a text is zežloutne Sub Copier() co mohu udělat, abych to napravil.
Tento komentář byl moderátorem webu minimalizován
[quote]Jsem v tom nový, jen se snažím vytvořit kopie stejného listu, toto je kód, který používám. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kolik kopií potřebujete?") s = InputBox("Zadejte název listu, který chcete zkopírovat") Pro numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, když použiji kód, zobrazí se mi chyba „Syntax Error“, pak se tento text zbarví červeně ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) a text is zežloutne Sub Copier() co mohu udělat, abych to napravil.Autor Tyler Dempsey[/quote] Znovu zkontrolujte svůj kód a ujistěte se, že v ActiveWorkbooku nemáte místo. Sheets.Copy _ nebo na Sheets(Worksheets.Co nt)
Tento komentář byl moderátorem webu minimalizován
[quote]Jsem v tom nový, jen se snažím vytvořit kopie stejného listu, toto je kód, který používám. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kolik kopií potřebujete?") s = InputBox("Zadejte název listu, který chcete zkopírovat") Pro numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) Next End Sub, když použiji kód, zobrazí se mi chyba „Syntax Error“, pak se tento text zbarví červeně ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Co nt) a text is zežloutne Sub Copier() co mohu udělat, abych to napravil.Autor Tyler Dempsey[/quote] Zde je přesný kód, který chcete použít: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kolik kopií potřebujete?") s = InputBox("Enter název listu, který chcete zkopírovat") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Tento komentář byl moderátorem webu minimalizován
Děkuji, poslední mi zachránil život :)
Tento komentář byl moderátorem webu minimalizován
Pracovní kodex

Vedlejší kopírka()
Dim s jako řetězec
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("Kolik kopií potřebujete?")
s = InputBox("Zadejte název listu, který chcete zkopírovat")
Pro numtimes = 1 až numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
další
End Sub

zkopírujte celý řádek z ActiveWorkbook.Sheets...... to byl problém a nějaké mezery

Měj krásný zbytek dne
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í