Ga naar hoofdinhoud

Hoe meerdere bladen meerdere keren kopiëren in Excel?

Soms moeten we een kopie of meerdere kopieën maken van gespecificeerde werkbladen in een werkmap. Hier zijn enkele snelle manieren om u te helpen eenvoudig een werkblad of meerdere werkbladen meerdere keren in Excel te kopiëren.


Maak één kopie van meerdere werkbladen één keer naar een actieve werkmap of een andere werkmap met de opdracht Verplaatsen of Kopiëren

Met de Verplaatsen of kopiëren opdracht in Excel, kunt u één kopie van een werkblad, meerdere specifieke werkbladen of alle werkbladen in een actieve werkmap of een andere werkmap tegelijk maken.

1. Selecteer in de bepaalde werkmap waarin u werkbladen wilt kopiëren meerdere werkbladen op de werkbladtabbalk.
Note: Vasthouden CTRL toets, kunt u meerdere niet-aangrenzende bladtabbladen selecteren door ze één voor één op de werkbladtabbalk te klikken; vasthouden SHIFT -toets, kunt u meerdere aangrenzende bladtabbladen selecteren door op de eerste bladtab en de laatste op de werkbladtabbalk te klikken.

2. Klik met de rechtermuisknop op de geselecteerde bladtab op de werkbladtabbalk en selecteer Verplaatsen of kopiëren vanuit het contextmenu. Zie screenshot:
doc kopieer meerdere bladen 01

3. In de Verplaatsen of kopiëren dialoogvenster, specificeer dan de volgende instellingen:
(1) Geef de doelwerkmap op waarnaar u de werkbladen wilt kopiëren vanuit het Boeken keuzelijst. U kunt de actieve werkmap, een andere geopende werkmap of een nieuwe werkmap naar behoefte kiezen.
(2) Specificeer de positie van de gekopieerde vellen op de werkbladtabbalk, u kunt kiezen na alle bestaande vellen.
(3) Controleren Maak een kopie optie, als u deze optie niet aanvinkt, worden de geselecteerde werkbladen naar de doelwerkmap verplaatst.
(4) Klik op het OK knop.

Nu maakt het slechts één kopie van de geselecteerde werkbladen naar de opgegeven werkmap. Om meerdere kopieën van deze werkbladen te maken, kunt u de bewerking meerdere keren herhalen.

Slechts enkele klikken om meerdere kopieën te maken van meerdere werkbladen in een actieve werkmap

Over het algemeen kunnen we meerdere werkbladen kopiëren met de Verplaatsen of kopiëren functie in Excel. Met deze functie kunt u echter slechts één kopie tegelijk maken. Hier, met Kutools voor Excel's Kopieer werkbladen hulpprogramma, kunt u met slechts enkele klikken eenvoudig zoveel kopieën maken van veel werkbladen als u nodig hebt in de actieve werkmap.


ad kopieer meerdere werkbladen 01

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

Maak meerdere kopieën van een gespecificeerd werkblad naar een actieve werkmap met VBA-code

Als u 10 kopieën van een gespecificeerd werkblad wilt maken, kan de Verplaatsen of kopiëren commando zal een tijdrovende manier zijn, en u moet de bewerking vele malen herhalen. Maar met de volgende VBA-code kunt u het werkblad snel 10 keer tegelijk kopiëren.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA: maak meerdere kopieën van bepaalde werkbladen in een actieve werkmap

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

Note: Vervang in de bovenstaande code 'Sheet1"met de naam van het te kopiëren blad.

3. Druk vervolgens op F5 toets om de code uit te voeren, verschijnt er een promptvenster om u te vragen hoeveel bladkopieën u wilt.

4. Dan klikken OKis het opgegeven werkblad 100 keer gekopieerd in de actieve werkmap.


Maak meerdere kopieën van meerdere werkbladen in een actieve werkmap met Kutools voor Excel

Hoewel het eenvoudig is om een ​​kopie van meerdere werkbladen in Excel te maken, moet u wellicht de optie gebruiken als u meerdere kopieën wilt maken van meerdere werkbladen in de huidige werkmap. Verplaatsen of kopiëren commando-item opnieuw en opnieuw. Wil je het ding met één klik gedaan krijgen? Met de Kopieer werkbladen hulpprogramma van de invoegtoepassing van derden Kutools for Excel, kunt u in Excel met één klik meerdere kopieën van meerdere werkbladen maken.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

1. Klikken Koetools Plus > Kopieer werkbladen. Zie screenshot:

Note: Klikken Koetools Plus > Werkblad > Kopieer werkbladen krijgt deze functie ook.

2. Pas instellingen toe in het Kopieer meerdere werkbladen dialoog venster:
(1) Controleer de werkbladen waarvan u wilt kopiëren Kopieer de geselecteerde werkbladen pagina.
(2) Specificeer Het aantal exemplaren.
(3) Bepaal de positie van de gekopieerde bladen, bijvoorbeeld voor of na alle werkbladen, voor of na het huidige werkblad.
(4) Klik op het Ok knop.

3. Er verschijnt een promptvenster om u eraan te herinneren dat de aangevinkte werkbladen naar behoefte meerdere keren zijn gekopieerd, klik op de OK knop om het af te sluiten. Zie screenshot:

Deze Kopieer meerdere werkbladen kenmerk van Kutools for Excel maakt met slechts enkele klikken meerdere kopieën van meerdere gespecificeerde werkbladen in de actieve werkmap. Probeer gratis!


Maak een kopie van meerdere werkbladen uit meerdere werkmappen naar een nieuwe

Als je Kutools voor Excel hebt geïnstalleerd, kun je het ook toepassen Combineer werkbladen functie om één kopie van meerdere werkbladen uit meerdere gesloten werkmappen naar een nieuwe werkmap te maken met enkele klikken alleen in Excel.

Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu

1. Klikken Koetools Plus > Combineren om de functie Werkbladen combineren te activeren.

2. Controleer in de wizard Werkbladen combineren - Stap 1 van 3 het Combineer meerdere werkbladen uit werkmappen in één werkblad optie en klik op de Volgende knop. Zie screenshot:

3. Voer in de wizard Werkbladen combineren - Stap 2 van 3 de volgende schermafbeelding uit:
(1) Klik op Toevoegen > Dien in or Map om werkmappen toe te voegen waaruit u werkbladen wilt kopiëren.
(2) In de Werkboeklijst sectie, controleer de werkmap waarvan u de werkbladen wilt kopiëren;
(3) In de Werkblad lijst sectie, controleer de werkbladen die u wilt kopiëren;
(4) Herhaal hierboven (2) en (3) om werkbladen te selecteren uit andere werkmappen die u wilt kopiëren.
(5) Klik op het Volgende knop.

4. Configureer in de wizard Werkbladen combineren - Stap 3 van 3 de kopieerinstellingen naar behoefte en klik op Finish knop.

5. Geef nu in het nieuwe dialoogvenster een doelmap op om de nieuwe werkmap op te slaan, noem de nieuwe werkmap in de Bestandsnaam in en klik op de Bespaar knop. Zie screenshot:

Nu verschijnen er nog twee dialoogvensters die u vragen om de nieuwe werkmap te openen en het combinatiescenario op te slaan, klik op de knoppen als u nodig hebt. Tot nu toe heeft het alle opgegeven werkbladen uit meerdere werkmappen tegelijk gekopieerd.

Met deze Combineren (werkbladen) hulpprogramma kunt u gemakkelijk werkbladen en werkmappen kopiëren en combineren zoals in de volgende lijst wordt weergegeven. Probeer gratis!
(1) Combineer snel meerdere werkbladen / bereiken van werkmappen in één werkblad;
(2) Snel alle werkbladen met dezelfde naam in werkmappen samenvoegen / combineren tot één werkblad;
(3) Werkbladen of werkmappen snel samenvoegen / combineren in één werkmap;
(4) Vat gegevens van meerdere werkbladen snel samen / bereken ze in één werkblad.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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