KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe kopieert en plakt u een rij meerdere keren in Excel, of dupliceert u die rij x keer?

AuteurXiaoyang Wijzigingsdatum

Hebt u tijdens uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en deze vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Stel dat u een celbereik hebt en elke rij drie keer wilt kopiëren en direct onder de oorspronkelijke rij wilt plakken, zoals in de afbeelding hieronder. Hoe lost u deze taak op in Excel?

oorspronkelijke gegevenspijl naar rechtsrij meerdere keren kopiëren en invoegen

Kopieer en voeg een specifieke rij meerdere keren in met VBA-code

Als u één specifieke rij x keer wilt dupliceren, helpt de volgende VBA-code u daarbij. Volg deze stappen:

1. Selecteer de rij die u meerdere keren wilt kopiëren en invoegen, en druk vervolgens op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.

VBA-code: Dupliceer één specifieke rij meerdere keren:

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. Nadat u de code hebt geplakt, drukt u op F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het aantal keren in te voeren dat u wilt dupliceren; zie afbeelding:

voer het aantal keren in dat u wilt dupliceren

4. Klik daarna op de knop OK, waarna er drie nieuwe gekopieerde rijen onder de geselecteerde rij worden ingevoegd; zie afbeelding:

het specifieke aantal nieuwe gekopieerde rijen wordt onder de geselecteerde rij ingevoegd

Kopieer en voeg elke rij meerdere keren in op basis van een specifiek getal, moeiteloos

Normaal gesproken is er geen handige manier om rijen meerdere keren te kopiëren en in te voegen, behalve door dit handmatig te doen. Maar met de Kutools voor Excel-functie Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens lost u dit probleem eenvoudig op.Klik om Kutools voor Excel te downloaden!

Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis uitproberen zonder beperking gedurende 60 dagen.Download nu en probeer gratis!

Kopieer en voeg elke rij meerdere keren in met VBA-code

Om elke rij in een bereik meerdere keren te dupliceren, past u de volgende VBA-code toe. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2Klik op Invoegen>Moduleen plak de volgende code in het Module-venster.

VBA-code: Dupliceer elke rij meerdere keren:

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. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het aantal keren in te voeren dat u elk record wilt dupliceren; zie afbeelding:

voer het aantal keren in dat u elk record wilt dupliceren

4. Klik daarna op OK, waarna elke rij drie keer wordt gekopieerd en onder de bestaande rijen wordt ingevoegd; zie afbeelding:

oorspronkelijke gegevenspijl naar rechts elke rij wordt een specifiek aantal keer gekopieerd en ingevoegd

Opmerking: In de bovenstaande code geeft A aan dat het gegevensbereik begint bij kolom A. Als uw gegevens beginnen bij kolom K, wijzig dan A in K naar wens.

Kopieer en voeg elke rij meerdere keren in op basis van een specifiek getal met een geweldige functie

Mogelijk bent u niet bekend met VBA-code of maakt u zich zorgen dat de code uw gegevens beschadigt. Daarom introduceer ik een handige functie: Kutools voor Excel's Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens. Met deze tool kopieert en plakt u razendsnel rijen op basis van het getal dat u opgeeft.

Kutools voor Excelbiedt meer dan 300 geavanceerde functies om complexe taken te stroomlijnen, waardoor creativiteit en efficiëntie worden verhoogd.Geïntegreerd met AI-mogelijkheden, automatiseert Kutools taken met precisie, zodat databeheer moeiteloos verloopt.Gedetailleerde informatie over Kutools voor Excel...         Gratis proefversie...

Tips:Om deze Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens-functie toe te passen, dient u eerst Kutools voor Excelte downloaden en vervolgens de functie snel en eenvoudig toe te passen.

Na installatie van Kutools voor Excelgaat u als volgt te werk:

1. Voer het aantal herhalingen in dat u wilt voor Dubbele rij in een lijst met cellen naast uw gegevens; zie afbeelding:

Voer de herhaalaantallen in om rijen te dupliceren in een lijst met cellen naast de gegevens

2. Klik op Kutools > Invoegen > Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens; zie afbeelding:

klik op de functie Rijen/kolommen dupliceren op basis van celwaarde van Kutools

3. Selecteer in het dialoogvenster Rijen/Kolommen kopiëren en invoegen de optie Rijen kopiëren en invoegen in het gedeelte Type, kies vervolgens het gegevensbereik dat u wilt dupliceren en geef het aantal herhalingen op; zie afbeelding:

geef opties op in het dialoogvenster

4. Klik daarna op de knop Ok of Toepassen om het gewenste resultaat te verkrijgen:

oorspronkelijke gegevenspijl naar rechtsrijen worden herhaald volgens het specifieke aantal

Klik hier om Kutools voor Excel te downloaden en direct gratis uit te proberen!

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan…
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...

Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins