Salt la conținutul principal

Cum să copiați mai multe foi de mai multe ori în Excel?

Uneori, poate fi necesar să facem o copie sau mai multe copii ale foilor de lucru specificate într-un registru de lucru. Iată câteva modalități rapide de a vă ajuta să copiați cu ușurință o foaie de lucru sau mai multe foi de lucru de mai multe ori în Excel.


Faceți o copie a mai multor foi de lucru o dată în registrul de lucru activ sau un alt registru de lucru cu comanda Mutare sau Copiere

Cu Mutați sau copiați comandă în Excel, puteți face o copie a unei foi de lucru, a mai multor foi de lucru specifice sau a tuturor foilor de lucru într-un registru de lucru activ sau un alt registru de lucru la un moment dat.

1. În registrul de lucru în care veți copia foile de lucru, selectați mai multe foi de lucru pe bara de tab Foaie.
notițe: Deținere CTRL tasta, puteți selecta mai multe file de foi nonadiacente făcând clic pe ele una câte una în bara de tab-uri Sheet; deținere SHIFT , puteți selecta mai multe file de foi adiacente făcând clic pe prima filă de foaie și pe ultima din bara de foi de foi.

2. Faceți clic dreapta pe fila de foaie selectată din bara de foi de foaie și selectați Mutați sau copiați din meniul contextual. Vedeți captura de ecran:
doc copie mai multe foi 01

3. În Mutați sau copiați caseta de dialog, vă rugăm să specificați următoarele setări:
(1) Vă rugăm să specificați registrul de lucru de destinație în care veți copia foile de lucru din A rezerva lista verticală. Puteți alege registrul de lucru activ, un alt registru de lucru deschis sau un registru de lucru nou după cum aveți nevoie.
(2) Specificați poziția foilor copiate pe bara de filă Foaie, puteți alege după toate foile existente.
(3) Verificați Creați o copie opțiune, dacă nu bifați această opțiune, foile de lucru selectate vor fi mutate în registrul de lucru de destinație.
(4) Faceți clic pe OK butonul.

Acum va face o singură copie a foilor de lucru selectate în registrul de lucru specificat. Pentru a face mai multe copii ale acestor foi de lucru, puteți repeta operația de mai multe ori.

Doar câteva clicuri pentru a face mai multe copii ale mai multor foi de lucru în registrul de lucru activ

În general, putem copia mai multe foi de lucru cu Mutați sau copiați caracteristică în Excel. Cu toate acestea, această caracteristică poate face o singură copie la un moment dat. Aici, cu Kutools pentru Excel Copiați foile de lucru utilitar, puteți face cu ușurință cât mai multe copii ale mai multor foi de lucru de care aveți nevoie în registrul de lucru activ doar cu câteva clicuri.


copiați mai multe foi de lucru 01

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

Faceți mai multe copii ale unei foi de lucru specificate în registrul de lucru activ cu cod VBA

Dacă doriți să faceți 10 copii ale unei foi de lucru specificate, Mutați sau copiați comanda va consuma mult timp și trebuie să repetați operația de multe ori. Dar cu următorul cod VBA, puteți copia rapid foaia de lucru de 10 ori simultan.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

VBA: Faceți mai multe copii ale anumitor foi de lucru într-un registru de lucru activ

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

notițe: În codul de mai sus, înlocuiți „Sheet1"cu numele foii de copiat.

3. Apoi apăsați F5 pentru a rula codul, apare o casetă de solicitare pentru a vă întreba numărul de copii pe care doriți.

4. Apoi apasa OK, foaia de lucru specificată a fost copiată de 100 de ori în registrul de lucru activ.


Faceți mai multe copii ale mai multor foi de lucru în registrul de lucru activ cu Kutools pentru Excel

Deși este simplu să faceți o copie a mai multor foi de lucru în Excel, dacă doriți să faceți mai multe copii ale mai multor foi de lucru în registrul de lucru curent, poate fi necesar să utilizați Mutați sau copiați comandați elementul din nou și din nou. Doriți să faceți lucrurile dintr-un singur clic? Cu Copiați foile de lucru utilitatea suplimentului terță parte Kutools pentru Excel, puteți face mai multe copii ale mai multor foi de lucru într-un singur clic în Excel.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

1. Clic Kutools Plus > Copiați foile de lucru. Vedeți captura de ecran:

notițe: Dând clic Kutools Plus > Fisa de lucru > Copiați foile de lucru va primi, de asemenea, această caracteristică.

2. Aplicați setările în Copiați mai multe foi de lucru căsuță de dialog:
(1) Verificați foile de lucru din care doriți să fiți copiate Copiați foile de lucru selectate secţiune.
(2) Specificați Numărul de exemplare.
(3) Determinați poziția foilor copiate, de exemplu, înainte sau după toate foile de lucru, înainte sau după foaia de lucru curentă.
(4) Faceți clic pe Ok butonul.

3. Se afișează o casetă de prompt pentru a vă reaminti că foile de lucru verificate au fost copiate de mai multe ori după cum aveți nevoie, faceți clic pe OK pentru a ieși din acesta. Vedeți captura de ecran:

Acest Copiați mai multe foi de lucru caracteristică a Kutools pentru Excel va face mai multe copii ale mai multor foi de lucru specificate în registrul de lucru activ doar cu câteva clicuri. Aveți o încercare gratuită!


Faceți o copie a mai multor foi de lucru din mai multe registre de lucru într-una nouă

Dacă aveți instalat Kutools pentru Excel, îl puteți aplica și Combinați foi de lucru caracteristică pentru a face o copie a mai multor foi de lucru din mai multe registre de lucru închise într-un registru de lucru nou cu mai multe clicuri numai în Excel.

Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Ia-L Acum

1. Clic Kutools Plus > Combina pentru a activa caracteristica Combine foi de lucru.

2. În vrăjitorul Combinați foile de lucru - Pasul 1 din 3, verificați Combinați mai multe foi de lucru din registrele de lucru într-o singură foaie de lucru și faceți clic pe Pagina Următoare → buton. Vedeți captura de ecran:

3. În vrăjitorul Combinați foile de lucru - Pasul 2 din 3, procedați după cum urmează:
(1) Faceți clic pe Adăuga > Fișier or Dosar pentru a adăuga registre de lucru veți copia fișe de lucru din.
(2) În Lista registrului de lucru secțiunea, verificați registrul de lucru ale cărui foi de lucru le veți copia;
(3) În Lista foilor de lucru secțiunea, verificați foile de lucru pe care le veți copia;
(4) Repetați mai sus (2) și (3) pentru a selecta foi de lucru din alte registre de lucru pe care le veți copia.
(5) Faceți clic pe Pagina Următoare → butonul.

4. În vrăjitorul Combinați foile de lucru - Pasul 3 din 3, configurați setările de copiere după cum aveți nevoie și faceți clic pe finalizarea butonul.

5. Acum, în noua casetă de dialog, vă rugăm să specificați un folder de destinație pentru a salva noul registru de lucru, denumiți noul registru de lucru în Nume de fișier și faceți clic pe butonul Economisiți buton. Vedeți captura de ecran:

Acum vor apărea alte două casete de dialog și vă vor cere să deschideți noul registru de lucru și să salvați scenariul de combinație, faceți clic pe butoane după cum aveți nevoie. Până în prezent, a copiat toate foile de lucru specificate din mai multe registre de lucru la un moment dat.

Cu acest Combinați (foi de lucru) utilitar, puteți copia și combina cu ușurință foi de lucru și registre de lucru, după cum se arată în următoarea listă. Aveți o încercare gratuită!
(1) Combinați rapid mai multe foi de lucru / intervale de la registre de lucru într-o singură foaie de lucru;
(2) Combinați rapid / combinați toate foile de lucru cu același nume din registrele de lucru într-o singură foaie de lucru;
(3) Combinați rapid / combinați foi de lucru sau registre de lucru într-un singur registru de lucru;
(4) Rezumați rapid / calculați datele din mai multe foi de lucru într-o singură foaie de lucru.

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() 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(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
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