Wie verkette ich Zeilen in einer Zelle basierend auf einer Gruppe in Excel?

Hier ist ein Bereich von zwei Spalten, eine ist die Klassenliste und die andere ist die Liste der Schülernamen. Wie Sie sehen, sind einige Schüler in derselben Klasse, andere nicht. Jetzt möchte ich die Schüler derselben Klasse in einer Zelle zusammenfassen (siehe Abbildung unten). Wie kann ich in Excel schnell damit umgehen?

Gruppieren und verketten Sie mit Formeln und Filterfunktionen

Gruppieren und verketten Sie mit VBA-Code

Gruppieren und verketten Sie mit Advanced Combine Rows

Gruppieren und verketten Sie mit Formeln und Filterfunktionen

In Excel können Sie Formeln auf verkettete Zeilen basierend auf einer Spalte anwenden und dann die Filterfunktion verwenden, um nur das Ergebnis anzuzeigen.

Hinweis: Sie müssen Ihre Daten nach der Klasse sortieren, bevor Sie die folgenden Schritte ausführen können.

1. Geben Sie diese Formel in eine leere Zelle neben dem Datenbereich ein, z. B. C13 =IF(A13=A12,C12&", "&B13,B13), Drücken Sie Enter Geben Sie die Formel in die Zellen ein und füllen Sie sie mit einem Ziehpunkt.

In der Formel sind A13 die ersten Daten in der Spalte "Klasse", B13 die ersten Daten in der Spalte "Name", "," das Trennzeichen zur Begrenzung des verketteten Inhalts.

2. Geben Sie dann in die nächste Spalte, D13, diese Formel ein =IF(A13<>A14,"Last","") Ziehen Sie den Füllpunkt nach unten, um die Formel auf die benötigten Zellen anzuwenden.

3. Wählen Sie nun den gesamten Datenbereich einschließlich der Formeln aus und klicken Sie auf Daten und Zahlen > Filter hinzufügen Filter icons zu den Daten.

4. Klicken Sie auf die Filter icon Überprüfen Sie im letzten Formelkopf Last Aktivieren Sie das Kontrollkästchen nur in der Dropdown-Liste und klicken Sie auf OK.

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

Gruppieren und verketten Sie mit VBA-Code

Hier ist ein VBA-Code, der auch diesen Job verarbeiten kann.

1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic for Applications Fenster.

2. Klicken Sie dann im Fenster auf Tools > References ermöglichen References Dialog und überprüfen Microsoft Scripting Runtime. Siehe Screenshot:

3 Klicken OKUnd klicken Sie auf Insert > Module im VBA-Fenster und kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das ein Module Skript. Siehe Screenshot:

VBA: Verketten Sie Zeilen basierend auf der Gruppe zu einer Zelle

  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 F5 Drücken Sie die Taste und wählen Sie den Datenbereich aus, den Sie im Popping-Dialogfeld verwenden.

5 Klicken OK um die Schlüsselspalte auszuwählen, nach der Sie gruppieren möchten.

6 Klicken OKJetzt wird das Ergebnis wie folgt angezeigt:

Gruppieren und verketten Sie mit Advanced Combine Rows

Hier ist ein Dienstprogramm in Kutools for Excel, Advanced Combine Reihen, die Zeilen kombinieren oder Berechnungen basierend auf einer Schlüsselspalte in Excel durchführen können.

Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor:（Kutools für Excel jetzt kostenlos herunterladen!)

1. Wählen Sie den von Ihnen verwendeten Datenbereich aus und klicken Sie auf Kutools > Zusammenführen & Teilen > Erweiterte Zeilen kombinieren.

2. In dem Advanced Combine Rows Wählen Sie im Fenster die Spalte aus, auf der die Zeilen kombiniert werden sollen, und klicken Sie auf Primary Key um es als Schlüsselspalte festzulegen.

3. Wählen Sie die Spalte aus, die Sie kombinieren möchten, und klicken Sie auf Combineund wählen Sie ein Trennzeichen aus, mit dem Sie die kombinierten Inhalte trennen.

4 Klicken Ok. Das Ergebnis wird wie folgt angezeigt:

Hinweis: Bevor Sie das Dienstprogramm anwenden, sollten Sie eine Kopie der Originaldaten haben.

  Zur Demo

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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 täglich Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...