Hoe voeg je een specifiek aantal rijen in op vaste intervallen in Excel?

In een Excel-werkblad kun je een lege rij tussen bestaande rijen invoegen met behulp van de Invoegen-functie. Maar als je een groot bereik aan gegevens hebt en na elke derde of n-de rij twee lege rijen moet invoegen, hoe kun je dit dan snel en gemakkelijk doen?

• Voeg een specifiek aantal lege rijen in op vaste intervallen in een gegevensbereik met VBA-code
• Voeg een specifiek aantal lege rijen in een gegevensbereik in op basis van celwaarden met VBA-code
• Voeg een specifiek aantal lege rijen in op vaste intervallen in een gegevensbereik met een handige functie
• Rijen meerdere keren kopiëren en invoegen op basis van specifieke getallen met VBA-code
• Rijen meerdere keren kopiëren en invoegen op basis van specifieke getallen met een geweldige functie

Voeg een specifiek aantal lege rijen in op vaste intervallen in een gegevensbereik met VBA-code

De volgende VBA-code kan je helpen om een specifiek aantal rijen in te voegen na elke n-de rij binnen bestaande gegevens. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

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 de F5-toets om de code uit te voeren. Er verschijnt een pop-upvenster waarin je wordt gevraagd het gegevensbereik te selecteren waarin je lege rijen wilt invoegen, zie screenshot:

4. Klik op de knop OK, er verschijnt een ander pop-upvenster waarin je het aantal rijintervallen kunt invoeren, zie screenshot:

5. Klik verder op de knop OK, en in het volgende pop-upvenster voer je het aantal lege rijen in dat je wilt invoegen, zie screenshot:

6. Klik vervolgens op OK, en de lege rijen zijn ingevoegd in de bestaande gegevens op regelmatige intervallen, zie screenshots:

Voeg een specifiek aantal lege rijen in een gegevensbereik in op basis van celwaarden met VBA-code

Soms moet je mogelijk lege rijen invoegen op basis van een lijst met celwaarden. In dit geval kan de onderstaande VBA-code je helpen, volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

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 deze code hebt geplakt, druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster de lijst met getallen waarop je lege rijen wilt invoegen, zie screenshot:

4. Klik vervolgens op OK, en je krijgt de resultaten die je nodig hebt zoals in de volgende screenshots te zien is:

Voeg een specifiek aantal lege rijen in op vaste intervallen in een gegevensbereik met een handige functie

Als je niet bekend bent met bovenstaande VBA-code, kan Kutools voor Excel je ook helpen. De functie 'Insert Blank Rows & Columns' kan snel en eenvoudig een specifiek aantal rijen of kolommen invoegen in bestaande gegevens op vaste intervallen.

Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de volgende stappen:

1. Selecteer het gegevensbereik waarin je lege rijen op intervallen wilt invoegen.

2. Klik op Kutools > Invoegen > Insert Blank Rows & Columns, zie screenshot:

3. Kies in het dialoogvenster 'Insert Blank Row & Columns' de optie 'Blank rows' in het gedeelte 'Insert type', en specificeer vervolgens het aantal intervallen en lege rijen dat je wilt gebruiken zoals in de volgende screenshot te zien is:

4. Klik vervolgens op de knop OK, en de lege rijen zijn ingevoegd in het geselecteerde bereik op een specifiek interval zoals in de volgende screenshot te zien is:

Download en probeer Kutools voor Excel nu gratis uit!

Rijen meerdere keren kopiëren en invoegen op basis van specifieke getallen met VBA-code

Stel dat je een reeks gegevens hebt, en nu wil je elke rij kopiëren en meerdere keren onder de volgende rij plakken op basis van een lijst met getallen zoals in de onderstaande screenshots te zien is. Hoe zou je deze taak in een Excel-werkblad kunnen oplossen?

Om deze taak te behandelen, zal ik je een nuttige code introduceren. Volg de volgende stappen:

1. Houd de toetsen ALT + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Rijen meerdere keren kopiëren en invoegen 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

3. Nadat je deze code hebt geplakt, druk op de F5-toets om de code uit te voeren. Selecteer in het pop-upvenster de lijst met getallen waarop je de gegevensrijen wilt kopiëren en invoegen, zie screenshot:

4. Klik vervolgens op de knop OK, en het specifieke aantal rijen is gekopieerd en geplakt onder elke originele rij, zie screenshots:

Rijen meerdere keren kopiëren en invoegen op basis van specifieke getallen met een geweldige functie

Als je Kutools voor Excel hebt, kun je met de functie 'Duplicate Rows / Columns based on cell value' snel en gemakkelijk rijen of kolommen invoegen op basis van een lijst met getallen.

Nadat je Kutools voor Excel hebt geïnstalleerd, volg dan de volgende stappen:

1. Klik op Kutools > Invoegen > Duplicate Rows / Columns based on cell value, zie screenshot:

2. Selecteer in het dialoogvenster 'Copy and insert rows & columns' de optie 'Copy and insert rows' in het gedeelte Type, selecteer vervolgens het gegevensbereik dat je wilt dupliceren, en specificeer de lijst met waarden waarop je rijen wilt kopiëren, zie screenshot:

4. Klik vervolgens op de knop Ok of Toepassen, en je krijgt het volgende resultaat zoals je nodig hebt:

Download en probeer Kutools voor Excel nu gratis uit!

Meer gerelateerde artikelen: