Ugrás a tartalomra

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

Aktivitáskövető Á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: Tartás 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ót az Excelben. Ez a funkció azonban egyszerre csak egy másolatot tud készíteni. Itt, a Kutools for Excel segítségével 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.


hirdetési másolat több munkalap 01

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! 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 segítségével

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 az Excel számára, több másolatot készíthet több munkalapról egyetlen kattintással az Excel programban.

Kutools az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! 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 az Excel számára 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 telepítette a Kutools for Excel programot, 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 az Excel számára - Töltse fel az Excelt több mint 300 alapvető eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! 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) és a (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 hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz 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 naponta több száz kattintással csökkenti az egér kattintását!
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