Wie können Sie Zeilen in Excel schnell nach dem Wert einer Spalte zusammenführen und danach Berechnungen durchführen?
Beispielsweise verfügen Sie über einen Datenbereich, bei dem eine Spalte Duplikate enthält. Nun möchten Sie die Zeilen basierend auf Spalte A (enthält Duplikate) zusammenführen und dann Berechnungen für eine andere Spalte anhand der zusammengeführten Zeilen durchführen, wie im Screenshot gezeigt:
In Excel gibt es keine direkte Funktion, um Zeilen basierend auf dem Wert einer Spalte automatisch zusammenzuführen – doch mit einigen cleveren Tricks können Sie doppelte Zeilen zusammenführen und danach eine Summe oder andere Berechnungen für eine andere Spalte durchführen.
| Ursprungsdaten | Zusammenführen und summieren |
 |  |
Zeilen basierend auf einer Spalte zusammenführen und Werte mit Erweitertes Kombinieren summieren
Zeilen basierend auf einer Spalte zusammenführen und unterschiedliche Operationen für andere Spalten mit
Erweiterte Zeilen zusammenführen
Zeilen basierend auf einer Spalte zusammenführen und Werte mit VBA summieren
Mit einem VBA-Code können Sie doppelte Zeilen zusammenführen und anschließend die Werte einer anderen Spalte summieren.
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden VBA-Code in das neue Modul-Fenster ein.
VBA: Zeilen basierend auf dem Wert einer Spalte zusammenführen
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. Drücken Sie F5 oder klicken Sie auf die Schaltfläche Ausführen, um das VBA-Skript auszuführen. Danach erscheint ein Dialogfeld, in dem Sie einen Datenbereich zum Bearbeiten auswählen können. Siehe Screenshot:
3. Nachdem Sie einen Arbeitsbereich ausgewählt haben, klicken Sie auf OK. Die Daten wurden nun nach der ersten Spalte zusammengeführt und die Werte in der zweiten Spalte summiert.
Hinweis: Dieser VBA-Code funktioniert nur korrekt, wenn basierend auf der ersten Spalte zusammengeführt und die Werte in der zweiten Spalte summiert werden.
Zeilen basierend auf einer Spalte zusammenführen und Werte mit Erweiterte Zeilen zusammenführen summieren
Wenn Sie mit VBA-Code nicht vertraut sind, können Sie die Erweiterte Zeilen zusammenführen-Funktion des Drittanbieter-Add-in-Tools – Kutools für Excel – nutzen, um doppelte Zeilen einfach und schnell zusammenzuführen und die Werte in einer anderen Spalte zu summieren.
1. Wählen Sie die gewünschten Daten aus und klicken Sie auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen. Siehe Screenshot:
2. Wählen Sie im erscheinenden Dialogfeld die Spalte aus, nach der Sie andere Spalten zusammenführen möchten, und klicken Sie auf Primärschlüssel. Anschließend wählen Sie eine weitere Spalte aus, klicken auf Berechnen und dann auf Summe.
Tipp: Wenn Ihr ausgewählter Bereich Überschriften enthält, aktivieren Sie Titel einschließen und Formatierte Werte verwenden, um die Formatierung nach dem Zusammenführen beizubehalten.
3. Klicken Sie anschließend auf OK. Die Daten wurden nun basierend auf der Primärschlüsselspalte zusammengeführt und die Werte einer weiteren Spalte summiert. Siehe Screenshot:
Zeilen basierend auf einer Spalte zusammenführen und dabei unterschiedliche Operationen für andere Spalten mithilfe der Funktion „Erweiterte Zeilen zusammenführen“ durchführen.
Erweiterte Zeilen zusammenführen ist leistungsstark: Es kann nicht nur doppelte Zeilen in einer Spalte zusammenführen und eine andere Spalte summieren, sondern auch doppelte Zeilen in einer Spalte zusammenführen und für andere Spalten jeweils unterschiedliche Operationen durchführen.
Angenommen, Sie haben einen Datenbereich wie im folgenden Screenshot gezeigt und möchten die Werte in Spalte B zusammenführen sowie die Werte in Spalte C basierend auf Spalte A summieren.
Kutools für Excel – Ausgestattet mit über 300 unverzichtbaren Werkzeugen für Excel. Erledigen Sie Ihre Excel-Aufgaben schneller, einfacher und effizienter.Jetzt herunterladen!
1. Wählen Sie den Bereich „Daten auswählen“ aus und klicken Sie auf Kutools > Vereinigen/Aufteilen > Erweiterte Zeilen zusammenführen. Siehe Screenshot:
2. Führen Sie im Dialogfeld Zeilen kombinieren basierend auf Spalte Folgendes durch:
(1) Klicken Sie auf die Spalte, nach der Sie kombinieren möchten, und klicken Sie auf Primärschlüssel;
(2) Klicken Sie auf die Spalte, deren Daten Sie kombinieren möchten, und klicken Sie auf Kombinieren, und wählen Sie dann ein gewünschtes Trennzeichen aus der Liste aus;
(3) Klicken Sie auf die Spalte, deren Werte Sie summieren möchten, dann auf Berechnen und wählen Sie Summe.
3. Klicken Sie auf OK. Das Ergebnis sieht nun wie folgt aus:
Mit der Erweiterte Zeilen zusammenführen-Funktion können Sie Zeilen basierend auf einer Spalte zusammenführen und anschließend andere Spalten zählen, mitteln oder den ersten bzw. letzten Datensatz beibehalten.
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