Wie fügt man in Excel leere Zeilen basierend auf den Werten der darüberliegenden Zellen ein?

In Excel müssen Sie möglicherweise unter Zellen basierend auf ihren numerischen Werten leere Zeilen einfügen. Dies manuell zu tun kann zeitaufwendig sein, aber mit einem einfachen VBA-Makro können Sie den Prozess automatisieren und schnell die erforderliche Anzahl von leeren Zeilen unter jeder Zelle in einem ausgewählten Bereich einfügen, wie unten gezeigt.

Zeilen basierend auf Zellenwerten einfügen

Zeilen basierend auf Zellenwerten einfügen

Wenn Sie leere Zeilen basierend auf Zellenwerten einfügen möchten, können Sie einen Makro-Code verwenden.

1. Aktivieren Sie das Arbeitsblatt, das Sie verwenden, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Skript ein.

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. Drücken Sie F5 , um den Code auszuführen, und ein Dialogfenster erscheint, das Sie auffordert, eine Liste zum Bearbeiten auszuwählen. Siehe Screenshot:

4. Klicken Sie auf OK, die leeren Zeilen wurden eingefügt.