Megjegyzés: A webhely többi nyelvét a Google fordítja. Vissza az angol nyelvre
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet több lapot többször másolni az Excel programban?

Előfordulhat, hogy a munkafüzetben másolatot vagy több másolatot kell készítenünk a megadott munkalapokról. Íme néhány gyors módszer, amelyek segítségével könnyedén másolhat egy munkalapot vagy több munkalapot többször az Excelben.

Készítsen egyszerre több munkalapról egy példányt aktív munkafüzetbe vagy egy másik munkafüzetbe az Áthelyezés vagy Másolás paranccsal

A ... val Áthelyezés vagy Másolás parancsot az Excel programban, egy munkalapból, több meghatározott munkalapból vagy az összes munkalapból egy példányt készíthet egyidejűleg aktív munkafüzetbe vagy egy másik munkafüzetbe.

1. Abban a munkafüzetben, ahová munkalapokat másol, válasszon ki több munkalapot a Lap lap sávján.
Megjegyzések: Holding CTRL gombot, kiválaszthat több nem szomszédos lapfület úgy, hogy egyesével rákattint a Laplap sávra; holding SHIFT gombot, kiválaszthat több szomszédos lapfület úgy, hogy rákattint az első lapfülre és az utolsóra a Laplap sávon.

2. Kattintson a jobb gombbal a Lap lap fülén a kijelölt lap fülre, majd válassza a lehetőséget Áthelyezés vagy Másolás a helyi menüből. Lásd a képernyőképet:
doc több lap másolása 01

3. Az Áthelyezés vagy Másolás párbeszédpanelen adja meg a következő beállításokat:
(1) Kérjük, adja meg a cél munkafüzetet, ahová átmásolja a munkalapokat Foglalni legördülő lista. Igény szerint kiválaszthatja az aktív munkafüzetet, egy másik nyitott munkafüzetet vagy egy új munkafüzetet.
(2) Adja meg a másolt lapok helyzetét a Laplap sávon, amelyet az összes létező lap után kiválaszthat.
(3) Ellenőrizze Hozzon létre egy példányt opciót, ha nem jelöli be ezt az opciót, a kiválasztott munkalapok áthelyezésre kerülnek a cél munkafüzetbe.
(4) Kattintson a gombra OK gombot.

Most csak egy példányt készít a kiválasztott munkalapokról a megadott munkafüzetbe. Ezen munkalapok többszörös másolatának elkészítéséhez a műveletet többször megismételheti.

Csak több kattintás több munkalap több másolatának elkészítéséhez az aktív munkafüzetben

Általában több munkalapot másolhatunk a Áthelyezés vagy Másolás funkció az Excelben. Ez a szolgáltatás azonban egyszerre csak egy példányt készíthet. Itt, a Kutools for Excel's programmal Munkalapok másolása segédprogram segítségével, egyszerűen csak több kattintással készíthet annyi munkalapot, amennyire szüksége van az aktív munkafüzetbe. 30 napos teljes funkciós ingyenes próba!
hirdetési másolat több munkalap 01

Kutools for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

Készítsen több másolatot egy megadott munkalapról VBA kóddal ellátott aktív munkafüzetbe

Ha 10 másolatot szeretne készíteni egy megadott munkalapról, akkor a Áthelyezés vagy Másolás parancs időigényes mód lesz, és a műveletet sokszor meg kell ismételni. De a következő VBA-kóddal gyorsan másolhatja a munkalapot egyszerre 10-szer.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA: Készítsen több másolatot egy bizonyos munkalapról az aktív munkafüzetbe

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

Megjegyzések: A fenti kódban cserélje le a "Sheet1"a másolandó lap nevével.

3. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, megjelenik egy felszólító mező, amely megkérdezi a kívánt ívmásolatok számát.

4. Ezután kattintson OK, a megadott munkalapot százszor másolták az aktív munkafüzetbe.

Készítsen több másolatot több munkalapról aktív munkafüzetbe a Kutools for Excel programmal

Noha egyszerű több munkalapról másolatot készíteni az Excel programban, ha több munkalapról is szeretne több példányt készíteni az aktuális munkafüzetben, előfordulhat, hogy a Áthelyezés vagy Másolás parancsot újra és újra. Egy kattintással szeretné elvégezni a dolgot? A ... val Munkalapok másolása a harmadik fél bővítményének segédprogramja Kutools for Excel, több másolatot készíthet több munkalapról egyetlen kattintással az Excel programban.

Kutools for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

1. Kattints Kutools Plus > Munkalapok másolása. Lásd a képernyőképet:

Megjegyzések: Kattintson Kutools Plus > Munkalap > Munkalapok másolása szintén megkapja ezt a funkciót.

2. Alkalmazza a beállításokat a Több munkalap másolása párbeszédablak:
(1) Ellenőrizze a másolni kívánt munkalapokat Másolja a kijelölt munkalapokat szakasz.
(2) Adja meg A példányszám.
(3) Határozza meg a másolt lapok helyzetét, például az összes munkalap előtt vagy után, az aktuális munkalap előtt vagy után.
(4) Kattintson a gombra Ok gombot.

3. Megjelenik egy felszólító doboz, amely emlékezteti Önt, hogy az ellenőrzött munkalapokat szükség szerint többször másolta át. Kérjük, kattintson a gombra OK gombot a kilépéshez. Lásd a képernyőképet:

Ezt Több munkalap másolása jellemzője Kutools for Excel csak egy kattintással több másolatot készít az aktív munkafüzet több megadott munkalapjáról. Ingyenes próbaverziót!

Készítsen egy példányt több munkafüzetből több munkafüzetből egy újba

Ha a Kutools for Excel telepítve van, akkor azt is alkalmazhatja Kombinálja a munkalapokat funkcióval több zárt munkafüzetből több munkalap egy példányát készítheti új munkafüzetbe több kattintással, csak az Excel programban.

Kutools for Excel - Több mint 300 praktikus eszközt tartalmaz az Excel számára. Teljes funkciós ingyenes 30 napos próbaidőszak, nincs szükség hitelkártyára! Szerezd meg most

1. Kattints Kutools Plus > Kombájn a Munkalapok kombinálása funkció aktiválásához.

2. A Munkalapok kombinálása - A 1 varázsló 3. lépésében ellenőrizze a Kombinálja a munkafüzetek több munkalapját egy munkalapba opciót, és kattintson a Következő gomb. Lásd a képernyőképet:

3. A Munkalapok kombinálása - 2 varázsló 3. lépésében kövesse az alábbi képernyőképet:
(1) Kattintson hozzáad > filé or Mappa munkafüzetek hozzáadásához a munkalapokat átmásolja.
(2) A Munkafüzetek listája részben ellenőrizze a munkafüzetet, amelynek munkalapjait átmásolja;
(3) A Munkalap lista részben ellenőrizze a másolni kívánt munkalapokat;
(4) Ismételje meg a fenti lépéseket (2) (3) munkalapok kiválasztásához más munkafüzetekből, amelyeket átmásol.
(5) Kattintson a gombra Következő gombot.

4. A Munkalapok kombinálása - 3/3-as varázslóban konfigurálja a másolási beállításokat szükség szerint, majd kattintson a befejez gombot.

5. Az új párbeszédpanelen adja meg a célmappát az új munkafüzet mentéséhez, nevezze el az új munkafüzetet a Fájlnév mezőbe, és kattintson a Megtakarítás gomb. Lásd a képernyőképet:

Ekkor megjelenik egy másik két párbeszédpanel, amely megkéri Önt, hogy nyissa meg az új munkafüzetet, és mentse a kombinációs forgatókönyvet. Eddig az összes megadott munkalapot egyszerre több munkafüzetből másolta.

Ezzel Kombinálás (munkalapok) segédprogrammal, könnyedén másolhatja és kombinálhatja a munkalapokat és a munkafüzeteket az alábbi listában. Ingyenes próbaverziót!
(1) Gyorsan egyesítsen több munkalapot / tartományt a munkafüzetekből egy munkalapba;
(2) Gyorsan egyesítse / összesítse az azonos nevű munkalapokat a munkafüzetek között egy munkalapba;
(3) Munkalapok vagy munkafüzetek gyors egyesítése / egyesítése egy munkafüzetbe;
(4) Gyorsan foglalja össze / számolja ki a több munkalap adatait egy munkalapba.

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
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 · 3 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 · 1 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 · 3 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 · 1 months ago
        Thank you, the last one saved my life :)
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 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 · 4 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 · 2 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 · 4 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 · 5 years ago
    how to copy with same column widths
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 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 · 5 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 · 5 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 · 5 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 · 6 years ago
    Wow, thanks for the VBA code. It really helps a lot!
  • To post as a guest, your comment is unpublished.
    Dee · 6 years ago
    thanks, the vba code was huge
  • To post as a guest, your comment is unpublished.
    Theou Aegis · 6 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?