Wie kombiniere ich mehrere Zeilen zu einer basierend auf Duplikaten in Excel?
Möglicherweise haben Sie die folgenden Screenshot-Daten. In der Spalte A des Produktnamens befinden sich einige doppelte Elemente. Jetzt müssen Sie die doppelten Einträge in Spalte A entfernen, aber die entsprechenden Werte in Spalte B kombinieren, siehe Screenshots:
Haben Sie einige effektive Möglichkeiten, um diese Aufgabe zu lösen?
Kombinieren Sie mehrere doppelte Zeilen mit VBA-Code zu einer
Kombinieren Sie mehrere doppelte Zeilen zu einem Kutools für Excel
Kombinieren Sie mehrere doppelte Zeilen und summieren / mitteln Sie die Werte mit Kutools for Excel
Kombinieren Sie mehrere doppelte Zeilen mit VBA-Code zu einer
Mit dem folgenden VBA-Code können Sie doppelte Zeilen basierend auf dem Wert von Spalte A kombinieren. Der folgende Code wird nur für zwei Spalten angewendet. Wenn Sie also zwei Spaltendaten haben, wird dieser Code einen Gefallen für Sie tun.
1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
VBA-Code: Kombinieren Sie mehrere Zeilen zu einer
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. Dann drücken F5 Wenn Sie die Taste drücken, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, einen Bereich auszuwählen, den Sie kombinieren müssen. Siehe Screenshot:
4. Und dann klick OKwurden die Werte in Spalte B zu einem Datensatz zusammengefasst und durch Leerzeichen getrennt.
Anmerkungen:
1. Dieser Code kann die Originaldaten zerstören. Wenn Sie ihn verwenden, sollten Sie zuerst die Daten sichern.
2. Dieser Code wird nur für zwei Spalten angewendet. Wenn Sie mehr als zwei Spalten haben, kombiniert dieser Code nur die ersten beiden Spalten und entfernt andere Spaltendaten. Wenn Sie diesen Code verwenden, müssen Sie vorsichtig sein.
Kombinieren Sie mehrere doppelte Zeilen zu einem Kutools für Excel
Gibt es eine praktische und sichere Möglichkeit, diesen Job zu beenden, da der obige Code einige Einschränkungen und Risiken aufweist? Mit Kutools for Excel Erweiterte Zeilen kombinieren Mit diesem Dienstprogramm können Sie schnell mehrere doppelte Zeilen in den Spalten entfernen, auf denen Sie basieren, und einige Berechnungen für andere Datensätze in entsprechenden Zellen zusammenführen oder durchführen.
Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt.
Gehen Sie nach der Installation von Kutools for Excel wie folgt vor:
1. Wählen Sie die Bereichsdaten aus, die Sie Duplikate kombinieren möchten.
2. Dann klick Kutoolen > Inhaltskonverter > Erweiterte Zeilen kombinieren. Siehe Screenshot:
3. In dem Erweiterte Zeilen kombinieren Wählen Sie im Dialogfeld den Spaltennamen als Schlüsselspalten aus, auf deren Grundlage Sie Werte kombinieren möchten, und klicken Sie dann auf Schlüsselspalten. Siehe Screenshot:
4. Klicken Sie dann weiter auf die Spalte, deren Werte Sie zu einem Datensatz zusammenfassen müssen, und klicken Sie dann auf Operationen kombinieren und wählen Sie Nur mit Trennzeichen kombinierenund wählen Sie ein Trennzeichen aus, um die kombinierten Werte von der rechten Liste zu trennen. Siehe Screenshot:
5. Klicken Sie nach Abschluss der Einstellungen auf OKund Ihre Daten werden basierend auf den Schlüsselspalten zusammengeführt und durch Trennzeichen getrennt.
Hinweis: Wenn Sie die Operationen für die restlichen Spalten nicht festlegen müssen, behalten Sie einfach den Standardstatus bei.
Kombinieren Sie mehrere doppelte Zeilen und summieren / mitteln Sie die Werte mit Kutools for Excel
Mit diesem multifunktionalen Erweiterte Zeilen kombinieren Dienstprogramm, können Sie doppelte Zeilen kombinieren und auch einige Berechnungen für die Werte durchführen.
1. Wählen Sie die Bereichsdaten aus, die Sie Duplikate kombinieren möchten.
2. Geh zum Erweiterte Zeilen kombinieren Dialogbox;
- (1.) Wählen Sie einen Spaltennamen als Schlüsselspalte aus, auf der Sie andere Spaltenwerte berechnen möchten, und klicken Sie dann auf Schlüsselspalten;
- (2.) Wählen Sie die Spalte aus, in der Sie einige Berechnungen für die Werte durchführen möchten, und klicken Sie dann auf Operationen kombinieren > Kombinieren berechnenWählen Sie dann einen Berechnungstyp aus, den Sie benötigen. In diesem Fall wähle ich Sum. Siehe Screenshot:
3. Wenn Sie die Operationen für die restlichen Spalten nicht festlegen müssen, behalten Sie einfach den Standardstatus bei und klicken Sie auf OKund die doppelten Werte in Spalte A werden zusammengeführt und die entsprechenden Werte in Spalte B werden addiert. Siehe Screenshots:
Anmerkungen:
1. Wenn Sie überprüfen Meine Daten haben Kopfzeilen Bei dieser Option werden Ihre Überschriften (die erste Zeile) des Bereichs ignoriert, wenn Sie dieses Dienstprogramm anwenden.
2. Verwenden Sie formatierte Werte: Die Formatierung der Werte bleibt nach dem Kombinieren der doppelten Zellen erhalten.
3. Dieses Dienstprogramm steht nicht zum Filtern von Daten zur Verfügung.
Klicken Sie hier, um mehr über diese Funktion "Erweiterte Zeilen kombinieren" zu erfahren.
In Verbindung stehender Artikel:
Kombinieren Sie doppelte Zeilen und summieren Sie die Werte
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!