Wie kann man Zeilen in Excel eine bestimmte Anzahl von Malen wiederholen, basierend auf den Werten in einer anderen Spalte?
Haben Sie schon einmal versucht, eine Zeile basierend auf dem Wert einer anderen Spalte – wie in der folgenden Abbildung gezeigt – zu wiederholen? In diesem Artikel stelle ich Ihnen die Methode vor, um diese Aufgabe in Excel zu lösen.
Zeilen basierend auf dem Wert einer anderen Spalte mit VBA wiederholen
Zeilen basierend auf dem Wert einer anderen Spalte mithilfe von Kutools für Excel
Zeilen basierend auf dem Wert einer anderen Spalte mit VBA wiederholen
Hier habe ich einen Code, mit dem Zeilen schnell basierend auf den Werten in der letzten Spalte dupliziert werden können.
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, und fügen Sie dann den folgenden Code in das neue Modul-Skript ein.
VBA: Zeilen basierend auf dem Wert einer anderen Spalte 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 die Taste F5, um das Dialogfeld zu öffnen, und wählen Sie die Zahlenliste aus, anhand derer die Zeilen wiederholt werden sollen.
4. Klicken Sie auf „OK“. Die Zeilen wurden basierend auf dem ausgewählten Spaltenwert dupliziert.
Zeilen basierend auf dem Wert einer anderen Spalte mithilfe von Kutools für Excel
Wenn Sie nicht gut mit VBA umgehen können, probieren Sie doch die Funktion Kutools für Excel – Doppelte Zeilen/Spalten basierend auf Zellenwert – aus. Sie benötigt nur zwei einfache Schritte!
1. Klicken Sie auf Kutools > Einfügen > Doppelte Zeile/Spalten basierend auf Zellenwert.
2. Wählen Sie im erscheinenden Dialogfeld im Abschnitt Typ die Option Zeilen kopieren und einfügen aus. Geben Sie anschließend in das Feld Bereich einfügen den Bereich an, den Sie wiederholen möchten, und wählen Sie im Feld Wiederholungen die Spalte aus, die die Anzahl der Wiederholungen festlegt. Klicken Sie abschließend auf OK.
Dann werden die Zeilen entsprechend der ausgewählten Spalte wiederholt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins