3 Methoden, um Zeilen basierend auf Gruppen in einer Zelle in Excel zusammenzuführen

Das Zusammenführen mehrerer Datenzeilen in eine einzige Zelle basierend auf einer Gruppe ist eine häufige Anforderung bei der Arbeit mit strukturierten Datensätzen in Excel. Zum Beispiel möchten Sie möglicherweise alle Namen, die mit derselben Klasse verknüpft sind, in einer Zelle zusammenfassen. Dieser Artikel bietet Schritt-für-Schritt-Anweisungen unter Verwendung verschiedener Methoden und Optimierungen für unterschiedliche Erfahrungsstufen und Anwendungsfälle.

• Gruppieren und Verketten mit Formeln und Filterfunktion
• Gruppieren und Verketten mit Kutools für Excel ganz einfach
• Gruppieren und Verketten mit VBA-Code

Gruppieren und Verketten mit Formeln und Filterfunktion

Sie können Excel-Formeln zusammen mit der "Filter"-Funktion verwenden, um Zeilen basierend auf einer Spalte zu verketten. Gehen Sie wie folgt vor.

1. Geben Sie in einer neuen Spalte die folgende Formel ein, um die Namen zu verketten, und drücken Sie "Eingabe". Ziehen Sie nach unten, um sie über den Spaltenbereich anzuwenden.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. Geben Sie in einer neuen Spalte die folgende Formel ein, drücken Sie "Eingabe", und ziehen Sie die Formel nach unten.

   =IF(A2<>A3,"Last","")

   
3. Wählen Sie den gesamten Datenbereich einschließlich der Hilfsspalten aus. Wählen Sie "Daten" > "Filter", um Filter-Symbole zu den Daten hinzuzufügen.
   
4. Klicken Sie auf das "Filter-Symbol" in der letzten Hilfsspalte, aktivieren Sie nur das Kontrollkästchen "Letzte", und klicken Sie auf "OK".
   

Jetzt wird das Ergebnis wie folgt angezeigt. Sie können die letzte Hilfsspalte entfernen, wenn Sie sie nicht mehr benötigen.

Gruppieren und Verketten mit Kutools für Excel ganz einfach

"Kutools für Excel" bietet eine einfache und effiziente Lösung - "Erweiterte Zeilen zusammenführen", mit der Sie gruppierte Zeilen mit wenigen Klicks in eine einzelne Zelle zusammenführen können. Es fügt automatisch benutzerdefinierte Trennzeichen wie Kommas, Leerzeichen oder Zeilenumbrüche hinzu, um unterschiedliche Anforderungen an die Datendarstellung zu erfüllen.

1. Markieren Sie die Zellen, die Ihre Daten enthalten. Navigieren Sie zu "Kutools" > "Zusammenführen & Aufteilen" > "Erweiterte Zeilen zusammenführen".
2. Im Fenster "Erweiterte Zeilen zusammenführen" konfigurieren Sie bitte wie folgt:
   1. Klicken Sie auf die Spalte, deren Zeilen Sie basierend darauf kombinieren möchten, und setzen Sie diese als "Primärschlüssel".
   2. Für die Spalte, die Sie verketten möchten, beispielsweise die "Namen"-Spalte in diesem Fall, legen Sie im Abschnitt "Konsolidieren" unter dem Feld "Berechnung" für diese Spalte ein Trennzeichen fest.
   3. Klicken Sie auf die Schaltfläche "OK".
   4. 

Ergebnis: Kutools wird die Daten automatisch basierend auf der Gruppe in eine einzelne Zelle mit einem bestimmten Trennzeichen zusammenführen.

Gruppieren und Verketten mit VBA-Code

Sie können auch VBA verwenden, um Zeilen dynamisch basierend auf einer Gruppe zu verketten.

1. Drücken Sie die Tasten "Alt" + "F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.
2. Klicken Sie im Code-Editor auf "Extras" > "Referenzen", um das Dialogfeld "Referenzen" zu öffnen, aktivieren Sie "Microsoft Scripting Runtime", und speichern Sie die Änderungen.
   
3. Gehen Sie zu "Einfügen" > "Modul" und fügen Sie den folgenden VBA-Code in das Modulfenster ein.
   VBA: Zeilen basierend auf Gruppen in eine Zelle verketten

   Sub ConcatenateCellsIfSameValues()
   'UpdatebyExtendoffice20180201
       Dim I As Long
       Dim J As Long
       Dim xRg As Range
       Dim xRgKey As Range
       Dim xRgVal As Range
       Dim xStr As String
       Dim xDic As New Dictionary
       On Error Resume Next
       Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
       If xRg Is Nothing Then Exit Sub
       Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
       If xRgKey Is Nothing Then
           MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
       End If
       Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
       For I = 1 To xRgKey.Count
           If I > xRgKey.Count Then Exit For
           xStr = ""
           For J = 1 To xRgVal.Columns.Count
               xStr = xStr & " " & xRgVal(I, J)
           Next
           If xDic.Exists(xRgKey(I).Text) Then
               xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
               xRgKey(I).EntireRow.Delete
               I = I - 1
          Else
               xDic.Add xRgKey(I).Text, xStr
           End If
       Next
       For I = 1 To xRgVal.Count
           xRgVal(I).Value = xDic(xRgKey(I).Text)
       Next
   End Sub

   
4. Drücken Sie die Taste "F5" , um das Skript auszuführen, und folgen Sie allen Aufforderungen, um Ihren Datenbereich auszuwählen und Schlüsselspalten anzugeben.
   

Das Ergebnis wird wie folgt angezeigt:

Beim Arbeiten mit Daten in Excel ist das Gruppieren und Zusammenführen von Zellen eine häufige, aber komplexe Aufgabe. Abhängig von Ihren Bedürfnissen und Werkzeugen können Sie aus mehreren Methoden wählen, um dieses Ziel zu erreichen. Wählen Sie das am besten geeignete Werkzeug und die beste Methode entsprechend Ihren spezifischen Anforderungen und Präferenzen, um Ihre Excel-Arbeit effizienter und komfortabler zu gestalten. Wenn Sie daran interessiert sind, weitere Excel-Tipps und -Tricks zu erkunden, bietet unsere Website Tausende von Tutorials, um Ihnen zu helfen, Excel zu beherrschen.

Demo: Gruppieren und Verketten mit Erweiterte Zeilen zusammenführen von Kutools für Excel