Wie kann man Zeilen basierend auf einem Spaltenwert schnell zusammenführen und dann einige Berechnungen in Excel durchführen?
Sie haben beispielsweise einen Datenbereich und eine Spalte enthält Duplikate. Jetzt möchten Sie Zeilen zusammenführen, die auf der Spalte A basieren (Duplikate), und dann einige Berechnungen für eine andere Spalte basierend auf den zusammengeführten Zeilen durchführen (siehe Abbildung):
In Excel gibt es keine schnelle Methode, um Zeilen basierend auf einem Spaltenwert zusammenzuführen, aber hier stelle ich die vor
Tricks, mit denen Sie doppelte Zeilen zusammenführen und dann summieren oder andere Berechnungen für eine andere Spalte durchführen können.
Führen Sie Zeilen basierend auf einer Spalte zusammen und summieren Sie die Werte mit Advanced Combine
Führen Sie Zeilen basierend auf einer Spalte zusammen und führen Sie dann andere Operationen für andere Spalten mit aus
Erweiterte Zeilen kombinieren
Führen Sie Zeilen basierend auf einer Spalte zusammen und summieren Sie die Werte mit VBA
Es gibt einen VBA-Code, mit dem Sie die doppelten Zeilen zusammenführen und dann weitere Spaltenwerte summieren können.
Durchsuchen und Bearbeiten mehrerer Excel-Arbeitsmappen / Word-Dokumente mit Registerkarten als Firefox, Chrome, Internet Explore 10! |
Möglicherweise kennen Sie mehrere Webseiten in Firefox / Chrome / IE und wechseln zwischen ihnen, indem Sie einfach auf die entsprechenden Registerkarten klicken. Hier unterstützt Office Tab eine ähnliche Verarbeitung, mit der Sie mehrere Excel-Arbeitsmappen oder Word-Dokumente in einem Excel- oder Word-Fenster durchsuchen und einfach durch Klicken auf deren Registerkarten zwischen diesen wechseln können. Klicken Sie kostenlos 30-Tages-Testversion von Office Tab! |
1. Drücken Sie F11 + Alt zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster, dann klicken Sie auf Insert > Modul und kopieren Sie den folgenden VBA-Code und fügen Sie ihn in den neuen ein Modul Fenster.
VBA: Zeilen basierend auf einem Spaltenwert 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 Sub
2. Drücken Sie F5 oder klicken Sie auf Führen Sie Klicken Sie auf die Schaltfläche, um die VBA auszuführen, und ein Dialogfeld zur Auswahl eines Datenbereichs wird angezeigt. siehe Screenshot:
3. Klicken Sie nach Auswahl eines Arbeitsbereichs auf OK. Jetzt wurden die Daten in der ersten Spalte zusammengeführt und die Werte in der zweiten Spalte summiert.
Note: Dieser VBA-Code kann beim Zusammenführen basierend auf der ersten Spalte und den Summenwerten in der zweiten Spalte nur korrekt funktionieren.
Führen Sie Zeilen basierend auf einer Spalte zusammen und summieren Sie die Werte mit Advanced Combine Rows
Wenn Sie mit VBA-Code nicht vertraut sind, können Sie den verwenden Erweiterte Zeilen kombinieren Funktion des Add-In-Tools für den dritten Teil - Kutools for Excel Um die doppelten Zeilen einfach und schnell zusammenzuführen, summieren Sie die Werte in einer anderen Spalte.
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Wählen Sie die Daten aus, die Sie verwenden möchten, und klicken Sie auf Kutoolen > Zusammenführen & Teilen > Erweiterte Zeilen kombinieren. Siehe Screenshot:
2. Wählen Sie dann im Popup-Dialogfeld die Spalte aus, auf der Sie andere Spalten zusammenführen möchten, und klicken Sie dann auf primär Geben Sie ein, klicken Sie auf eine andere Spalte und klicken Sie auf Berechnen Dann wählen Sie Sum.
Tipp: Wenn Ihr ausgewählter Bereich Überschriften enthält, überprüfen Sie Meine Daten haben Kopfzeilen, und prüfe Verwenden Sie formatierte Werte behält die Formatierung nach dem Zusammenführen bei.
3. Dann klick Ok. Jetzt wurden die Daten basierend auf der Primärspalte zusammengeführt, und eine andere wird zusammengefasst. Siehe Screenshot:
Führen Sie Zeilen basierend auf einer Spalte zusammen und führen Sie dann mit Advanced Combine Rows verschiedene Operationen für andere Spalten aus.
Erweiterte Zeilen kombinieren ist leistungsstark, da es nicht nur doppelte Zeilen in einer Spalte zusammenführen und dann eine andere Spalte summieren kann, sondern auch doppelte Zeilen in einer Spalte zusammenführen und dann andere Operationen für andere Spalten ausführen kann.
Angenommen, ich habe einen Datenbereich wie im folgenden Screenshot gezeigt und möchte sowohl Werte in Spalte B als auch Summenwerte in Spalte C basierend auf Spalte A kombinieren.
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Datenbereich auswählen und klicken Kutoolen > Zusammenführen & Teilen > Erweiterte Zeilen kombinieren. Siehe Screenshot:
2. In dem Zeilen basierend auf Spalte kombinieren Dialog, machen Sie diese:
(1) Klicken Sie auf die Spalte, auf der Sie basierend kombinieren möchten, und klicken Sie auf Primärschlüssel;
(2) Klicken Sie auf die Spalte, in der Sie Daten kombinieren möchten, und klicken Sie auf KombinierenWählen Sie dann ein Trennzeichen aus der Liste aus, das Sie benötigen.
(3) Klicken Sie auf die Spalte, in der Sie Werte summieren möchten, und klicken Sie auf Berechnen, und wählen Sie Sum.
3 Klicken Ok. Jetzt können Sie das Ergebnis wie folgt sehen:
Mit der Erweiterte Zeilen kombinieren Mit dieser Funktion können Sie auch Zeilen basierend auf einer Spalte zusammenführen und dann die ersten oder letzten Daten in anderen Spalten zählen, mitteln, halten.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!