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

Hvordan kopieres flere ark flere gange i Excel?

Nogle gange kan det være nødvendigt at lave en kopi eller flere kopier af specificerede regneark i en projektmappe. Her er nogle hurtige måder at hjælpe dig med let at kopiere et regneark eller flere regneark flere gange i Excel.


Lav en kopi af flere regneark én gang til en aktiv projektmappe eller en anden projektmappe med kommandoen Flyt eller Kopi

Med Flyt eller Kopier kommando i Excel, kan du lave en kopi af et regneark, flere specifikke regneark eller alle regneark til en aktiv projektmappe eller en anden projektmappe ad gangen.

1. I den bestemte projektmappe, hvor du vil kopiere regneark, skal du vælge flere regneark på fanebladet Arkfane.
Bemærk: Holder CTRL nøgle, du kan vælge flere ikke-tilstødende arkfaner ved at klikke dem en efter en på arkfanen; holder SKIFT nøgle, kan du vælge flere tilstødende arkfaner ved at klikke på den første arkfane og den sidste på arkfanen.

2. Højreklik på den valgte fane på arkfanen, og vælg Flyt eller Kopier fra genvejsmenuen. Se skærmbillede:
dok kopi flere ark 01

3. I Flyt eller Kopier dialogboks, skal du angive følgende indstillinger:
(1) Angiv venligst destinationsmappen, du vil kopiere regneark til fra At reservere rulleliste. Du kan vælge den aktive projektmappe, en anden åben projektmappe eller en ny projektmappe, som du har brug for.
(2) Angiv placeringen af ​​de kopierede ark på arkfanen, du kan vælge efter alle de eksisterende ark.
(3) Kontroller Opret en kopi indstilling, hvis du ikke markerer denne indstilling, flyttes de valgte regneark til destinationsarbejdsmappen.
(4) Klik på OK .

Nu vil det kun lave en kopi af de valgte regneark i den angivne projektmappe. For at lave flere kopier af disse regneark kan du gentage handlingen flere gange.

Kun flere klik for at lave flere kopier af flere regneark i den aktive projektmappe

Generelt kan vi kopiere flere regneark med Flyt eller Kopier funktion i Excel. Denne funktion kan dog kun lave en kopi ad gangen. Her med Kutools til Excel Kopier regneark hjælpeprogram, kan du nemt lave så mange kopier af mange regneark, som du har brug for, i den aktive projektmappe kun ved flere klik.


annonce kopi flere regneark 01

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu

Lav flere kopier af et bestemt regneark til en aktiv projektmappe med VBA-kode

Hvis du vil lave 10 kopier af et bestemt regneark, vises Flyt eller Kopier kommando vil være en tidskrævende måde, og du skal gentage operationen mange gange. Men med den følgende VBA-kode kan du hurtigt kopiere regnearket 10 gange på én gang.

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA: Lav flere kopier af et bestemt regneark til en aktiv projektmappe

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

Bemærk: I ovenstående kode skal du erstatte "Sheet1"med navnet på det ark, der skal kopieres.

3. Tryk derefter på F5 nøgle til at køre koden, vises et promptfelt, der beder dig om antallet af arkkopier, du ønsker.

4. Klik derefter på OK, det angivne regneark er kopieret 100 gange i den aktive projektmappe.


Lav flere kopier af flere regneark til en aktiv projektmappe med Kutools til Excel

Selvom det er enkelt at lave en kopi af flere regneark i Excel, hvis du vil lave flere kopier af flere regneark i den aktuelle projektmappe, skal du muligvis bruge Flyt eller Kopier kommando element igen og igen. Ønsker du at få tingene gjort med et enkelt klik? Med Kopier regneark hjælpeprogrammet til tredjeparts-tilføjelsesprogrammet Kutools til Excel, kan du lave flere kopier af flere regneark med et enkelt klik i Excel.

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu

1. Klik Kutools Plus > Kopier regneark. Se skærmbillede:

Bemærk: Klikker på Kutools Plus > Arbejdsark > Kopier regneark får også denne funktion.

2. Anvend indstillinger i Kopier flere regneark dialog boks:
(1) Kontroller de regneark, du vil kopiere fra Kopier de valgte regneark sektion.
(2) Specificer Antallet af kopier.
(3) Bestem placeringen af ​​de kopierede ark, f.eks. Før eller efter alle regneark, før eller efter det aktuelle regneark.
(4) Klik på Ok .

3. Der vises en hurtigboks for at minde dig om, at de afkrydsede regneark er blevet kopieret til flere gange efter behov, klik på OK for at afslutte den. Se skærmbillede:

Denne Kopier flere regneark træk ved Kutools til Excel laver flere kopier af flere specificerede regneark i den aktive projektmappe med kun flere klik. Få en gratis prøveperiode!


Lav en kopi af flere regneark fra flere projektmapper til en ny

Hvis du har installeret Kutools til Excel, kan du også anvende dens Kombiner regneark funktion til at lave en kopi af flere regneark fra flere lukkede projektmapper til en ny projektmappe med kun flere klik i Excel.

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu

1. Klik Kutools Plus > Kombiner for at aktivere funktionen Kombiner regneark.

2. I guiden Kombiner regneark - Trin 1 af 3 skal du kontrollere Kombiner flere regneark fra projektmapper til et regneark valgmulighed, og klik på knappen Næste knap. Se skærmbillede:

3. I guiden Kombiner regneark - Trin 2 af 3 skal du gøre som følgende skærmbillede vist:
(1) Klik Tilføj > filet or Folder for at tilføje projektmapper, du vil kopiere regneark fra.
(2) I Liste over projektmapper sektion, tjek projektmappen, hvis regneark du vil kopiere;
(3) I Liste over regneark sektion, tjek de regneark, du vil kopiere;
(4) Gentag ovenfor (2) og (3) for at vælge regneark fra andre projektmapper, du vil kopiere.
(5) Klik på Næste .

4. I guiden Kombiner regneark - Trin 3 af 3 skal du konfigurere kopieringsindstillingerne efter behov, og klik på Finish .

5. Nu i den nye dialog skal du angive en destinationsmappe for at gemme den nye projektmappe, navngive den nye projektmappe i Filnavn boks og klik på Gem knap. Se skærmbillede:

Nu kommer yderligere to dialogbokse ud og beder dig om at åbne den nye projektmappe og gemme kombinationsscenariet. Klik venligst på knapperne efter behov. Indtil videre har den kopieret alle specificerede regneark fra flere projektmapper ad gangen.

Med dette Kombiner (regneark) værktøj, kan du nemt kopiere og kombinere regneark og projektmapper som vist på nedenstående liste. Få en gratis prøveperiode!
(1) Kombiner hurtigt flere regneark / intervaller fra projektmapper til et regneark;
(2) Flet / kombiner hurtigt alle regneark med samme navn på tværs af projektmapper til et regneark;
(3) Hurtigt flet / kombiner regneark eller projektmapper i en projektmappe;
(4) Opsummer / beregn hurtigt data fra flere regneark til et regneark.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (25)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Ved at bruge VBA-koden er navngivningen af ​​de duplikerede regneark i omvendt rækkefølge. Lad os sige, at jeg laver 10 kopier af Ark1, jeg ender med Ark1, Ark1(10), Ark1(9), Ark1(8),.......er det muligt at have dem i normal rækkefølge?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøvede VBA-koden og fik subscript out of range-fejl (9). Jeg erstattede arknavnet med alt, hvad jeg kunne komme i tanke om, som allerede var i projektmappen. Har du nogen idé om, hvad jeg gjorde forkert? Er der også en måde at få det til at navngive hvert ark trinvist? Jeg er sikker på, at dette ville hænge sammen med Michaels spørgsmål. Jeg gætter på, at svaret på hans spørgsmål ville være, at du skulle indstille After-målet til "ark"+x på en eller anden måde, og det ville igen gælde for mit spørgsmål, hvis der var en måde at specificere, hvad det nye ark skal hedde. Jeg kunne altid bare ændre min chefs "master" til "0 august" eller hvilken måned det nu er, men det ville være nemmere for hende at forstå, hvis manuskriptet foretog navngivningen automatisk.
Denne kommentar blev minimeret af moderatoren på webstedet
tak, vba-koden var enorm
Denne kommentar blev minimeret af moderatoren på webstedet
Wow, tak for VBA-koden. Det hjælper virkelig meget!
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Ved at bruge VBA-koden er navngivningen af ​​de duplikerede regneark i omvendt rækkefølge. Lad os sige, at jeg laver 10 kopier af Ark1, jeg ender med Ark1, Ark1(10), Ark1(9), Ark1(8),.......er det muligt at have dem i normal rækkefølge?Af Michael Tadashi[/quote] Nogen der kunne svare på dette spørgsmål? Jeg skal lave 72 kopier, men det ville være nødvendigt at have dem i orden (1 til 72, i stedet for 72 til 1) Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
[quote][quote]Ved brug af VBA-koden er navngivningen af ​​de duplikerede regneark i omvendt rækkefølge. Lad os sige, at jeg laver 10 kopier af Ark1, jeg ender med Ark1, Ark1(10), Ark1(9), Ark1(8),.......er det muligt at have dem i normal rækkefølge?Af juan[/quote] Nogen der kunne svare på dette spørgsmål? Jeg skal lave 72 kopier, men det ville være nødvendigt at have dem i orden (1 til 72, i stedet for 72 til 1) Tak!Af Michael Tadashi[/quote]e] Hvis du ønsker, at arkkopierne skal være i sekventiel rækkefølge i stedet for baglæns, skal du ændre følgende linje... After:=ActiveWorkbook.Sheets("Ark1") Til dette... After:=ActiveWorkbook.Sheets(Arbejdsark.Tælle) Min færdige kode så ud som følgende, som bruger 2 InputBox-prompter for at tillade et dynamisk antal kopier og regnearksnavn. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hvor mange kopier har du brug for?") s = InputBox("Indtast navnet på det regneark, du vil kopiere") For numtimes = 1 Til numCopies ActiveWorkbook.Sheets.Sheet(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan får jeg kopierne kontinuerligt nummereret. Hvis det ark, jeg vil kopiere, hedder I002, og jeg vil have, at det næste skal hedde I003, I004, I005 osv.
Denne kommentar blev minimeret af moderatoren på webstedet
Søg efter ordet "Efter" og skift det til "Før". Dette vil oprette kopier i den rigtige rækkefølge "Før" Ark1. Det eneste man skal huske er, at nummereringen altid starter fra (2), da det originale ark altid tæller som 1. kopi. Du kan også erstatte "Sheet1" med navnet på den fane, du prøver at kopiere.
Denne kommentar blev minimeret af moderatoren på webstedet
ja det virker tak Jeg har med succes lavet flere kopier af et enkelt regneark i samme projektmappe ved at bruge vba-kode thnx meget.
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan man kopierer med samme kolonnebredder
Denne kommentar blev minimeret af moderatoren på webstedet
Samme kolonnebredder som det originale regneark, eller vil du have, at alle kolonnebredder skal være de samme?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fik samme fejl som Theou, og ingen ser ud til at have rettet det. Mine faner hedder allerede PO 51, PO 52 osv., og jeg erstattede Sheet1 med PO 51 for at kopiere det og fik sænket fejl uden for rækkevidde (9) Jeg fulgte Schuylers kode for at få den rigtige rækkefølge, men jeg får stadig fejlen og det er altid på grund af disse to linjer: ActiveWorkbook.Sheets.Sheet(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Jeg fik samme fejl som Theou, og ingen ser ud til at have rettet det. Mine faner hedder allerede PO 51, PO 52 osv., og jeg erstattede Sheet1 med PO 51 for at kopiere det og fik sænket fejl uden for rækkevidde (9) Jeg fulgte Schuylers kode for at få den rigtige rækkefølge, men jeg får stadig fejlen og det er altid på grund af disse to linjer: ActiveWorkbook.Sheets.Sheet(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Af Debbi[/quote] Kan du inkludere din komplette kode for at gøre det nemmere at fejlfinde? En "subscript error out of range" betyder normalt, at koden refererer til noget, der ikke eksisterer. Jeg finder dette i min egen kode, når jeg har en tastefejl eller noget i den stil.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får en fejl om at 'numtimes' ikke er defineret...?
Denne kommentar blev minimeret af moderatoren på webstedet
hvor jeg vil indsætte denne ovenstående kode i vba skal jeg oprette fælles knap så inde ?? hilsen.
Denne kommentar blev minimeret af moderatoren på webstedet
Følg nedenstående trin:
1. Kopier ovenstående kode
2. Hold ALT + F11-tasterne nede, og det åbner vinduet Microsoft Visual Basic for Applications.
2. Klik på Indsæt > Modul, og indsæt følgende kode i modulvinduet.
4. Tryk derefter på F5-tasten for at køre koden
5. Der vises en promptboks for at spørge dig om det antal arkkopier, du ønsker.
Denne kommentar blev minimeret af moderatoren på webstedet
Da jeg prøvede det første gang, fik jeg fejlmeddelelsen, fordi jeg ikke ændrede navnet Sheet1. Efter at jeg indså, hvad der forårsagede fejlen, undersøgte jeg lidt videre, da jeg ikke ønskede at indtaste arknavnet manuelt i makroen. Og når jeg har brug for denne funktion, er det næsten altid til det aktuelle ark. Jeg tilføjede linjen a = activesheet.name Og reviderede linjen efter:=activeworkbook.sheets("sheet1") til activeworkbook.sheets(a).copy _ Det fungerede meget godt, men jeg lagde mærke til, at nummereringen var omvendt ... det generede mig ikke, da jeg alligevel skulle omdøbe de nye ark manuelt. Da jeg så Schuylers indlæg, reviderede jeg yderligere linjen activeworkbook.sheets(a).copy _ til efter:=activeworkbook.sheets(worksheets.count) Jeg er nu tilfreds med resultatet. Min færdige makro: Sub copies() Dim x As Integer x = InputBox("Indtast antal gange for at kopiere Sheet1") For numtimes = 1 Til x ActiveWorkbook.Sheets("Sheet1").Kopier _ Efter:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- Alt det bedste, Barry
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak Barry. Din færdige makro er det eneste, der virkede for mig.
Denne kommentar blev minimeret af moderatoren på webstedet
jeg fik syntaksfejl på "After:=ActiveWorkbook.Sheets(Worksheets.Count)


men jeg ved ikke hvad der er galt... Kan du hjælpe mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk VBA-kode - hjalp virkelig
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er ny i dette, jeg prøver bare at lave kopier af det samme ark, det er den kode jeg bruger. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hvor mange kopier har du brug for?") s = InputBox("Indtast navnet på det regneark, du vil kopiere") For numtimes = 1 Til numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub når jeg bruger koden giver det mig fejlen "Syntaksfejl", så bliver denne tekst rød ActiveWorkbook.Sheets (s). Kopier _ Efter:=ActiveWorkbook.Sheets(Worksheets.Cou nt) og teksten bliver gul Sub Copier() hvad kan jeg gøre for at rette det.
Denne kommentar blev minimeret af moderatoren på webstedet
[citat]Jeg er ny i dette, jeg prøver bare at lave kopier af det samme ark, det er den kode jeg bruger. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hvor mange kopier har du brug for?") s = InputBox("Indtast navnet på det regneark, du vil kopiere") For numtimes = 1 Til numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub når jeg bruger koden giver det mig fejlen "Syntaksfejl", så bliver denne tekst rød ActiveWorkbook.Sheets (s). Kopier _ Efter:=ActiveWorkbook.Sheets(Worksheets.Cou nt) og teksten bliver gul Sub Copier() hvad kan jeg gøre for at rette det.Af Tyler Dempsey[/quote] Dobbelttjek din kode, og sørg for, at du ikke har en plads på ActiveWorkbook. Ark(er). Kopier _ eller på Sheets(Worksheets.Cou nt)
Denne kommentar blev minimeret af moderatoren på webstedet
[citat]Jeg er ny i dette, jeg prøver bare at lave kopier af det samme ark, det er den kode jeg bruger. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hvor mange kopier har du brug for?") s = InputBox("Indtast navnet på det regneark, du vil kopiere") For numtimes = 1 Til numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub når jeg bruger koden giver det mig fejlen "Syntaksfejl", så bliver denne tekst rød ActiveWorkbook.Sheets (s). Kopier _ Efter:=ActiveWorkbook.Sheets(Worksheets.Cou nt) og teksten bliver gul Sub Copier() hvad kan jeg gøre for at rette det.Af Tyler Dempsey[/quote] Her er den nøjagtige kode, du vil bruge: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Hvor mange kopier har du brug for?") s = InputBox("Enter navnet på det regneark, du vil kopiere") For numtimes = 1 Til numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Tak, den sidste reddede mit liv :)
Denne kommentar blev minimeret af moderatoren på webstedet
Arbejdskode

Underkopimaskine()
Dim s As String
Dim numtimes Som heltal
Nedtonet antal Kopier som heltal
numCopies = InputBox("Hvor mange kopier har du brug for?")
s = InputBox("Indtast navnet på det regneark, du vil kopiere")
For numtimes = 1 Til numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Næste
End Sub

kopiere hele linjen fra ActiveWorkbook.Sheets...... det var problemet, og nogle mellemrum

Hav en god dag
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL