Zum Hauptinhalt springen

Wie kann man Zeilen basierend auf einem Zellenwert in einer Spalte duplizieren?

Author: Xiaoyang Last Modified: 2025-07-21

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.

Screenshot showing data table with numbers in column D before duplicating rows based on values Arrow Screenshot showing data table after duplicating rows based on column D values in Excel

Zeilen mehrfach basierend auf Zellenwerten mit VBA-Code duplizieren

Kopieren und Einfügen von Zeilen basierend auf einer festgelegten Anzahl von Wiederholungen mit einem praktischen Tool - Kutools für Excel

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.

Hinweis: Im obigen Code steht der Buchstabe A für die erste Spalte Ihres ausgewählten Datenbereichs und D ist der Spaltenbuchstabe, der für die Anzahl der Duplikate verwendet wird. Passen Sie diese Buchstaben bei Bedarf an, um sie an Ihr eigenes Arbeitsblatt anzupassen. Bevor Sie Makros ausführen, denken Sie daran, Ihre Arbeitsmappe zu sichern, da Makrooperationen nicht rückgängig gemacht werden können. Wenn eine Fehlermeldung erscheint, überprüfen Sie, ob Ihr ausgewählter Datenbereich und die Zielspalten konsistent sind.

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.

Kutools für Excel bietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und Kreativität sowie Effizienz zu steigern. Durch die Integration mit KI-Funktionen automatisiert Kutools Aufgaben präzise und macht das Datenmanagement mühelos. Detaillierte Informationen zu Kutools für Excel... Kostenlose Testversion...
  1. Klicken Sie auf Kutools > Einfügen > Zeilen/Spalten basierend auf Zellenwert duplizieren, um diese Funktion zu aktivieren;
  2. 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.

Screenshot of Kutools for Excel Duplicate Rows/Columns feature dialog box


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])

set options in the Power Query Editor

4. Klicken Sie auf die Schaltfläche Erweitern neben der neuen benutzerdefinierten Spalte und klicken Sie auf In neue Zeilen erweitern.

Click the Expand button

5. Dann können Sie sehen, dass die Daten basierend auf den Werten in Spalte D dupliziert wurden, siehe Screenshot:

the data has been duplicated based on the values

6. Entfernen Sie bei Bedarf die Hilfsspalten und klicken Sie auf Schließen & Laden, um die Daten zurück nach Excel zu bringen.

Tipps: Jedes Mal, wenn sich Ihre Quelldaten ändern, aktualisieren Sie einfach die Power Query-Ausgabe, um die wiederholten Zeilen automatisch zu aktualisieren. Dies gewährleistet Effizienz und Genauigkeit bei laufenden oder automatisierten Datenprozessen. Power Query ist in Excel 2016 und höher integriert und als kostenloses Add-In in früheren Versionen verfügbar. Wenn Ihre Excel-Version kein Power Query hat oder Sie keine Abfragen erstellen können, ziehen Sie die oben genannten Formel- oder VBA-Lösungen in Betracht.

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

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!