Hoe voeg je een specifiek aantal rijen in op vaste intervallen in Excel?
In een Excel-werkblad kun je handmatig lege rijen invoegen tussen bestaande rijen met behulp van de ingebouwde Invoegen-functie. Echter, bij het werken met grote hoeveelheden gegevens of wanneer je regelmatig bijvoorbeeld twee lege rijen na elke derde of n-de rij moet invoegen, wordt dit handmatige proces tijdrovend en inefficiënt. Het automatiseren van het invoegen van lege rijen op vaste intervallen bespaart niet alleen tijd, maar minimaliseert ook fouten, waardoor je workflow soepeler verloopt. De volgende methoden laten zien hoe je deze taak snel en eenvoudig kunt uitvoeren, inclusief oplossingen voor het invoegen van lege rijen op basis van bepaalde criteria of herhalende rijen, zowel met als zonder VBA.
➤ Voeg een specifiek aantal lege rijen in op vaste intervallen in het databereik met VBA-code
➤ Voeg een specifiek aantal lege rijen in op basis van celwaarden in het databereik met VBA-code
➤ Voeg een specifiek aantal lege rijen in op vaste intervallen in het databereik met een handige functie
➤ Voeg een specifiek aantal lege rijen in op vaste intervallen met Excel-formules
➤ Kopieer en voeg rijen meerdere keren in op basis van specifieke getallen met VBA-code
➤ Kopieer en voeg rijen meerdere keren in op basis van specifieke getallen met een geweldige functie
Voeg een specifiek aantal lege rijen in op vaste intervallen in het databereik met VBA-code
De volgende VBA-code helpt je automatisch een specifiek aantal lege rijen in te voegen na elke n-de rij binnen je bestaande databereik. Deze methode is geschikt voor gebruikers die bekend zijn met macro's en die efficiënt grote datasets moeten verwerken. Volg de volgende stappen voor deze oplossing:
1. Houd de toetsen ALT + F11 ingedrukt in Excel, wat het Microsoft Visual Basic for Applications-venster opent.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Voeg een specifiek aantal rijen in op vaste intervallen
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Nadat je deze code hebt geplakt, druk op F5 om het uit te voeren. Er verschijnt een dialoogvenster waarin je wordt gevraagd om het databereik te selecteren waar je lege rijen wilt invoegen, zoals hieronder weergegeven:
4. Klik op OK. Er verschijnt een ander dialoogvenster, waarin je het gewenste rijinterval moet invoeren - bijvoorbeeld, door 3 in te voeren worden lege rijen ingevoegd na elke derde rij:
5. Ga verder door op OK te klikken, en voer vervolgens het aantal lege rijen in dat je wilt invoegen wanneer de code daarom vraagt (bijvoorbeeld 2 om twee rijen in te voegen):
6. Nadat je je keuzes hebt bevestigd, worden er lege rijen in je data ingevoegd op de gedefinieerde intervallen. Zie hieronder de vergelijking van voor en na:
 |  |  |
Tips & Notities:
- Met deze macro kun je flexibel je databereik selecteren en zowel het rijinterval als het aantal lege rijen dat moet worden ingevoegd specificeren.
- Zorg ervoor dat je je werkblad backupt of dit eerst op een voorbeeldblad probeert, omdat het invoegen van rijen onomkeerbaar is tenzij je onmiddellijk de Ongedaan maken-opdracht gebruikt.
Problemen oplossen: Als je een fout tegenkomt, controleer dan of je gegevens niet gefilterd zijn en dat geen tabellen het geselecteerde gebied overlappen. Als onverwachte resultaten optreden, gebruik dan onmiddellijk Ongedaan maken om wijzigingen terug te draaien.
Voeg een specifiek aantal lege rijen in op basis van celwaarden in het databereik met VBA-code
Soms vereist je workflow het invoegen van lege rijen volgens een vooraf gedefinieerde lijst van celwaarden, zoals het invoegen van lege rijen na elk record op basis van overeenkomstcriteria. Deze VBA-oplossing is ideaal wanneer de invoeglogica niet gebaseerd is op vaste intervallen, maar op de waarden in een aangrenzende kolom.
✅ Wanneer te gebruiken:
- Aanbevolen wanneer je gegevens zijn georganiseerd per categorie (bijvoorbeeld afdelingen, projectfasen of verkopers) en je ruimte of lege rijen tussen groepen wilt invoegen.
- Zorg ervoor dat je selectie nauwkeurig is, omdat de macro de geselecteerde cellen zal gebruiken om te bepalen waar rijen moeten worden ingevoegd.
1. Houd de toetsen ALT + F11 ingedrukt in Excel, wat het Microsoft Visual Basic for Applications-venster opent.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Voeg een specifiek aantal lege rijen in op basis van een lijst met getallen:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Nadat je hebt geplakt, druk op F5 om de code uit te voeren. Selecteer in het dialoogvenster dat verschijnt de lijst met getallen (of relevante cellen) waarop de lege rijen moeten worden ingevoegd.
4. Klik daarna op OK en je zult het gewenste resultaat zien, zoals in de volgende schermafbeeldingen weergegeven:
 | |  |
Foutmelding: Als de referentielijst lege cellen of niet-numerieke gegevens bevat, controleer dan de codelogica of maak je gegevens schoon voordat je deze macro uitvoert.
Voeg een specifiek aantal lege rijen in op vaste intervallen in het databereik met een handige functie
Als je liever geen VBA gebruikt of een meer visuele en interactieve methode wilt, biedt Kutools voor Excel een speciale functie Invoegen Lege Rijen & Kolommen. Met eenvoudige klikken kun je lege rijen of kolommen op elk ingesteld interval in je databereik toevoegen - wat de productiviteit aanzienlijk verhoogt, vooral bij repetitieve rapportage- of formatteringstaken.
Na installatie van Kutools voor Excel, volg deze stappen:
1. Selecteer het databereik waar je lege rijen op regelmatige intervallen wilt invoegen.
2. Ga naar Kutools > Invoegen > Invoegen Lege Rijen & Kolommen, zoals hieronder weergegeven:
3. Kies in het dialoogvenster Invoegen Lege Rij & Kolommen onder Invoegtype Lege rijen, en specificeer zowel het interval als het aantal lege rijen dat moet worden ingevoegd, zoals geïllustreerd:
Opmerking: De instelling is flexibel. Als je twee lege rijen nodig hebt na elke vier gegevensrijen, stel het interval in op 4 en het aantal lege rijen op 2.
4. Klik vervolgens op de knop OK. De lege rijen worden in het geselecteerde bereik ingevoegd op het interval dat je hebt gespecificeerd, zoals hieronder gedemonstreerd:
| | |
Voordelen: Deze oplossing is gebruikersvriendelijk, vereist geen codering en is vooral nuttig voor wie vaak de structuur van rijen of kolommen moet aanpassen.
Download en probeer Kutools voor Excel nu gratis uit!
Voeg een specifiek aantal lege rijen in op vaste intervallen met Excel-formules
Als je geen macro's of add-ins kunt gebruiken, kun je nog steeds het doel bereiken om lege rijen op vaste intervallen in te voegen met behulp van hulptabellen en ingebouwde Excel-functies zoals MOD en RIJ. Deze methode is vooral nuttig wanneer scripting is beperkt, maar basisformulegebruik en sortering beschikbaar zijn.
✅ Wanneer te gebruiken: Ideaal voor gebruikers die hun werkboeken vrij van macro's willen houden, brede compatibiliteit nodig hebben, of gegevens voorbereiden voor import/export-werkstromen die visuele scheiding via lege rijen vereisen.
⚠️ Voorzorgsmaatregelen: Deze methode voegt daadwerkelijk geen lege rijen in, maar simuleert ze met behulp van extra rijen en hulptabellen. Je moet de gegevens achteraf sorteren om de gesimuleerde lege rijen te ordenen. Het is een tijdelijke oplossing geschikt voor kleine tot middelgrote datasets.
Stappen:
- Stel dat je gegevens zich bevinden in cellen A2:B11. Voer in een nieuwe hulpcolumn (bijvoorbeeld kolom C startend vanaf C2) de volgende formule in:
Vervang=INT((ROW()-ROW($A$2))/(n+1))ndoor het interval waarop je een lege rij wilt invoegen. Bijvoorbeeld, om een lege rij in te voegen na elke 3 rijen, gebruik:=INT((ROW()-ROW($A$2))/3) - Sleep de formule omlaag langs je dataset om groepsnummers toe te wijzen.
- Onder de laatste datarij voeg je extra rijen met lege waarden in kolommen A en B toe. In kolom C (de hulpcolumn), voer groepsnummers in die overeenkomen met de reeds aanwezige, zodat deze lege rijen correct gegroepeerd worden.
- Selecteer het volledige bereik (origineel + toegevoegde rijen), sorteer dan op de hulpcolumn en pas eventueel een secundaire sortering toe. De lege rijen verschijnen nu na elke n datarijen.
🟡 Foutmelding:
- Wees er zeker van dat je de juiste groepsnummers toekent aan je lege rijen - onjuiste overeenkomsten zullen ertoe leiden dat ze op onbedoelde plaatsen verschijnen.
- Onthoud dat deze methode fysieke rijen alleen na sortering toevoegt, dus bevestig de uiteindelijke indeling voordat je opslaat of exporteert.
Samenvatting en tips: Hoewel niet zo efficiënt als het gebruik van VBA of tools zoals Kutools, is deze op formules gebaseerde methode universeel compatibel en is niet afhankelijk van scripts. Voor incidentele of lichte taken biedt het een eenvoudige en flexibele tijdelijke oplossing.
Kopieer en voeg rijen meerdere keren in op basis van specifieke getallen met VBA-code
Als je taak niet alleen bestaat uit het invoegen van lege rijen, maar ook het dupliceren en invoegen van bestaande datarijen een bepaald aantal keer (misschien op basis van een aparte lijst met getallen), biedt de volgende VBA-code een praktische geautomatiseerde methode. Dit is vooral handig voor het repliceren van items voor verkooporders, scenario's of resourceplanning.
 | |  |
Volg deze gedetailleerde stappen om dit te implementeren:
1. Houd ALT + F11 ingedrukt in Excel om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, en plak vervolgens de code hieronder in het modulevenster.
VBA-code: Kopieer en voeg rijen meerdere keren in op basis van specifieke getallen:
Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
Voorzorgsmaatregelen: Backup altijd je gegevens voordat je VBA-scripts uitvoert die rijen dupliceren, omdat ze snel data kunnen vermenigvuldigen en mogelijk niet gemakkelijk ongedaan gemaakt kunnen worden.
3. Nadat de code is geplaatst, druk op F5 om de macro uit te voeren. Selecteer in het dialoogvenster de lijst met getallen die aangeeft hoe vaak elke rij moet worden gedupliceerd en ingevoegd.
4. Klik op OK. Het gespecificeerde aantal rijen wordt gekopieerd en ingevoegd onder elke originele rij, zoals hieronder geïllustreerd:
| | |
Tip: Deze oplossing is het beste geschikt voor datavoorbereidingstaken en niet ideaal voor realtime invoer, omdat VBA-macro's niet ongedaan gemaakt kunnen worden als er verdere niet-gerelateerde operaties worden uitgevoerd.
Kopieer en voeg rijen meerdere keren in op basis van specifieke getallen met een geweldige functie
Voor wie het proces van dupliceren en invoegen van rijen intuïtief wil maken en geen programmeervaardigheden vereist, is de Kutools voor Excel-functie Dubbele rijen/kolommen op basis van celwaarde een efficiënte alternatieve oplossing. Deze tool stelt je in staat om te specificeren welke rijen of kolommen moeten worden gedupliceerd en hoe vaak dit moet gebeuren, allemaal op basis van een referentiecelwaarde of lijst met slechts een paar eenvoudige selecties.
Na installatie van Kutools voor Excel, volg deze stappen:
1. Ga naar Kutools > Invoegen > Dubbele rijen / kolommen op basis van celwaarde zoals hier weergegeven:
2. Selecteer in het dialoogvenster Kopiëren en invoegen rijen & kolommen de optie Kopiëren en invoegen rijen als jouw type, geef het databereik aan dat je wilt dupliceren en specificeer vervolgens de waarde-lijst die moet worden gebruikt als zoekopdracht voor duplicatie, zoals hier weergegeven:
Tip: Gebruik dit om testsamples te genereren, transactiesjablonen te repliceren of snel instellingen of records te vermenigvuldigen zonder complexe scripts.
4. Klik tenslotte op OK of Toepassen om de output te genereren zoals hieronder gedemonstreerd:
| | |
Opmerking: Zorg ervoor dat je waarde-lijst correct overeenkomt met je data om de verwachte resultaten te behalen.
Download en probeer Kutools voor Excel nu gratis uit!
Meer gerelateerde artikelen:
- Kopieer en voeg rijen meerdere keren in of dupliceer de rij X keer
- In je dagelijkse werk heb je misschien geprobeerd om een rij of elke rij te kopiëren en vervolgens meerdere keren onder de huidige datarij in een werkblad in te voegen. Bijvoorbeeld, ik heb een bereik van cellen, nu wil ik elke rij kopiëren en deze 3 keer plakken in de volgende rij zoals in de volgende schermafbeelding te zien is. Hoe zou je dit probleem in Excel kunnen oplossen?
- Voeg lege rijen in wanneer de waarde verandert in Excel
- Stel je hebt een bereik van gegevens, en nu wil je lege rijen invoegen tussen de gegevens wanneer de waarde verandert, zodat je de sequentiële gelijke waarden in één kolom kunt scheiden zoals in de volgende schermafbeeldingen te zien is. In dit artikel bespreek ik enkele trucs om dit probleem op te lossen.
- Voeg een lege rij in na specifieke tekst in Excel
- Als je lege rijen wilt invoegen na een specifieke tekst zoals in de volgende schermafbeelding te zien is, hoe los je dit dan snel en gemakkelijk op zonder ze handmatig een voor een in te voegen?
- Kopieer rijen uit meerdere werkbladen op basis van criteria naar een nieuw blad
- Stel je hebt een werkmap met drie werkbladen die dezelfde opmaak hebben zoals in de volgende schermafbeelding te zien is. Nu wil je alle rijen uit deze werkbladen waar kolom C de tekst “Afgerond” bevat, kopiëren naar een nieuw werkblad. Hoe kun je dit probleem snel en gemakkelijk oplossen zonder ze handmatig een voor een te kopiëren en plakken?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen