Wie kann man Zeilen basierend auf einem Zellwert in einer Spalte duplizieren?
Beim Arbeiten mit Excel-Datentabellen müssen Sie manchmal ganze Zeilen entsprechend eines Werts in einer bestimmten Spalte duplizieren. Stellen Sie sich zum Beispiel vor, Sie haben eine Tabelle, in der Spalte D eine Zahl angibt, und Ihr Ziel ist es, jede Zeile so oft zu kopieren oder einzufügen, wie der Wert in der entsprechenden Zelle in Spalte D angibt. Dies kann nützlich sein für die Datenausweitung, das Vorbereiten von Datensätzen für Tests, die Simulation von Beständen oder das Generieren wiederholter Bestellzeilen. Die effiziente Erledigung dieser Aufgabe ohne manuelle Wiederholungen trägt zur Aufrechterhaltung der Datenintegrität bei und beschleunigt den Workflow erheblich, insbesondere bei größeren Tabellen.
![]() | ![]() | ![]() |
Zeilen mehrfach basierend auf Zellwerten mit VBA-Code duplizieren
Duplizieren von Zeilen über Power Query-Transformation
Zeilen mehrfach basierend auf Zellwerten mit VBA-Code duplizieren
Wenn Sie schnell Duplikate ganzer Zeilen gemäß den Werten in einer bestimmten Spalte (zum Beispiel in Spalte D) erstellen müssen, bietet VBA eine direkte, effiziente Lösung. Dieser Ansatz ist besonders wertvoll beim Umgang mit großen Datensätzen, da er den Prozess automatisiert und dabei hilft, Genauigkeit sicherzustellen. Das Arbeiten mit VBA erfordert jedoch grundlegende Kenntnisse des Excel-Entwickler-Tabs und ein Verständnis dafür, wie Makros ausgeführt werden. Der Hauptvorteil liegt in der Flexibilität – der Code kann angepasst werden, um unterschiedliche Bereiche oder Zielspalten zu berücksichtigen. Wenn Sie sich jedoch nicht mit VBA auskennen oder Sicherheitsrichtlinien Makros in Ihrer Umgebung blockieren, ziehen Sie bitte eine der unten genannten Alternativlösungen in Betracht.
1. Halten Sie die Tasten ALT + F11 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: Zeilen mehrfach basierend auf einem Zellwert duplizieren:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Drücken Sie dann die Taste F5, um diesen Code auszuführen. Die gesamten Zeilen werden basierend auf dem Zellwert in Spalte D mehrfach dupliziert, entsprechend Ihren Anforderungen.
Kopieren und Einfügen von Zeilen basierend auf einer bestimmten Anzahl von Wiederholungen mit einem praktischen Tool – Kutools für Excel
Wenn Sie eine Methode ohne Code bevorzugen oder eine benutzerfreundliche Oberfläche benötigen, um die Stapelduplizierung zu verwalten, bietet Kutools für Excel eine praktische Lösung. Seine Funktion „Zeilen/Spalten basierend auf einem Zellwert duplizieren“ ermöglicht es Ihnen, Zeilen schnell entsprechend der in den relevanten Zellen angegebenen Anzahl zu kopieren und einzufügen. Dies ist ideal für Personen, die solche wiederholten Zeilenoperationen regelmäßig durchführen und einen visuelleren, anpassbaren Prozess benötigen. Kutools erhält das Layout und die Formatierung der ursprünglichen Tabelle während der Duplizierung bei, was das Risiko unbeabsichtigter Fehler reduziert. Diese Methode funktioniert unabhängig von Ihrer VBA-Erfahrung reibungslos und verbessert die Effizienz bei mittleren bis großen Datenbereichen erheblich.
- Klicken Sie auf Kutools > Einfügen > Zeilen/Spalten basierend auf einem Zellwert duplizieren, um diese Funktion zu aktivieren;
- Wählen Sie dann die Option Zeilen kopieren und einfügen und geben Sie die Zellen des Einfügebereichs und die Wiederholungsanzahl separat im Dialogfeld an. Bestätigen Sie Ihre Auswahl und klicken Sie auf OK.
Duplizieren von Zeilen über Power Query-Transformation
Power Query bietet eine robuste, wiederholbare Lösung zum Duplizieren von Zeilen basierend auf einem Spaltenwert – ideal für größere Tabellen oder wenn Sie Daten häufig aktualisieren müssen. Mit diesem Tool können Sie Zeilen entsprechend numerischer Indikatoren ohne Formeln oder Code erweitern. Diese Methode eignet sich gut für Benutzer, die einen visuell erklärbaren, schrittweisen Prozess wünschen und Wiederholbarkeit mit zukünftigen Datenaktualisierungen benötigen.
1. Fügen Sie Ihre Daten in eine Excel-Tabelle ein (Bereich auswählen und Strg+T drücken). Gehen Sie zu Daten > Aus Tabelle/Bereich, um Ihre Tabelle in Power Query zu laden.
2. Wählen Sie im Power Query-Editor die Registerkarte Spalte hinzufügen und klicken Sie auf Benutzerdefinierte Spalte.
3. Geben Sie die folgende Formel ein, um für jede Zeile eine Liste entsprechend dem Wert in Spalte D zu generieren. ( Hinweis: Sie sollten [D] durch Ihre tatsächliche Spaltenüberschrift ersetzen. Zum Beispiel werde ich hier die Wiederholungsanzahl auswählen und auf die Schaltfläche Einfügen klicken, um das Argument [D] zu ersetzen.)
List.Repeat({1}, [D])
4. Klicken Sie auf die Schaltfläche Erweitern neben der neuen benutzerdefinierten Spalte und klicken Sie auf In neue Zeilen erweitern.
5. Dann können Sie sehen, dass die Daten basierend auf den Werten in Spalte D dupliziert wurden, siehe Screenshot:
6. Entfernen Sie bei Bedarf die Hilfsspalten und klicken Sie auf Schließen & Laden, um die Daten zurück nach Excel zu bringen.
Die besten Office-Produktivitätstools
Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!