Hvordan kopieres og indsættes række flere gange eller duplikeres rækken x gange i Excel?

Har du nogensinde i dit daglige arbejde forsøgt at kopiere en række eller hver række og derefter indsætte flere gange under den aktuelle datarække i et regneark? For eksempel har jeg en række celler, nu vil jeg kopiere hver række og indsætte dem 3 gange til den næste række som vist nedenstående skærmbillede. Hvordan kunne du håndtere dette job i Excel?

• Kopier og indsæt en bestemt række flere gange med VBA-kode
• Kopier og indsæt hver række flere gange med VBA-kode
• Kopier og indsæt hver række flere gange baseret på et bestemt nummer med en fantastisk funktion

Kopier og indsæt en bestemt række flere gange med VBA-kode

Hvis du kun vil duplikere en bestemt række x gange, kan følgende VBA-kode måske hjælpe dig, gør som dette:

1. Angiv en række, som du vil kopiere og indsætte flere gange, og hold derefter nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.

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

VBA-kode: Kopier en bestemt række flere gange:

Sub test()
'Updateby Extendoffice
    Dim xCount As Integer
LableNumber:
    xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
    If xCount < 1 Then
        MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
        GoTo LableNumber
    End If
    ActiveCell.EntireRow.Copy
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

3. Når du har indsat koden, skal du trykke på F5 nøgle til at køre denne kode, og der vises en promptboks for at minde dig om at indtaste det antal gange, du vil duplikere, se skærmbillede:

4. Klik derefter på OK knappen, og tre nye kopierede rækker er indsat under den valgte række, se skærmbillede:

Kopier og indsæt hver række flere gange med VBA-kode

For at duplikere hver række flere gange i et interval, kan du anvende følgende VBA-kode, gør venligst som nedenfor:

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

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

VBA-kode: Kopier hver række flere gange:

Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub

3. Og tryk derefter på F5 nøgle til at køre denne kode, og der vises en hurtigboks for at minde dig om at indtaste det antal gange, du vil duplikere for hver post, se skærmbillede:

4. Klik derefter på OK, og hver række er kopieret og indsat 3 gange under de aktive, se skærmbillede:

Kopier og indsæt hver række flere gange baseret på et bestemt nummer med en fantastisk funktion

Måske er du ikke fortrolig med VBA-koden, eller bekymrer dig om, at koden vil nedbringe dine data. Her vil jeg introducere en nyttig funktion, Kutools til Excel's Kopier rækker / kolonner baseret på celleværdi, med dette værktøj kan du hurtigt kopiere og indsætte rækkerne baseret på det nummer, du har angivet.

Efter installation Kutools til Excelskal du gøre som dette:

1. Indtast de gentagne numre, som du vil duplikere rækker på en liste over celler ved siden af ​​dine data, se skærmbillede:

2. Klik Kutools > indsatte > Kopier rækker / kolonner baseret på celleværdi, se skærmbillede:

3. I Kopier og indsæt rækker og kolonner dialogboksen, vælg Kopier og indsæt rækker valgmulighed i Type sektion, vælg derefter det dataområde, du vil duplikere, og angiv derefter gentagelsestiden for at duplikere rækkerne, se skærmbillede:

4. Klik derefter på Ok or Indløs knappen, får du følgende resultat, som du har brug for:

Klik for at downloade Kutools til Excel og gratis prøveversion nu!

---

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.

Læs mere ... Gratis download... Køb... 

---

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!

Læs mere ... Gratis download... Køb...