Wie kombiniert man mehrere Zeilen mit Duplikaten in Excel zu einer einzigen Zeile?
Ihre Daten könnten wie im folgenden Screenshot aussehen: In Spalte A (Produktname) befinden sich einige doppelte Einträge. Sie möchten diese Duplikate in Spalte A entfernen, dabei jedoch die zugehörigen Werte aus Spalte B zusammenführen. Siehe Screenshots:
 |  |  |
Kennen Sie effektive Methoden, um diese Aufgabe zu meistern?
Mehrere Doppelte Zeile mithilfe von VBA-Code zu einer zusammenfassen
Mehrere Doppelte Zeile zu einer Kutools für Excel zusammenfassen
Mehrere Doppelte Zeile zusammenfassen und die Werte summieren/mitteln mit Kutools für Excel
Mehrere Doppelte Zeile mithilfe von VBA-Code zu einer zusammenfassen
Der folgende VBA-Code hilft Ihnen, doppelte Zeilen basierend auf den Werten in Spalte A zusammenzufassen – allerdings nur für Daten aus zwei Spalten. Wenn Ihre Tabelle genau zwei Spalten umfasst, ist dieser Code ideal für Sie.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Mehrere Zeilen zu einer zusammenfassen
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die Taste F5, woraufhin ein Eingabefeld erscheint, in dem Sie den Bereich auswählen, der zusammengefasst werden soll. Siehe Screenshot:
4. Klicken Sie dann auf OK. Die Werte in Spalte B wurden nun zu einem Datensatz zusammengefasst und durch Leerzeichen getrennt.
Hinweise:
1. Dieser Code kann Ihre Originaldaten beschädigen – erstellen Sie daher unbedingt eine Sicherungskopie, bevor Sie ihn verwenden.
2. Dieser Code gilt ausschließlich für zwei Spalten. Bei mehr als zwei Spalten fasst er lediglich die ersten beiden zusammen und löscht sämtliche Daten in den übrigen Spalten – verwenden Sie ihn daher mit äußerster Vorsicht.
Mehrere Doppelte Zeile zu einer Kutools für Excel zusammenfassen
Da der obige Code gewisse Einschränkungen und Risiken mit sich bringt, gibt es eine praktische und sichere Alternative: Mit dem Kutools für Excel-Erweiterte Zeilen zusammenführen-Tool können Sie schnell mehrere doppelte Zeilen in den von Ihnen festgelegten Spalten entfernen und andere Datensätze entsprechend zusammenführen oder berechnen.
Kutools für Excel umfasst mehr als 300 nützliche Excel-Tools – testen Sie es jetzt kostenlos und ohne Einschränkungen für 30 Tage! Jetzt herunterladen.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:
1. Wählen Sie den Datenbereich aus, dessen Duplikate Sie zusammenführen möchten.
2. Klicken Sie dann auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen.
3. Wählen Sie im Dialogfeld Erweiterte Zeilen zusammenführen den Spaltennamen als Schlüsselspalte aus, auf dessen Grundlage Sie Werte zusammenführen möchten, und klicken Sie dann auf Schlüsselspalte.
4. Wählen Sie anschließend die Spalte aus, deren Werte Sie zu einem Datensatz zusammenführen möchten, klicken Sie auf Konsolidierungstyp und wählen Sie Nur mit Trennzeichen zusammenführen. Anschließend legen Sie in der rechten Liste das gewünschte Trennzeichen für die zusammengeführten Werte fest. Siehe Screenshot:
5. Nach Abschluss der Einstellungen klicken Sie auf OK. Ihre Daten werden nun basierend auf der Schlüsselspalte zusammengeführt und durch die festgelegten Trennzeichen getrennt.
Hinweis: Wenn Sie für die übrigen Spalten keine Aktionen festlegen möchten, lassen Sie diese einfach im Standardzustand.
Mehrere Doppelte Zeile zusammenführen und die Werte summieren/mitteln mit Kutools für Excel
Mit diesem multifunktionalen Erweiterte Zeilen zusammenführen-Tool können Sie doppelte Zeilen zusammenführen und gleichzeitig Berechnungen für die Werte durchführen.
1. Wählen Sie den Datenbereich aus, dessen Duplikate Sie zusammenführen möchten.
2. Öffnen Sie das Dialogfeld Erweiterte Zeilen zusammenführen;
- (1.) Wählen Sie einen Spaltennamen als Schlüsselspalte, auf dessen Grundlage Sie die Werte anderer Spalten berechnen möchten, und klicken Sie anschließend auf Schlüsselspalte;
- (2.) Wählen Sie die Spalte aus, für deren Werte Sie Berechnungen durchführen möchten, und klicken Sie dann auf Konsolidierungstyp > Kombiniert berechnen. Anschließend wählen Sie den gewünschten Berechnungstyp aus – in diesem Fall Summe. Siehe Screenshot:
3. Falls Sie für die übrigen Spalten keine Operationen festlegen möchten, belassen Sie diese im Standardzustand und klicken Sie auf OK. Die doppelten Werte in Spalte A werden zusammengeführt und ihre entsprechenden Werte in Spalte B addiert. Siehe Screenshots:
 | |  |
Hinweise:
1. Wenn Sie die Option Titel einschließen aktivieren, werden die Kopfzeilen (also die erste Zeile) des Bereichs bei der Anwendung dieses Tools ignoriert.
2. Formatierte Werte verwenden: Die Formatierung der Werte bleibt nach dem Zusammenführen doppelter Zellen erhalten.
3. Dieses Tool lässt sich nicht auf gefilterte Daten anwenden.
Klicken Sie hier, um mehr über diese erweiterte Funktion zum Zusammenführen von Zeilen zu erfahren.
Verwandter Artikel:
Doppelte Zeile zusammenführen und die Werte summieren
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