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

Kako večkrat kopirati več listov v Excelu?

Včasih bomo morda morali v delovni zvezek narediti kopijo ali več kopij določenih delovnih listov. Tu je nekaj hitrih načinov, s pomočjo katerih lahko v Excelu večkrat kopirate en delovni ali več delovnih listov.


Z ukazom Premakni ali Kopiraj enkrat naredite eno kopijo več delovnih listov v aktivni delovni zvezek ali drug delovni zvezek

Z Premakni ali Kopiraj ukaz v Excelu lahko hkrati ustvarite eno kopijo delovnega lista, več določenih delovnih listov ali vse delovne liste v aktivni delovni zvezek ali drug delovni zvezek.

1. V določenem delovnem zvezku, kamor boste kopirali delovne liste, izberite več delovnih listov v vrstici z zavihki Sheet.
Opombe: Držati CTRL tipko, lahko izberete več nesosednjih zavihkov lista, tako da jih kliknete enega za drugim v vrstici zavihka List; držati SHIFT tipko, lahko izberete več sosednjih zavihkov lista s klikom na prvi zavihek lista in zadnjega na vrstici zavihka List.

2. Z desno miškino tipko kliknite izbrani zavihek lista na vrstici zavihka Sheet in izberite Premakni ali Kopiraj iz kontekstnega menija. Oglejte si posnetek zaslona:
doc kopiraj več listov 01

3. v Premakni ali Kopiraj v pogovornem oknu navedite naslednje nastavitve:
(1) Navedite ciljni delovni zvezek, v katerega boste kopirali delovne liste iz Rezervirati spustni seznam. Po potrebi lahko izberete aktivni delovni zvezek, drug odprt delovni zvezek ali nov delovni zvezek.
(2) Določite položaj kopiranih listov na vrstici z zavihki Sheet, ki jih lahko izberete po vseh obstoječih listih.
(3) Preverite Ustvari kopijo Če te možnosti ne izberete, se izbrani delovni listi premaknejo v ciljni delovni zvezek.
(4) Kliknite OK gumb.

Zdaj bo naredil samo eno kopijo izbranih delovnih listov v navedeni delovni zvezek. Če želite narediti več kopij teh delovnih listov, lahko postopek ponovite večkrat.

Samo nekaj klikov, da naredite več kopij več delovnih listov v aktivnem delovnem zvezku

Na splošno lahko z delovnim listom Premakni ali Kopiraj funkcija v Excelu. Vendar pa lahko ta funkcija naenkrat naredi samo eno kopijo. Tukaj s Kutools za Excel Kopirajte delovne liste Pripomoček lahko preprosto naredite toliko kopij številnih delovnih listov, kot jih potrebujete v aktivnem delovnem zvezku, samo z več kliki.


kopija oglasa več delovnih listov 01

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

Naredite več kopij enega določenega delovnega lista v aktivni delovni zvezek s kodo VBA

Če želite narediti 10 kopij določenega delovnega lista, se Premakni ali Kopiraj ukaz bo zamuden in operacijo morate večkrat ponoviti. Toda z naslednjo kodo VBA lahko delovni list hitro kopirate 10-krat naenkrat.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: Naredite več kopij določenih delovnih listov v aktivni delovni zvezek

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

Opombe: V zgornji kodi nadomestite "Sheet1"z imenom lista, ki ga želite kopirati.

3. Nato pritisnite F5 tipko za zagon kode, se prikaže pozivno polje, ki vas vpraša, koliko kopij listov želite.

4. Nato kliknite OK, je bil navedeni delovni list v aktivnem delovnem zvezku 100-krat kopiran.


S Kutools za Excel ustvarite več kopij več delovnih listov v aktivni delovni zvezek

Čeprav je v Excelu enostavno narediti kopijo več delovnih listov, če želite v trenutnem delovnem zvezku narediti več kopij več delovnih listov, boste morda morali uporabiti Premakni ali Kopiraj znova in znova ukazni element. Bi radi stvar naredili z enim klikom? Z Kopirajte delovne liste uporabnost dodatka tretje osebe Kutools za Excel, lahko z enim klikom v Excelu naredite več kopij več delovnih listov.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. Kliknite Kutools Plus > Kopirajte delovne liste. Oglejte si posnetek zaslona:

Opombe: Klik Kutools Plus > Delovni list > Kopirajte delovne liste bo dobil tudi to funkcijo.

2. Uporabi nastavitve v Kopirajte več delovnih listov pogovorno okno:
(1) Označite delovne liste, iz katerih želite kopirati Kopirajte izbrane delovne liste oddelek.
(2) Navedite Število izvodov.
(3) Določite položaj kopiranih listov, na primer pred ali po vseh delovnih listih, pred ali za trenutnim delovnim listom.
(4) Kliknite Ok gumb.

3. Pojavi se pozivno polje, ki vas opozori, da so bili preverjeni delovni listi kopirani večkrat, kot potrebujete, kliknite OK za izhod iz njega. Oglejte si posnetek zaslona:

Ta Kopirajte več delovnih listov značilnost Kutools za Excel bo naredil več kopij več določenih delovnih listov v aktivnem delovnem zvezku samo z več kliki. Brezplačno preskusite!


Naredite eno kopijo več delovnih listov iz več delovnih zvezkov v novega

Če imate nameščen Kutools za Excel, ga lahko tudi uporabite Združite delovne liste funkcija za kopiranje več delovnih listov iz več zaprtih delovnih zvezkov v nov delovni zvezek z več kliki samo v Excelu.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. Kliknite Kutools Plus > Združite za aktiviranje funkcije kombiniranja delovnih listov.

2. V čarovniku za kombiniranje delovnih listov - 1. korak od 3, preverite Več delovnih listov iz delovnih zvezkov združite v en delovni list in kliknite na Naslednji . Oglejte si posnetek zaslona:

3. V čarovniku za kombiniranje delovnih listov - korak 2 od 3, storite tako, kot je prikazano na sliki:
(1) Kliknite Dodaj > file or Mapa za dodajanje delovnih zvezkov boste kopirali delovne liste.
(2) V Seznam delovnih zvezkov v razdelku preverite delovni zvezek, katerega delovne liste boste kopirali;
(3) V Seznam delovnih listov v razdelku preverite delovne liste, ki jih boste kopirali;
(4) Ponovite zgoraj (2) in (3) za izbiro delovnih listov iz drugih delovnih zvezkov, ki jih boste kopirali.
(5) Kliknite Naslednji gumb.

4. V čarovniku Combine Worksheets - Step 3 of 3 nastavite nastavitve kopiranja, kot želite, in kliknite Konec gumb.

5. Zdaj v novem pogovornem oknu določite ciljno mapo, v katero želite shraniti novo delovno knjigo, novo delovno knjigo poimenujte v Ime datoteke in kliknite Shrani . Oglejte si posnetek zaslona:

Zdaj se bosta odprli še dve pogovorni okni in vas prosili, da odprete nov delovni zvezek in shranite kombinacijo scenarijev. Doslej je kopiral vse določene delovne liste iz več delovnih zvezkov hkrati.

S tem Kombiniraj (delovni listi) Pripomoček lahko preprosto kopirate in kombinirate delovne liste in delovne zvezke, kot je prikazano na spodnjem seznamu. Brezplačno preskusite!
(1) hitro združite več delovnih listov / obsegov od delovnih zvezkov v en delovni list;
(2) Hitro združite / združite vse istoimenske delovne liste v delovnih zvezkih v en delovni list;
(3) hitro združite / združite delovne liste ali delovne zvezke v en delovni zvezek;
(4) Hitro povzemite / izračunajte podatke iz več delovnih listov v en delovni list.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (25)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Z uporabo kode VBA je poimenovanje podvojenih delovnih listov v obratnem vrstnem redu. Recimo, da naredim 10 kopij Sheet1, na koncu bom Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......ali jih je mogoče imeti v normalnem vrstnem redu?
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem kodo VBA in dobil sem napako izven obsega indeksa (9). Ime lista sem zamenjal z vsem, kar sem pomislil, kar je že bilo v delovnem zvezku. Imate kakšno idejo, kaj sem naredil narobe? Ali obstaja tudi način, da poimenujete vsak list postopoma? Prepričan sem, da bi bilo to povezano z Michaelovim vprašanjem. Predvidevam, da bi bil odgovor na njegovo vprašanje, da bi morali cilj After nekako nastaviti na "list"+x, kar bi veljalo za moje vprašanje, če bi obstajal način, da določimo, kako naj se poimenuje nov list. Vedno bi lahko zamenjal »master« mojega šefa v »avgust 0« ali kateri koli mesec, vendar bi ji bilo lažje razumeti, če bi scenarij samodejno poimenoval.
Ta komentar je moderator na spletnem mestu minimiziral
hvala, koda vba je bila ogromna
Ta komentar je moderator na spletnem mestu minimiziral
Vau, hvala za kodo VBA. Res zelo pomaga!
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Z uporabo kode VBA je poimenovanje podvojenih delovnih listov v obratnem vrstnem redu. Recimo, da naredim 10 kopij Sheet1, na koncu bom Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......ali jih je mogoče imeti v normalnem vrstnem redu?Avtor: MichaelTadashi[/quote] Je kdo znal odgovoriti na to vprašanje? Ustvariti moram 72 kopij, vendar bi bilo potrebno, da so urejene (od 1 do 72, namesto od 72 do 1) Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
[quote][quote]Z uporabo kode VBA je poimenovanje podvojenih delovnih listov v obratnem vrstnem redu. Recimo, da naredim 10 kopij Sheet1, na koncu bom Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......ali jih je mogoče imeti v normalnem vrstnem redu?Juan[/quote] Je kdo znal odgovoriti na to vprašanje? Ustvariti moram 72 kopij, vendar bi bilo potrebno, da so urejene (od 1 do 72, namesto od 72 do 1) Hvala!Avtor: MichaelTadashi[/quote]e] Če želite, da so kopije lista v zaporednem vrstnem redu namesto nazaj, spremenite naslednjo vrstico ... After:=ActiveWorkbook.Sheets("List1") za to... After:=ActiveWorkbook.Sheets(Delovni listi. Število) Moja dokončana koda je izgledala takole, ki uporablja 2 poziva InputBox za omogočanje dinamičnega števila kopij in imena delovnega lista. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Koliko kopij potrebujete?") s = InputBox("Vnesite ime delovnega lista, ki ga želite kopirati") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Kako pridobim neprekinjeno oštevilčenje kopij. Če se list, ki ga želim kopirati, imenuje I002, in želim, da se naslednji imenuje I003, I004, I005 in tako naprej.
Ta komentar je moderator na spletnem mestu minimiziral
Poiščite besedo "Po" in jo spremenite v "Prej". To bo ustvarilo kopije v pravilnem vrstnem redu "Pred" List1. Edina stvar, ki si jo je treba zapomniti, je, da se bo oštevilčenje vedno začelo od (2), saj se bo izvirni list vedno štel kot 1. izvod. Prav tako lahko zamenjate "Sheet1" z imenom zavihka, ki ga poskušate kopirati.
Ta komentar je moderator na spletnem mestu minimiziral
da, deluje, hvala. Uspešno sem naredil več kopij enega delovnega lista v istem delovnem zvezku z veliko uporabo kode vba thnx.
Ta komentar je moderator na spletnem mestu minimiziral
kako kopirati z enako širino stolpcev
Ta komentar je moderator na spletnem mestu minimiziral
Ista širina stolpcev kot izvirni delovni list ali želite, da so vse širine stolpcev enake?
Ta komentar je moderator na spletnem mestu minimiziral
Dobil sem isto napako kot Theou in zdi se, da je nihče ni odpravil. Moji zavihki so že poimenovani PO 51, PO 52 itd. in sem zamenjal Sheet1 s PO 51, da sem to kopiral, in dobil podpisno napako izven dosega (9) Sledil sem Schuylerjevi kodi, da sem dobil pravi vrstni red, vendar še vedno dobim napako in vedno je posledica teh dveh vrstic: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Dobil sem isto napako kot Theou in zdi se, da je nihče ni odpravil. Moji zavihki so že poimenovani PO 51, PO 52 itd. in sem zamenjal Sheet1 s PO 51, da sem to kopiral, in dobil podpisno napako izven dosega (9) Sledil sem Schuylerjevi kodi, da sem dobil pravi vrstni red, vendar še vedno dobim napako in vedno je posledica teh dveh vrstic: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Avtor Debbi[/quote] Ali lahko vključite svojo celotno kodo, da olajšate odpravljanje napak? "Napaka indeksa izven obsega" običajno pomeni, da se koda sklicuje na nekaj, kar ne obstaja. To najdem v svoji lastni kodi, ko imam tipkarsko napako ali kaj podobnega.
Ta komentar je moderator na spletnem mestu minimiziral
Dobim napako, da 'numtimes' ni definirano...?
Ta komentar je moderator na spletnem mestu minimiziral
kam bom vstavil to zgornjo kodo v vba, naj ustvarim skupni gumb, potem pa notri?? S spoštovanjem.
Ta komentar je moderator na spletnem mestu minimiziral
Sledite spodnjim korakom:
1. Kopirajte zgornjo kodo
2. Držite tipke ALT + F11 in odpre se okno Microsoft Visual Basic za aplikacije.
2. Kliknite Vstavi > Modul in prilepite naslednjo kodo v okno modula.
4. Nato pritisnite tipko F5, da zaženete kodo
5. Pojavi se okno s pozivom, ki vas vpraša, koliko kopij listov želite.
Ta komentar je moderator na spletnem mestu minimiziral
Ko sem ga prvič poskusil, sem dobil sporočilo o napaki, ker nisem spremenil imena Sheet1. Ko sem ugotovil, kaj je povzročilo napako, sem še malo raziskal, saj nisem želel ročno vnašati imena lista v makro. In ko potrebujem to funkcijo, je skoraj vedno za trenutni list. Dodal sem vrstico a = activesheet.name in popravil vrstico po:=activeworkbook.sheets("sheet1") v activeworkbook.sheets(a).copy _ To je delovalo zelo dobro, vendar sem opazil, da je bilo oštevilčenje obrnjeno ... to me ni motilo, saj sem vseeno ročno preimenoval nove liste. Ko sem videl Schuylerjevo objavo, sem dodatno popravil vrstico activeworkbook.sheets(a).copy _ v after:=activeworkbook.sheets(worksheets.count) Zdaj sem zadovoljen z rezultatom. Moj končani makro: Sub copies() Dim x As Integer x = InputBox("Vnesite število krat za kopiranje Sheet1") Za numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Vse najboljše, Barry
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala Barry. Vaš končni makro je edina stvar, ki je delovala zame.
Ta komentar je moderator na spletnem mestu minimiziral
dobil sem napako v sintaksi na "After:=ActiveWorkbook.Sheets(Worksheets.Count)


ampak ne vem kaj je narobe ... mi lahko pomagate prosim?
Ta komentar je moderator na spletnem mestu minimiziral
Fantastična koda VBA - res je pomagala
Ta komentar je moderator na spletnem mestu minimiziral
Sem nov v tem, samo poskušam narediti kopije istega lista, to je koda, ki jo uporabljam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Koliko kopij potrebujete?") s = InputBox("Vnesite ime delovnega lista, ki ga želite kopirati") For numtimes = 1 Na numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, ko uporabim kodo, mi izpiše napako "Syntax Error", potem se to besedilo obarva rdeče ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) in besedilo is postane rumeno Sub Copier() kaj lahko storim, da to popravim.
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Sem nov v tem, samo poskušam narediti kopije istega lista, to je koda, ki jo uporabljam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Koliko kopij potrebujete?") s = InputBox("Vnesite ime delovnega lista, ki ga želite kopirati") For numtimes = 1 Na numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, ko uporabim kodo, mi izpiše napako "Syntax Error", potem se to besedilo obarva rdeče ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) in besedilo is postane rumeno Sub Copier() kaj lahko storim, da to popravim.Avtor Tyler Dempsey[/quote] Dvakrat preverite svojo kodo in se prepričajte, da v ActiveWorkbooku nimate prostora. Listi(-i).Kopiraj _ ali na Sheets(Worksheets.Cou nt)
Ta komentar je moderator na spletnem mestu minimiziral
[quote]Sem nov v tem, samo poskušam narediti kopije istega lista, to je koda, ki jo uporabljam. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Koliko kopij potrebujete?") s = InputBox("Vnesite ime delovnega lista, ki ga želite kopirati") For numtimes = 1 Na numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub, ko uporabim kodo, mi izpiše napako "Syntax Error", potem se to besedilo obarva rdeče ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) in besedilo is postane rumeno Sub Copier() kaj lahko storim, da to popravim.Avtor Tyler Dempsey[/quote] Tukaj je natančna koda, ki jo želite uporabiti: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Koliko kopij potrebujete?") s = InputBox("Enter ime delovnega lista, ki ga želite kopirati") Za numtimes = 1 Do numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, zadnji mi je rešil življenje :)
Ta komentar je moderator na spletnem mestu minimiziral
Delovni kodeks

Podkopirni stroj ()
Zatemni kot niz
Dim numtimes kot celo število
Dim numCopies kot celo število
numCopies = InputBox("Koliko kopij potrebujete?")
s = InputBox("Vnesite ime delovnega lista, ki ga želite kopirati")
Za numtimes = 1 Za število kopij
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Naslednji
End Sub

kopiraj celotno vrstico iz ActiveWorkbook.Sheets...... to je bil problem in nekaj presledkov

Imej lep dan
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL