Hoe voeg je een specifiek aantal rijen in op vaste intervallen in Excel?
In een Excel-werkblad kunt u handmatig Lege rijen tussen bestaande rijen invoegen met behulp van de ingebouwde functie Invoegen. Bij grote hoeveelheden gegevens of wanneer u regelmatig bijvoorbeeld twee Lege rijen na elke derde of n-de rij moet invoegen, wordt handmatig werken echter tijdrovend en inefficiënt. Het automatiseren van het invoegen van Lege rijen op vaste intervallen Tijd besparen niet alleen, maar minimaliseert ook fouten, waardoor uw werkproces gestroomlijnder verloopt. De volgende methoden laten zien hoe u deze taak snel en gemakkelijk kunt uitvoeren, inclusief oplossingen voor het invoegen van Lege rijen op basis van bepaalde criteria of het herhalen van rijen, zowel met als zonder VBA.
➤ Voeg een specifiek aantal Lege rijen in op vaste intervallen met VBA-code
➤ Voeg een specifiek aantal Lege rijen in op basis van celwaarden met VBA-code
➤ Voeg een specifiek aantal Lege rijen in op vaste intervallen met een handige functie
➤ Voeg een specifiek aantal Lege rijen in op vaste intervallen met Excel-formules
➤ Rijen kopiëren en invoegen meerdere keren dupliceren op basis van specifieke getallen met VBA-code
➤ Rijen kopiëren en invoegen meerdere keren dupliceren op basis van specifieke getallen met een geweldige functie
Specifiek aantal Lege rijen invoegen in Gegevensbereik op vaste intervallen met VBA-code
De volgende VBA-code helpt u automatisch een opgegeven aantal lege rijen in te voegen na elke n-de rij binnen uw bestaande gegevensbereik. Deze methode is ideaal voor gebruikers die bekend zijn met macro’s en efficiënt datasets van gemiddelde tot grote omvang willen verwerken. Volg deze stappen voor deze oplossing:
1. Houd de toetsen ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Specifiek aantal rijen invoegen in gegevens 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 u deze code hebt geplakt, drukt u op F5 om deze uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren waar u lege rijen wilt invoegen, zoals hieronder wordt weergegeven:
4. Klik op OK. Er verschijnt een nieuw dialoogvenster waarin u het gewenste rijinterval moet invoeren; bijvoorbeeld 3 invoeren voegt lege rijen in na elke derde rij:
5. Klik daarna op OK en voer het aantal lege rijen in dat u wilt invoegen wanneer de code daarom vraagt (bijvoorbeeld 2 om twee rijen in te voegen):
6. Nadat u uw keuzes heeft bevestigd, worden er lege rijen ingevoegd in uw gegevens op de gedefinieerde intervallen. Zie hieronder de vergelijking voor en na:
 |  |  |
Tips & opmerkingen:
- Met deze macro selecteert u flexibel uw gegevensbereik en geeft u zowel het rijinterval als het aantal in te voegen lege rijen op.
- Maak altijd eerst een back-up van uw werkblad of test het eerst op een voorbeeldwerkblad, want het invoegen van rijen is onomkeerbaar, tenzij u direct de opdracht Ongedaan gebruikt.
Probleemoplossing: Als u een foutmelding krijgt, controleer dan of uw gegevens niet zijn gefilterd en of er geen tabellen overlappen met het geselecteerde gebied. Gebruik bij onverwachte resultaten direct Ongedaan makenom de wijzigingen ongedaan te maken.
Specifiek aantal Lege rijen invoegen in Gegevensbereik op basis van celwaarden met VBA-code
Soms vereist uw werkproces het invoegen van lege rijen op basis van een vooraf gedefinieerde lijst met celwaarden, bijvoorbeeld door na elk record dat voldoet aan bepaalde overeenkomstcriteria een lege rij in te voegen. Deze VBA-oplossing is ideaal wanneer de invoeglogica niet afhankelijk is van vaste intervallen, maar van de waarden in een aangrenzende kolom.
✅ Wanneer te gebruiken:
- Aanbevolen wanneer uw gegevens per categorie zijn georganiseerd—zoals afdelingen, projectfasen of verkopers—en u ruimte of lege rijen tussen de groepen wilt invoegen.
- Zorg dat uw selectie nauwkeurig is, want de macro gebruikt de geselecteerde cellen om te bepalen waar Rijen invoegen moet worden uitgevoerd.
1Houd de toetsen vast.ALT + F11ingedrukt in Excel om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Specifiek aantal Lege rijen invoegen 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 u de code hebt geplakt, drukt u op F5 om de code uit te voeren. Selecteer in het verschijnende dialoogvenster de lijst met getallen (of de relevante cellen) waarin lege rijen moeten worden ingevoegd.
4. Klik vervolgens op OK en u ziet het gewenste resultaat, zoals weergegeven in de volgende schermafbeeldingen:
 | |  |
Foutmelding: Als de referentielijst lege cellen of niet-numerieke gegevens bevat, controleer dan de code-logica of maak uw gegevens schoon voordat u deze macro uitvoert.
Voeg een specifiek aantal Lege rijen in op vaste intervallen met een handige functie
Als u liever geen VBA gebruikt of op zoek bent naar een visuelere en interactievere methode, biedt Kutools voor Excel een speciale functie: Lege rijen/kolommen invoegen. Met slechts enkele klikken voegt u lege rijen of kolommen toe op elk gewenst interval binnen uw gegevensbereik—wat uw productiviteit aanzienlijk verhoogt, vooral bij repetitieve rapportage- of opmaaktaken.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Selecteer het gegevensbereik waarin u op regelmatige intervallen lege rijen wilt invoegen.
2. Ga naar Kutools > Invoegen > Lege rijen/kolommen invoegen, zoals hieronder wordt getoond:
3. In het dialoogvenster Rijen & kolommen invoegen kiest u Lege rijen onder Invoegtype en geeft u vervolgens zowel het interval als het aantal in te voegen lege rijen op, zoals geïllustreerd:
Opmerking: De instelling is flexibel. Als u na elke vier gegevensrijen twee lege rijen nodig hebt, stelt u het interval in op 4 en het aantal lege rijen op 2.
4. Klik vervolgens op de knop OK. Lege rijen worden ingevoegd in het geselecteerde bereik op het door u opgegeven interval, zoals hieronder wordt gedemonstreerd:
| | |
Voordelen: Deze oplossing is gebruiksvriendelijk, vereist geen codering en is vooral handig voor gebruikers die regelmatig de rij- of kolomstructuur moeten aanpassen.
Download en gratis proefversie van Kutools voor Excel nu!
Voeg een specifiek aantal Lege rijen in op vaste intervallen met Excel-formules
Als u geen macro’s of invoegtoepassingen kunt gebruiken, kunt u het doel van het invoegen van lege rijen op vaste intervallen nog steeds bereiken met behulp van hulpkolommen en ingebouwde Excel-functies zoals REST en RIJ. Deze methode is vooral handig wanneer scripts zijn beperkt, maar basisformules en sorteren wel beschikbaar zijn.
✅ Wanneer te gebruiken: Ideaal voor gebruikers die werkbladen macro-vrij willen houden, brede compatibiliteit nodig hebben of gegevens voorbereiden voor import-/exportwerkstromen waarbij visuele scheiding via lege rijen vereist is.
⚠️ Voorzorgsmaatregelen: Deze methode voegt geen echte lege rijen in, maar simuleert ze met behulp van extra rijen en hulpformules. U moet de gegevens daarna sorteren om de gesimuleerde lege rijen op de juiste plaats te krijgen. Het is een tijdelijke oplossing, ideaal voor kleine tot middelgrote datasets.
Stappen:
- Stel dat uw gegevens zich bevinden in cellen A2:B11. Voer in een nieuwe hulpkolom (bijvoorbeeld kolom C, beginnend bij C2) de volgende formule in:
Vervang=INT((ROW()-ROW($A$2))/(n+1))ndoor het interval waarna u een lege rij wilt invoegen. Wilt u bijvoorbeeld één lege rij invoegen na elke 3 rijen, gebruik dan:=INT((ROW()-ROW($A$2))/3) - Sleep de formule omlaag langs uw dataset om groepsnummers toe te wijzen.
- Voeg onder de laatste gegevensrij extra rijen toe met lege waarden in kolommen A en B. Voer in kolom C (de hulpkolom) groepsnummers in die overeenkomen met de reeds aanwezige nummers, zodat deze Lege rijen correct worden gegroepeerd.
- Selecteer het volledige bereik (oorspronkelijk + Rij toevoegen), sorteer vervolgens op de hulpkolom en pas indien nodig een secundaire sorteervolgorde toe. De lege rijen verschijnen nu na elke n gegevensrij.
🟡 Foutmelding:
- Zorg ervoor dat u de juiste groepsnummers toewijst aan uw Lege rijen—afwijkingen zorgen ervoor dat ze op onbedoelde plaatsen verschijnen.
- Onthoud dat deze methode pas fysieke rijen toevoegt na het sorteren, dus controleer de uiteindelijke lay-out voordat u opslaat of exporteert.
Samenvatting en tips: Hoewel deze op formules gebaseerde methode minder efficiënt is dan het gebruik van VBA of hulpmiddelen zoals Kutools, is hij universeel compatibel en vereist hij geen afhankelijkheid van scripts. Voor incidentele of lichte taken biedt hij een eenvoudige en flexibele tijdelijke oplossing.
Rijen kopiëren en invoegen meerdere keren dupliceren op basis van specifieke getallen met VBA-code
Als uw taak niet alleen het invoegen van Lege rijen vereist, maar ook bestaande gegevensrijen een bepaald aantal keer moet dupliceren en invoegen (mogelijk 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 vermeldingen voor verkooporders, scenario’s of resourcetoewijzing.
 | |  |
Volg deze gedetailleerde stappen om dit uit te voeren:
1. Houd ALT + F11 ingedrukt in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de onderstaande code in het modulevenster.
VBA-code: Rijen kopiëren en invoegen meerdere keren dupliceren 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: Maak altijd een back-up van uw gegevens voordat u VBA-scripts uitvoert die dubbele rijen genereren, omdat deze snel gegevens kunnen vermenigvuldigen en mogelijk niet eenvoudig ongedaan gemaakt kunnen worden.
3. Nadat u de code hebt geplaatst, drukt u op F5 om de macro uit te voeren. Selecteer in het dialoogvenster de lijst met getallen die aangeeft hoe vaak elke rij gedupliceerd en ingevoegd moet worden.
4. Klik op OK. Het opgegeven aantal rijen wordt gekopieerd en onder elke oorspronkelijke rij ingevoegd, zoals hieronder wordt geïllustreerd:
| | |
Tip: Deze oplossing is het meest geschikt voor gegevensvoorbereidingstaken en minder ideaal voor realtime invoer, omdat VBA-macro’s niet ongedaan gemaakt kunnen worden zodra er daarna andere bewerkingen zijn uitgevoerd.
Rijen kopiëren en invoegen meerdere keren dupliceren op basis van specifieke getallen met een geweldige functie
Voor gebruikers die het dupliceren en invoegen van rijen op een intuïtieve manier willen aanpakken, zonder programmeervaardigheden nodig te hebben, is de functie Kutools voor Excel, Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens, een efficiënt alternatief. Met deze tool geeft u eenvoudig aan welke rijen of kolommen u wilt dupliceren en hoe vaak—op basis van een referentiecelwaarde of -lijst—met slechts een paar simpele selecties.
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Ga naar Kutools > Invoegen > Rijen/Kolommen kopiëren of invoegen op basis van gespecificeerde gegevens, zoals hieronder wordt getoond:
2. In het dialoogvenster Rijen/Kolommen kopiëren en invoegen selecteert u Rijen kopiëren en invoegen als type, geeft u het gegevensbereik op dat u wilt dupliceren en specificeert u de waardenlijst die als duplicatiereferentie moet worden gebruikt, zoals weergegeven:
Tip: Gebruik dit om snel testsamples te genereren, transactiesjablonen te repliceren of instellingen en records te vermenigvuldigen—zonder complexe scripts.
4. Klik ten slotte op OK of Toepassen om de uitvoer te genereren, zoals hieronder wordt gedemonstreerd:
| | |
Opmerking: Zorg ervoor dat uw waardenlijst exact overeenkomt met uw gegevens om de verwachte resultaten te behalen.
Download nu de gratis proefversie van Kutools voor Excel!
Meer gerelateerde artikelen:
- Rij meerdere keren kopiëren en invoegen of de rij X keer dupliceren
- Hebt u tijdens uw dagelijkse werk ooit geprobeerd een rij of elke rij te kopiëren en deze vervolgens meerdere keren direct onder de huidige gegevensrij in een werkblad in te voegen? Stel bijvoorbeeld dat u een celbereik hebt en elke rij drie keer wilt kopiëren en plakken in de rijen eronder, zoals in de volgende afbeelding wordt weergegeven. Hoe voert u deze taak uit in Excel?
- Lege rijen invoegen wanneer de waarde verandert in Excel
- Stel dat u een reeks gegevens heeft en lege rijen wilt invoegen telkens wanneer de waarde verandert, zodat opeenvolgende gelijke waarden in één kolom duidelijk van elkaar worden gescheiden — zoals te zien is in de onderstaande afbeeldingen. In dit artikel bespreek ik enkele handige trucs om dit probleem eenvoudig op te lossen.
- Een Lege rij invoegen na specifieke tekst in Excel
- Hoe kunt u snel en eenvoudig lege rijen invoegen na een specifieke tekst, zoals in de onderstaande afbeelding wordt weergegeven, zonder ze handmatig één voor één toe te voegen?
- Rijen van meerdere werkbladen kopiëren op basis van criteria naar een nieuw blad
- Stel dat u een werkmap hebt met drie werkbladen die dezelfde opmaak hebben, zoals op de onderstaande afbeelding wordt weergegeven. U wilt nu alle rijen van deze werkbladen kopiëren waarin kolom C de tekst „Completed” bevat, naar een Nieuw werkblad. Hoe kunt u dit probleem snel en eenvoudig oplossen zonder alles handmatig één voor één te kopiëren en plakken?
Beste Office-productiviteitshulpmiddelen
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.
- 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