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

Hoe rij meerdere keren kopiëren en invoegen of de rij x keer dupliceren in Excel?

Heeft u in uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige gegevensrij in een werkblad in te voegen? Ik heb bijvoorbeeld een celbereik, nu wil ik elke rij kopiëren en ze 3 keer in de volgende rij plakken zoals in het volgende screenshot. Hoe kon je deze klus in Excel afhandelen?


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

Als u slechts één specifieke rij x keer wilt dupliceren, kan de volgende VBA-code u helpen, doe dit als volgt:

1. Geef een rij op die u meerdere keren wilt kopiëren en invoegen, en houd vervolgens de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: dupliceer een 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. Druk na het plakken van de code op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal keren dat u wilt dupliceren in te voeren, zie screenshot:

4. Dan klikken OK knop, en drie nieuwe gekopieerde rijen zijn ingevoegd onder de geselecteerde rij, zie screenshot:


Kopieer en voeg elke rij eenvoudig meerdere keren in op basis van een specifiek nummer

Normaal gesproken is er geen goede methode om rijen meerdere keren te kopiëren en in te voegen, behalve handmatig kopiëren en invoegen. Maar met Kutools for Excel's Dubbele rijen / kolommen op basis van celwaarde functie, kunt u dit probleem gemakkelijk oplossen. Klik om Kutools voor Excel te downloaden!

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. Download en probeer nu gratis!


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

Om elke rij meerdere keren in een bereik te dupliceren, kunt u de volgende VBA-code toepassen, doe dit als volgt:

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

2. Klikken 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. En druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het aantal keren in te voeren dat u voor elke record wilt dupliceren, zie screenshot:

4. Dan klikken OK, en elke rij is gekopieerd en 3 keer onder de actieve ingevoegd, zie screenshot:

Opmerking:: In de bovenstaande code, de A geeft aan dat het gegevensbereik wordt gestart bij kolom A, als uw gegevens beginnen bij kolom K, verander alsjeblieft A naar K als uw behoefte.


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

Misschien bent u niet bekend met de VBA-code, of maakt u zich zorgen dat de code uw gegevens crasht. Hier zal ik een handige functie introduceren, Kutools for Excel's Dubbele rijen / kolommen op basis van celwaardeMet dit hulpprogramma kunt u snel de rijen kopiëren en invoegen op basis van het door u opgegeven aantal.

Tips:Om dit toe te passen Dubbele rijen / kolommen op basis van celwaarde -functie, ten eerste moet u de Kutools for Excelen pas de functie vervolgens snel en gemakkelijk toe.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Voer de herhalingsnummers in die u rijen wilt dupliceren in een lijst met cellen naast uw gegevens, zie screenshot:

2. Klikken Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde, zie screenshot:

3. In de Kopieer en voeg rijen en kolommen in dialoogvenster, selecteer Kopieer en voeg rijen in optie in het Type sectie, selecteer vervolgens het gegevensbereik dat u wilt dupliceren en specificeer vervolgens de herhalingstijd om de rijen te dupliceren, zie screenshot:

4. Dan klikken Ok or Toepassen knop, krijg je het volgende resultaat als je nodig hebt:

Klik om Kutools voor Excel en nu gratis uit te proberen!


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (31)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dank je!
Deze opmerking is gemaakt door de moderator op de site
Geweldige macro - heeft me zoveel tijd bespaard!
Deze opmerking is gemaakt door de moderator op de site
echt mooie macro vriend!
Deze opmerking is gemaakt door de moderator op de site
ik wil willekeurig dubbele rijen genereren,

voor bijv. genereer willekeurige dubbele rijen tussen 20 en 80.


wat wordt de bijgewerkte code voor het volgende?


Sub-invoegrijen()
'Bijwerken door' Extendoffice 2016616
Dim ik zo lang
Dim x Tellen als geheel getal
Labelnummer:
xCount = Application.InputBox ("Aantal rijen", "Kutools voor Excel", , , , , , 1)
Als xCount < 1 Dan
MsgBox "het ingevoerde aantal rijen is fout, voer het opnieuw in", vbInformation, "Kutools for Excel"
Ga naar etiketnummer
End If
For I = Range ("A" & Rows.CountLarge).End(xlUp).Rij naar 1 Stap -1
Rijen(I).Kopiëren
Rijen(I).Resize(xCount).Invoegen
Volgende
Application.CutCopyMode = False
End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik wil rijen dupliceren op basis van een parameter. Ik heb bijvoorbeeld een kolom met de naam duur van de vergadering. Als die kolom meer dan 1 is, wil ik rijen met vergader-ID's dupliceren op basis van dat aantal. Als de duur van de vergadering 2 uur is, dupliceer je meetingID twee keer. Als de vergadering 3 uur duurt, dupliceer dan drie keer.
stappen van een half uur kunnen naar boven worden afgerond op het hele uur.

MeetingID Tijd van start Tijd van einde Vergadering Duur
43117 9:00 AM 11:00 AM 02:00
43580 9:30 AM 11:00 AM 01:30
42699 10:00 AM 11:30 AM 01:30
12345 01:00 uur 2:00 uur 01:00
Deze opmerking is gemaakt door de moderator op de site
Ik heb hetzelfde probleem. Heb je een oplossing gevonden?
Deze opmerking is gemaakt door de moderator op de site
Hallo jongens,
Misschien kan de volgende VBA-code u een plezier doen, pas deze alstublieft toe:
Sub-invoegrijen()
Dim ik zo lang
Dim xRg als bereik
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = False
For I = Range ("D" & Rows.CountLarge).End(xlUp).Rij naar 1 Stap -1
xHour = 0
Stel xRg = bereik ("D" & I) in
xHour = Uur(xRg.Waarde) + 1
xMin = Minuut(xRg.Waarde)
Als xMin < 30 Dan xHour = xHour - 1
Rijen(I).Kopiëren
Rijen(I).Resize(xHour).Invoegen
Volgende
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

Alstublieft probeer het. Hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Ik heb deze macro's in het verleden gebruikt en het heeft tot voor kort altijd gewerkt. Enig inzicht waarom het alleen de bovenste rij zou dupliceren, zelfs bij gebruik van de macro's met meerdere rijen? Ik heb alle filters/bevroren ruiten verwijderd.
Deze opmerking is gemaakt door de moderator op de site
Hallo, hoe kan ik de code wijzigen om het volgende op te nemen?

1. dupliceren op basis van aantal dagen
2. verander kolom EOM van einde van maand naar dagelijkse datum
Deze opmerking is gemaakt door de moderator op de site
Echt bedankt voor je steun!!!!
Deze opmerking is gemaakt door de moderator op de site
Houd van de code! hoe stel ik het startbereik in om de eerste rij (kolomkoppen) over te slaan en op rij 2 te beginnen?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Devin,
Om de eerste kopregel over te slaan, past u de volgende VBA-code toe:

Sub-invoegrijen()
Dim ik zo lang
Dim x Tellen als geheel getal
Labelnummer:
xCount = Application.InputBox ("Aantal rijen", "Kutools voor Excel", , , , , , 1)
Als xCount < 1 Dan
MsgBox "het ingevoerde aantal rijen is fout, voer het opnieuw in", vbInformation, "Kutools for Excel"
Ga naar etiketnummer
End If
For I = Range ("A" & Rows.CountLarge).End(xlUp).Rij naar 2 Stap -1
Rijen(I).Kopiëren
Rijen(I).Resize(xCount).Invoegen
Volgende
Application.CutCopyMode = False
End Sub

Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb hulp nodig, zo ziet mijn tabel eruit, bijvoorbeeld als ik 2 rijen aan het einde van mijn 1e tabel toevoeg, wil ik dat de vba me helpt hetzelfde te doen voor de onderstaande tabel (voeg 2 rijen toe aan de einde van de tafel). Dus mijn taak zal zijn, ik hoef alleen maar rijen toe te voegen aan de 1e tafel, de tafelbalgen zullen allemaal automatisch rijen genereren op basis van het aantal rijen in de 1e tabel. dit zijn de codering die ik nu heb gebruikt om een ​​rij toe te voegen voor de 1e tabel. Ik hoop dat iemand dit probleem voor mij kan oplossen, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng Zo Lang

Application.DisplayAlerts = False
On Error Resume Next
Rng = InputBox ("Voer het aantal vereiste rijen in.")
On Error GoTo 0
Application.DisplayAlerts = True

Als Rng = 0 Dan
MsgBox "Je hebt geen bereik opgegeven!"
Exit Sub

Anders
Bereik (ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Selecteren
Selection.EntireRow.In Shift: = xlDown invoegen
End If

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hou ervan! Het werkt elke keer! Heel erg bedankt hiervoor :)
Deze opmerking is gemaakt door de moderator op de site
hoe doe ik dit voor kolommen?
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik dit doen voor kolommen?
Deze opmerking is gemaakt door de moderator op de site
hoe u dezelfde actie uitvoert met geselecteerde cellen met behulp van VB,


Ik moet een paar geselecteerde cellen (rijen en kolommen) x aantal keren herhalen in hetzelfde blad en in dezelfde volgorde als:

line1
line2
line3

line1
line2
line3
Deze opmerking is gemaakt door de moderator op de site
hallo dit werkte prima, alleen ik heb twee rijen N aantal keer gekopieerd. Kun je de code aanpassen, zodat wanneer ik twee rijen selecteer, deze die twee rijen N keer naar beneden kopieert? bedankt voor je hulp
Deze opmerking is gemaakt door de moderator op de site
Hallo, Sal,
Als u slechts twee rijen meerdere keren naar beneden hoeft te kopiëren, hoeft u alleen de VBA-code 1 in dit artikel te gebruiken. Pas de code twee keer toe om uw probleem op te lossen. Probeer het alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Kopieer en voeg elke rij meerdere keren in met VBA-code

Hoe kan ik in VBA-code de startrij selecteren?
Deze opmerking is gemaakt door de moderator op de site
Geen functie met Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada
Deze opmerking is gemaakt door de moderator op de site
hallo allemaal.. Bij voorbaat dank voor jullie hulp!!

De VBA-code om een ​​specifieke rij meerdere keren te dupliceren werkt perfect totdat je een filter gebruikt. Ik ben benieuwd of iemand mij kan helpen om dit probleem op te lossen. Ik heb een code nodig die werkt, zelfs als je een aantal waarden hebt gefilterd. Ik gebruik een grote hoeveelheid gegevens die is gesorteerd op locaties. De code werkt gedeeltelijk, het plakt het aantal rijwensen maar geen gegevens of formaat wanneer ik een filter heb toegepast.
Deze opmerking is gemaakt door de moderator op de site
Hallo, is het mogelijk om voor elke rij verschillende maten (waarden) te gebruiken? Ik probeer vector te gebruiken, maar het werkt niet.
Bijvoorbeeld :
Rijen(I).Resize(xCount(y) ).Invoegen

Waar de waarden die zijn opgeslagen in xCount(y) uit een tabel worden gelezen.
Deze opmerking is gemaakt door de moderator op de site
Hallo, Guus,
Misschien kan het onderstaande artikel u helpen, controleer het alstublieft:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Deze opmerking is gemaakt door de moderator op de site
Voor de tweede VBA-code (VBA-code: dupliceer elke rij meerdere keren) krijg ik steeds als runtime-fout: 1004
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties