Wie wiederhole ich Zeilen eine bestimmte Anzahl von Malen basierend auf einer anderen Spalte in Excel?

Haben Sie jemals versucht, eine Zeile basierend auf dem Wert einer anderen Spalte zu wiederholen, wie im folgenden Screenshot gezeigt? In diesem Artikel werde ich die Methode zur Lösung dieser Aufgabe in Excel vorstellen.

Zeilen basierend auf einem anderen Spaltenwert mit VBA wiederholen

Zeilen basierend auf einem anderen Spaltenwert mit Kutools für Excel wiederholen

Zeilen basierend auf einem anderen Spaltenwert mit VBA wiederholen

Hier habe ich einen Code, der schnell Zeilen basierend auf den Werten der letzten Spalte wiederholen kann.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, dann kopieren Sie den folgenden Code und fügen Sie ihn in das neue Modul-Skript ein.

VBA: Zeilen basierend auf einem anderen Spaltenwert wiederholen

Sub CopyRow()
'UpdatebyExtendoffice20181011
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 number value", "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. Drücken Sie F5 Taste, ein Dialogfeld erscheint, wählen Sie die Nummernliste aus, auf deren Basis die Zeilen wiederholt werden sollen.

4. Klicken Sie auf OK, die Zeilen wurden basierend auf dem ausgewählten Spaltenwert wiederholt.

Zeilen basierend auf einem anderen Spaltenwert mit Kutools für Excel wiederholen

Wenn Sie nicht gut im Umgang mit VBA sind, können Sie Kutools für Excel’s Funktion „Zeilen/Spalten basierend auf Zellenwert duplizieren“ ausprobieren, die nur zwei Schritte benötigt.

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

2. Wählen Sie im erscheinenden Dialogfeld Zeilen kopieren und einfügen Option im Typ Abschnitt, dann wählen Sie den Bereich aus, den Sie wiederholen möchten. Einzufügender BereichTextfeld, und wählen Sie die Spalte aus, die die Anzahl der Wiederholungen bestimmt, im Wiederholungen Textfeld. Klicken Sie auf Ok.

Dann werden die Zeilen basierend auf der ausgewählten Spalte wiederholt.