Wie entferne ich doppelte Zeilen basierend auf einem Zellwert in einer Spalte?
Beim Arbeiten mit Excel-Datentabellen müssen Sie gelegentlich Ganze Zeile entsprechend einem Wert in einer Spalte angeben duplizieren. Stellen Sie sich beispielsweise eine Tabelle vor, in der Spalte D eine Zahl steht, und Ihr Ziel ist es, jede Zeile so oft zu kopieren oder einzufügen, wie der entsprechende Zellwert in Spalte D angibt. Dies kann für die Datenerweiterung, das Erstellen von Testdatensätzen, die Simulation von Lagerbeständen oder das Generieren wiederholter Auftragspositionen nützlich sein. Dies effizient ohne manuelle Wiederholung zu erreichen, trägt zur Wahrung der Datenintegrität bei und beschleunigt den Arbeitsablauf erheblich, insbesondere bei größeren Tabellen.
 |  |  |
Doppelte Zeile mehrfach basierend auf Zellwerten mit VBA-Code
Doppelte Zeile mithilfe einer Power Query-Transformation
Doppelte Zeile mehrfach basierend auf Zellwerten mit VBA-Code
Wenn Sie schnell Duplikate ganzer Zeilen basierend auf den Werten einer bestimmten Spalte (z. B. Spalte D) identifizieren müssen, bietet VBA eine direkte und effiziente Lösung. Dieser Ansatz ist besonders wertvoll bei großen Datensätzen, da er den Prozess automatisiert und die Genauigkeit gewährleistet. Die Nutzung von VBA setzt jedoch grundlegende Kenntnisse der Entwicklerregisterkarte in Excel sowie des Ausführens von Makros voraus. Der entscheidende Vorteil liegt in der Flexibilität – der Code lässt sich problemlos an unterschiedliche Bereiche oder Zielspalten anpassen. Sollten Sie mit VBA nicht vertraut sein oder blockieren Sicherheitsrichtlinien Makros in Ihrer Umgebung, empfehlen wir Ihnen, eine der unten aufgeführten Alternativen in Betracht zu ziehen.
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 in das Modul-Fenster ein.
VBA-Code: Doppelte Zeile mehrfach basierend auf Zellwert:
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 anschließend die Taste F5, um diesen Code auszuführen. Die gesamte Zeile wird entsprechend dem Zellwert in Spalte D mehrfach dupliziert – genau wie Sie es benötigen.
Zeilen kopieren und einfügen basierend auf einer festgelegten Anzahl mit einem praktischen Tool – Kutools für Excel
Wenn Sie eine Methode ohne Code bevorzugen oder eine benutzerfreundliche Oberfläche zur Verwaltung der Stapelvervielfältigung wünschen, bietet Kutools für Excel eine praktische Lösung. Mit der Funktion Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen können Sie Zeilen schnell entsprechend der in den jeweiligen Zellen angegebenen Anzahl vervielfältigen. Diese Lösung ist ideal für Benutzer, die solche sich wiederholenden Zeilenoperationen regelmäßig durchführen und einen visuelleren, anpassbaren Prozess benötigen. Kutools behält dabei das Layout und die Formatierung der ursprünglichen Tabelle bei und verringert so das Risiko unbeabsichtigter Fehler. Die Methode funktioniert unabhängig von Ihren VBA-Kenntnissen und steigert die Effizienz bei mittleren bis großen Bereichen erheblich.
- Klicken Sie auf Kutools>Einfügen>Doppelte Zeile/Spalten basierend auf Zellwert, um diese Funktion zu aktivieren;
- Wählen Sie anschließend die Option Zeilen kopieren und einfügen und geben Sie im Dialogfeld die Zellen für den Generierungsbereich und die Wiederholungen getrennt an. Bestätigen Sie Ihre Auswahl und klicken Sie auf OK.
Doppelte Zeile mithilfe einer Power Query-Transformation
Power Query bietet eine robuste, wiederholbare Lösung, um Zeilen basierend auf einem Spaltenwert zu vervielfältigen – ideal für größere Tabellen oder wenn Ihre Daten regelmäßig aktualisiert werden müssen. Mit diesem Tool erweitern Sie Zeilen entsprechend numerischer Werte ganz ohne Formeln oder Code. Diese Methode eignet sich besonders gut für Anwender, die einen visuell nachvollziehbaren, schrittweisen Prozess benötigen und bei künftigen Datenaktualisierungen maximale Wiederholbarkeit sicherstellen möchten.
1. Fügen Sie Ihre Daten einer Excel-Tabelle hinzu (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: Ersetzen Sie [D] durch Ihre tatsächliche Spaltenüberschrift. In diesem Beispiel wähle ich beispielsweise Vervielfältigungsanzahl und klicke auf die Schaltfläche Einfügen, um das Argument [D] zu ersetzen.)
List.Repeat({1}, [D])
4. Klicken Sie auf die Schaltfläche Erweitern neben der neuen benutzerdefinierten Spalte und wählen Sie In neue Zeilen erweitern.
5. Anschließend sehen Sie, dass die Daten entsprechend den Werten in Spalte D vervielfältigt wurden (siehe Screenshot):
6. Entfernen Sie bei Bedarf Hilfsspalten und klicken Sie auf Schließen & Laden, um die Daten in Excel zurückzugeben.
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