Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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.
Opmerking:: 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. Gratis proefperiode van 30 dagen met volledige functionaliteit!
ad kopieer meerdere werkbladen 01

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! 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

Opmerking:: 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 - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

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

Opmerking:: Klikken Kutools 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 sectie.
(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:

Dit 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 - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

1. Klikken Kutools 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) als (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 Klaar! 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.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tyler Dempsey · 4 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Jorge · 2 years ago
      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
    • To post as a guest, your comment is unpublished.
      Schuyler · 4 years ago
      [quote name="Tyler Dempsey"]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.[/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
      • To post as a guest, your comment is unpublished.
        Belva · 9 months ago
        Thank you, the last one saved my life :)
    • To post as a guest, your comment is unpublished.
      Schuyler · 4 years ago
      [quote name="Tyler Dempsey"]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.[/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)
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    Fantastic VBA code - really helped
  • To post as a guest, your comment is unpublished.
    Barry · 5 years ago
    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
    • To post as a guest, your comment is unpublished.
      MJ · 3 years ago
      i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


      but i dunno whats wrong... Can u help me please?
    • To post as a guest, your comment is unpublished.
      Kate · 3 years ago
      Thank you so much Barry. Your finished macro is the only thing that worked for me.
  • To post as a guest, your comment is unpublished.
    stalag 17 · 5 years ago
    where i will insert this above code in vba should i create common button then inside ?? regards.
    • To post as a guest, your comment is unpublished.
      Adi · 3 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Susan · 5 years ago
    I get an error that 'numtimes' is not defined...?
  • To post as a guest, your comment is unpublished.
    Debbi · 5 years ago
    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)
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="Debbi"]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)[/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.
  • To post as a guest, your comment is unpublished.
    Roy · 6 years ago
    how to copy with same column widths
    • To post as a guest, your comment is unpublished.
      Schuyler · 6 years ago
      Same column widths as the original Worksheet or do you want all of the column widths to be the same?
  • To post as a guest, your comment is unpublished.
    sadaqat · 6 years ago
    yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
  • To post as a guest, your comment is unpublished.
    Gopal Krishan · 6 years ago
    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.
  • To post as a guest, your comment is unpublished.
    juan · 6 years ago
    [quote name="MichaelTadashi"]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?[/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!
    • To post as a guest, your comment is unpublished.
      Schuyler · 6 years ago
      [quote name="juan"][quote name="MichaelTadashi"]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?[/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![/quote]

      If you want the sheet copies to be in sequential order instead of backwards, change the following line...

      [i]After:=ActiveWorkbook.Sheets[/i][u]("Sheet1")[/u]

      to this...

      [i]After:=ActiveWorkbook.Sheets[/i][u](Worksheets.Count)[/u]

      My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name..


      [i]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[/i]
      • To post as a guest, your comment is unpublished.
        Karsten · 4 years ago
        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.
  • To post as a guest, your comment is unpublished.
    Lim · 7 years ago
    Wow, thanks for the VBA code. It really helps a lot!
  • To post as a guest, your comment is unpublished.
    Dee · 7 years ago
    thanks, the vba code was huge
  • To post as a guest, your comment is unpublished.
    Theou Aegis · 7 years ago
    I tried the VBA code and got subscript out of range error (9). I replaced the sheet name with anything I could think of that was in the workbook already. Any idea what I did wrong?

    Also, is there a way to make it name each sheet incrementally? This would tie in with Michael's question, I'm sure. I'm guessing the answer to his question would be you'd need to set the After target to "sheet"+x somehow and that in turn would apply to my question if there was a way to specify what to name the new sheet. I could always just change my boss' "master" to "Aug 0" or whatever month it is, but it'd be easier for her to understand if the script did the naming automatically.
  • To post as a guest, your comment is unpublished.
    MichaelTadashi · 7 years ago
    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?