Wie fügt man eine bestimmte Anzahl von Zeilen in festen Abständen in Excel ein?

In einem Excel-Arbeitsblatt können Sie eine leere Zeile zwischen bestehenden Zeilen einfügen, indem Sie die Einfügen-Funktion verwenden. Wenn Sie jedoch einen großen Datenbereich haben und nach jeder dritten oder n-ten Zeile zwei leere Zeilen einfügen müssen, wie können Sie diese Aufgabe schnell und bequem erledigen?

• Fügen Sie mit VBA-Code eine bestimmte Anzahl leerer Zeilen in einem festen Intervall in den Datenbereich ein
• Fügen Sie mit VBA-Code eine bestimmte Anzahl leerer Zeilen basierend auf Zellwerten in einen Datenbereich ein
• Fügen Sie mit einer praktischen Funktion eine bestimmte Anzahl leerer Zeilen in einem festen Intervall in einen Datenbereich ein
• Kopieren und fügen Sie Zeilen mehrmals basierend auf bestimmten Zahlen mit VBA-Code ein
• Kopieren und fügen Sie Zeilen mehrmals basierend auf bestimmten Zahlen mit einer erstaunlichen Funktion ein

Fügen Sie mit VBA-Code eine bestimmte Anzahl leerer Zeilen in einem festen Intervall in einen Datenbereich ein

Der folgende VBA-Code kann Ihnen helfen, eine bestimmte Anzahl von Zeilen nach jeder n-ten Zeile innerhalb der vorhandenen Daten einzufügen. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 in Excel gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Fügen Sie eine bestimmte Anzahl von Zeilen in einem festen Intervall in die Daten ein

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. Nachdem Sie diesen Code eingefügt haben, drücken Sie bitte die F5-Taste, um den Code auszuführen. Ein Dialogfeld wird angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, in den Sie leere Zeilen einfügen möchten, siehe Screenshot:

4. Klicken Sie auf die Schaltfläche OK, ein weiteres Dialogfeld wird angezeigt. Geben Sie hier die Anzahl der Zeilenintervalle ein, siehe Screenshot:

5. Klicken Sie weiterhin auf die Schaltfläche OK. Im nächsten angezeigten Dialogfeld geben Sie die Anzahl der einzufügenden leeren Zeilen ein, siehe Screenshot:

6. Dann klicken Sie auf OK, und die leeren Zeilen wurden in regelmäßigen Abständen in die vorhandenen Daten eingefügt, siehe Screenshots:

Fügen Sie mit VBA-Code eine bestimmte Anzahl leerer Zeilen basierend auf Zellwerten in einen Datenbereich ein

Manchmal müssen Sie möglicherweise leere Zeilen basierend auf einer Liste von Zellwerten einfügen. In diesem Fall kann der folgende VBA-Code Ihnen helfen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 in Excel gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Fügen Sie eine bestimmte Anzahl leerer Zeilen basierend auf einer Liste von Zahlen ein:

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. Nachdem Sie diesen Code eingefügt haben, drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld die Liste der Zahlen aus, basierend auf denen Sie leere Zeilen einfügen möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und Sie erhalten die gewünschten Ergebnisse, wie in den folgenden Screenshots gezeigt:

Fügen Sie mit einer praktischen Funktion eine bestimmte Anzahl leerer Zeilen in einem festen Intervall in einen Datenbereich ein

Wenn Sie mit dem obigen VBA-Code nicht vertraut sind, kann Ihnen Kutools für Excel ebenfalls helfen. Die Funktion „Leere Zeilen & Spalten einfügen“ ermöglicht es, eine bestimmte Anzahl von Zeilen oder Spalten in regelmäßigen Abständen schnell und einfach in vorhandene Daten einzufügen.

Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:

1. Wählen Sie den Datenbereich aus, in den Sie in regelmäßigen Abständen leere Zeilen einfügen möchten.

2. Klicken Sie auf Kutools > Einfügen > Leere Zeilen & Spalten einfügen, siehe Screenshot:

3. Wählen Sie im Dialogfeld „Leere Zeilen & Spalten einfügen“ die Option „Leere Zeilen“ im Abschnitt „Einfügetyp“ aus, und geben Sie dann die Anzahl der Intervalle und der leeren Zeilen an, die Sie verwenden möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und die leeren Zeilen wurden in regelmäßigen Abständen in den ausgewählten Bereich eingefügt, siehe Screenshot:

Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!

Kopieren und Einfügen von Zeilen mehrmals basierend auf bestimmten Zahlen mit VBA-Code

Angenommen, Sie haben einen Datenbereich, und nun möchten Sie jede Zeile kopieren und sie basierend auf einer Liste von Zahlen mehrmals in die nächste Zeile einfügen, wie in den folgenden Screenshots gezeigt. Wie könnten Sie diese Aufgabe in einem Excel-Arbeitsblatt lösen?

Um diese Aufgabe zu bewältigen, möchte ich Ihnen einen nützlichen Code vorstellen. Gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 in Excel gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Kopieren und Einfügen von Zeilen mehrmals basierend auf bestimmten Zahlen:

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. Nachdem Sie diesen Code eingefügt haben, drücken Sie die F5-Taste, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld die Liste der Zahlen aus, basierend auf denen Sie die Datenzeilen kopieren und einfügen möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, und die spezifische Anzahl von Zeilen wurde unter jede ursprüngliche Zeile kopiert und eingefügt, siehe Screenshots:

Kopieren und Einfügen von Zeilen mehrmals basierend auf bestimmten Zahlen mit einer erstaunlichen Funktion

Wenn Sie Kutools für Excel haben, können Sie mit der Funktion „Zeilen / Spalten basierend auf Zellenwert duplizieren“ Zeilen oder Spalten basierend auf der Liste von Zahlen schnell und einfach einfügen.

Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:

1. Klicken Sie auf Kutools > Einfügen > Zeilen / Spalten basierend auf Zellenwert duplizieren, siehe Screenshot:

2. Wählen Sie im Dialogfeld „Zeilen & Spalten kopieren und einfügen“ die Option „Zeilen kopieren und einfügen“ im Abschnitt „Typ“ aus, wählen Sie dann den Datenbereich aus, den Sie duplizieren möchten, und geben Sie die Liste der Werte an, basierend auf denen Sie Zeilen kopieren möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche Ok oder Übernehmen, und Sie erhalten das folgende Ergebnis, das Sie benötigen:

Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!

Weitere relevante Artikel: