Hoe voeg je lege rijen in op basis van de waarden van bovenliggende cellen in Excel?

In Excel moet je mogelijk lege rijen onder cellen invoegen op basis van hun numerieke waarden. Dit handmatig doen kan tijdrovend zijn, maar met een eenvoudige VBA-macro kun je het proces automatiseren en snel het vereiste aantal lege rijen onder elke cel in een geselecteerd bereik invoegen, zoals hieronder wordt getoond.

Rijen invoegen op basis van celwaarden

Rijen invoegen op basis van celwaarden

Als je lege rijen wilt invoegen op basis van celwaarden, kun je een macrocode gebruiken.

1. Activeer het werkblad dat je gebruikt en druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module en plak de onderstaande code in het script.

Sub Insert()
'UpdatebyExtendoffice20170926
    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 a range 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. Druk op F5 om de code uit te voeren, en er verschijnt een dialoogvenster dat je eraan herinnert een lijst te selecteren om mee te werken. Zie screenshot:

4. Klik op OK, de lege rijen zijn ingevoegd.