Wie kann man Zeilen basierend auf einem Zellenwert 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, um Daten zu erweitern, Datensätze für Tests vorzubereiten, Lagerbestände zu simulieren oder wiederholte Bestellzeilen zu generieren. Die effiziente Durchführung dieser Aufgabe ohne manuelle Wiederholung trägt dazu bei, die Datenintegrität zu erhalten und beschleunigt den Workflow erheblich, insbesondere bei größeren Tabellen.
![]() | ![]() | ![]() |
Zeilen mehrfach basierend auf Zellenwerten mit VBA-Code duplizieren
Duplizieren von Zeilen über Power Query-Transformation
Zeilen mehrfach basierend auf Zellenwerten mit VBA-Code duplizieren
Wenn Sie schnell Duplikate ganzer Zeilen entsprechend den Werten in einer bestimmten Spalte erstellen müssen (z. B. in Spalte D), bietet VBA eine direkte und effiziente Lösung. Dieser Ansatz ist besonders wertvoll beim Umgang mit großen Datensätzen, da er den Prozess automatisiert und zur Sicherstellung der Genauigkeit beiträgt. Allerdings erfordert die Arbeit mit VBA einige grundlegende Kenntnisse des Excel-Entwickler-Tabs und ein Verständnis dafür, wie Makros ausgeführt werden. Der Hauptvorteil ist die Flexibilität – der Code kann angepasst werden, um unterschiedliche Bereiche oder Zielspalten abzudecken. Wenn Sie jedoch nicht mit VBA vertraut sind oder Sicherheitsrichtlinien Makros in Ihrer Umgebung blockieren, ziehen Sie bitte eine der unten aufgeführten Alternativlösungen in Betracht.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications 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 Zellenwert 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 F5-Taste, um diesen Code auszuführen. Die gesamten Zeilen werden entsprechend dem Zellenwert in Spalte D mehrfach dupliziert, um Ihren Anforderungen zu entsprechen.
Kopieren und Einfügen von Zeilen basierend auf einer festgelegten Anzahl von Wiederholungen mit einem praktischen Tool - Kutools für Excel
Wenn Sie eine Methode ohne Code bevorzugen oder eine benutzerfreundliche Oberfläche zur Verwaltung von Massenduplikaten wünschen, bietet Kutools für Excel eine praktische Lösung. Seine Funktion „Zeilen/Spalten basierend auf Zellenwert duplizieren“ ermöglicht es Ihnen, Zeilen schnell entsprechend der in den relevanten Zellen angegebenen Zahl zu kopieren und einzufügen. Dies ist ideal für diejenigen, die solche wiederholenden Zeilenoperationen regelmäßig durchführen und einen visuelleren, anpassbaren Prozess benötigen. Kutools erhält das Layout und die Formatierung der Originaltabelle während der Duplizierung bei, was das Risiko unbeabsichtigter Fehler reduziert. Diese Methode funktioniert reibungslos, unabhängig von Ihrer VBA-Erfahrung, und verbessert die Effizienz erheblich bei mittleren bis großen Datenbereichen.
- Klicken Sie auf Kutools > Einfügen > Zeilen/Spalten basierend auf Zellenwert 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 der 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 bei 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 Ihren tatsächlichen Spaltenkopf 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.
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!