Note: The other languages of the website are Google-translated. Back to English

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ó 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.


hirdetési másolat több munkalap 01

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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 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öbb mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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 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 az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! 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 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 ...
  • Szuper Formula Bár (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-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 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 naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (25)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
A VBA kód használatával a duplikált munkalapok elnevezése fordított sorrendben történik. Tegyük fel, hogy csinálok 10 másolatot a Lap1-ből, végül a Lap1, Lap1(10), Lap1(9), Lap1(8) lesz,.......lehet, hogy normál sorrendben legyenek?
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam a VBA kódot, és az alsó index tartományon kívüli hibát kaptam (9). Lecseréltem a lap nevét bármire, ami eszembe jutott, ami már benne volt a munkafüzetben. Van ötleted, hogy mit csináltam rosszul? Valamint van mód arra, hogy fokozatosan elnevezzék az egyes lapokat? Biztos vagyok benne, hogy ez összefügg Michael kérdésével. Feltételezem, hogy a kérdésére az lenne a válasz, hogy az After célt "sheet"+x-re kellene valahogy állítani, és ez a kérdésemre is vonatkozna, ha meg lehetne adni, hogy mi legyen az új lap neve. Mindig lecserélhetném a főnököm „mesterét” „aug 0”-ra vagy bármilyen hónapra, de könnyebben megértené, ha a forgatókönyv automatikusan elvégzi a névadást.
A weboldal moderátora ezt a megjegyzést minimalizálta
köszi, a vba kód hatalmas volt
A weboldal moderátora ezt a megjegyzést minimalizálta
Hú, köszi a VBA kódot. Tényleg sokat segít!
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]A VBA kód használatával a duplikált munkalapok elnevezése fordított sorrendben történik. Tegyük fel, hogy csinálok 10 másolatot a Lap1-ből, végül a Lap1, Lap1(10), Lap1(9), Lap1(8) lesz,.......lehet, hogy normál sorrendben legyenek?Írta: MichaelTadashi[/quote] Valaki tudott erre a kérdésre válaszolni? Létre kell hoznom 72 példányt, de ez szükséges lenne, hogy rendben legyenek (1-től 72-ig, 72-1 helyett) Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote][quote]A VBA kód használatával a duplikált munkalapok elnevezése fordított sorrendben történik. Tegyük fel, hogy csinálok 10 másolatot a Lap1-ből, végül a Lap1, Lap1(10), Lap1(9), Lap1(8) lesz,.......lehet, hogy normál sorrendben legyenek?Juan által[/quote] Valaki tudott erre a kérdésre válaszolni? Létre kell hoznom 72 példányt, de ez szükséges lenne, hogy rendben legyenek (1-től 72-ig, 72-1 helyett) Köszönöm!Írta: MichaelTadashi[/quote]e] Ha azt szeretné, hogy a lapmásolatok egymás utáni sorrendben legyenek, nem pedig visszafelé, módosítsa a következő sort... After:=ActiveWorkbook.Sheets("1. lap") ehhez... After:=ActiveWorkbook.Sheets(Munkalapok. Számlálás) Az elkészült kódom a következőképpen nézett ki, amely 2 InputBox promptot használ, hogy lehetővé tegye a dinamikus másolatszámot és a munkalap nevét. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hány példányra van szüksége?") s = InputBox("Adja meg a másolni kívánt munkalap nevét") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan tudom folyamatosan számozni a másolatokat? Ha a másolni kívánt lap neve I002, a következő pedig I003, I004, I005 és így tovább.
A weboldal moderátora ezt a megjegyzést minimalizálta
Keresse meg az „Utána” szót, és módosítsa „Előtte” szóra. Ezzel a másolatokat a megfelelő sorrendben hozza létre az „Előtte” Sheet1. Az egyetlen dolog, amit meg kell jegyezni, az az, hogy a számozás mindig (2)-től kezdődik, mivel az eredeti lapot mindig az első példánynak számítja. A "Sheet1" szöveget lecserélheti a másolni kívánt lap nevére is.
A weboldal moderátora ezt a megjegyzést minimalizálta
igen, működik, köszönöm. Sikeresen készítettem több másolatot egyetlen munkalapról ugyanabban a munkafüzetben a vba kód thnx használatával.
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan másoljunk azonos oszlopszélességekkel
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanazok az oszlopszélességek, mint az eredeti munkalapon, vagy azt szeretné, hogy az összes oszlopszélesség azonos legyen?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanazt a hibát kaptam, mint Theou, és úgy tűnik, senki sem foglalkozott vele. A lapjaim neve már PO 51, PO 52 stb., és a Sheet1-et PO 51-re cseréltem, hogy ezt másoljam, és az alsó index hibája a tartományon kívülre került (9) Követtem Schuyler kódját, hogy megtaláljam a megfelelő sorrendet, de továbbra is megjelenik a hibaüzenet és ez mindig ennek a két sornak köszönhető: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote] Ugyanazt a hibát kaptam, mint Theou, és úgy tűnik, senki sem foglalkozott vele. A lapjaim neve már PO 51, PO 52 stb., és a Sheet1-et PO 51-re cseréltem, hogy ezt másoljam, és az alsó index hibája a tartományon kívülre került (9) Követtem Schuyler kódját, hogy megtaláljam a megfelelő sorrendet, de továbbra is megjelenik a hibaüzenet és ez mindig ennek a két sornak köszönhető: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Írta: Debbi[/quote] Be tudnád adni a teljes kódot, hogy könnyebb legyen a hibakeresés? Az "alsóindex hiba a tartományon kívül" általában azt jelenti, hogy a kód valamire hivatkozik, ami nem létezik. Ezt a saját kódomban találom meg, ha elgépelést vagy valami ehhez hasonlót kapok.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hibaüzenetet kapok, hogy a "számidők" nincs megadva...?
A weboldal moderátora ezt a megjegyzést minimalizálta
hova fogom beszúrni ezt a fenti kódot a vba-ba, akkor hozzak létre közös gombot, majd belül? Üdvözlettel.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kövesse az alábbi lépéseket:
1. Másolja ki a fenti kódot
2. Tartsa lenyomva az ALT + F11 billentyűket, és megnyílik a Microsoft Visual Basic for Applications ablak.
2. Kattintson a Beszúrás > Modul elemre, és illessze be a következő kódot a Modul ablakba.
4. Ezután nyomja meg az F5 billentyűt a kód futtatásához
5. Megjelenik egy párbeszédablak, amely megkérdezi a kívánt lappéldányok számát.
A weboldal moderátora ezt a megjegyzést minimalizálta
Amikor először próbáltam, hibaüzenetet kaptam, mert nem változtattam meg a Sheet1 nevet. Miután rájöttem, hogy mi okozta a hibát, kicsit tovább kutattam, mivel nem akartam kézzel beírni a lap nevét a makróba. És amikor szükségem van erre a funkcióra, szinte mindig az aktuális laphoz. Hozzáadtam az a = activesheet.name sort, és átdolgoztam a következő sort:=activeworkbook.sheets("sheet1") az activeworkbook.sheets(a).copy-hoz _ Ez nagyon jól működött, de észrevettem, hogy a számozás megfordult... ez nem zavart, mivel úgyis kézzel fogom átnevezni az új lapokat. Amikor megláttam Schuyler bejegyzését, tovább javítottam az activeworkbook.sheets(a).copy _ sort a after:=activeworkbook.sheets(worksheets.count) címre. Most már elégedett vagyok az eredménnyel. Az elkészült makróm: Sub copies() Dim x As Integer x = InputBox("Adja meg, hányszor másolható Sheet1") For numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Másolás _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Minden jót, Barry
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen Barry. Az Ön kész makrója az egyetlen, ami működött számomra.
A weboldal moderátora ezt a megjegyzést minimalizálta
szintaktikai hibát kaptam a következőnél: "After:=ActiveWorkbook.Sheets(Worksheets.Count)


de nem tudom mi a baj... Tudsz nekem segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Fantasztikus VBA kód – tényleg segített
A weboldal moderátora ezt a megjegyzést minimalizálta
Új vagyok ebben, csak próbálok másolatot készíteni ugyanarról a lapról, ezt a kódot használom. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hány példányra van szüksége?") s = InputBox("Adja meg a másolni kívánt munkalap nevét") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub Amikor a kódot használom, a "Syntax Error" hibaüzenet jelenik meg, majd ez a szöveg pirosra vált ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) és a szöveg sárgára vált Sub Copier() mit tehetek a javítás érdekében.
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote] Új vagyok ebben, csak próbálok másolatot készíteni ugyanarról a lapról, ezt a kódot használom. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hány példányra van szüksége?") s = InputBox("Adja meg a másolni kívánt munkalap nevét") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub Amikor a kódot használom, a "Syntax Error" hibaüzenet jelenik meg, majd ez a szöveg pirosra vált ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) és a szöveg sárgára vált Sub Copier() mit tehetek a javítás érdekében.Írta: Tyler Dempsey[/quote] Ellenőrizze még egyszer a kódot, és győződjön meg arról, hogy nincs szóköz az ActiveWorkbookban. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote] Új vagyok ebben, csak próbálok másolatot készíteni ugyanarról a lapról, ezt a kódot használom. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hány példányra van szüksége?") s = InputBox("Adja meg a másolni kívánt munkalap nevét") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub Amikor a kódot használom, a "Syntax Error" hibaüzenet jelenik meg, majd ez a szöveg pirosra vált ActiveWorkbook.Sheets (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) és a szöveg sárgára vált Sub Copier() mit tehetek a javítás érdekében.Írta: Tyler Dempsey[/quote] Itt van a pontosan használni kívánt kód: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hány példányra van szüksége?") s = InputBox("Enter a másolni kívánt munkalap neve") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, az utolsó mentette meg az életem :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Munkakód

Almásoló()
Dim s mint húr
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("Hány példányra van szüksége?")
s = InputBox("Adja meg a másolni kívánt munkalap nevét")
Numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Következő
End Sub

másolja ki a teljes sort az ActiveWorkbook.Sheets-ből...... ez volt a probléma, és néhány szóköz

Szép napot
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi