Hoe rijen samen te voegen tot één cel op basis van een groep in Excel?

Hier is een reeks van twee kolommen: de ene is de klassenlijst en de andere is de lijst met leerlingnamen. Zoals u ziet, zitten sommige studenten in dezelfde klas, andere niet. Nu wil ik de studenten in dezelfde klas in één cel samenvoegen, zoals onderstaand screenshot laat zien, hoe kan ik dit snel in Excel afhandelen?

Groeperen en samenvoegen met formules en filterfunctie

Groepeer en voeg samen met VBA-code

Groepeer en voeg samen met Advanced Combine Rows

Groeperen en samenvoegen met formules en filterfunctie

In Excel kunt u formules toepassen op aaneengeschakelde rijen op basis van één kolom en vervolgens de filterfunctie gebruiken om alleen het resultaat weer te geven.

Opmerking:: U moet uw gegevens sorteren op klas voordat u de stappen volgt.

1. Typ deze formule in een lege cel naast het gegevensbereik, bijvoorbeeld C13 =IF(A13=A12,C12&", "&B13,B13), druk op Enter toets en vul de formule in cellen met de slepende vulgreep.

In de formule is A13 de eerste gegevens in de kolom "Klasse", B13 is de eerste gegevens in de kolom "Naam", "," is het scheidingsteken om de samengevoegde inhoud af te bakenen.

2. Typ deze formule vervolgens in de volgende kolom, D13 =IF(A13<>A14,"Last","") en sleep de vulgreep omlaag om de formule toe te passen op de cellen die u nodig hebt.

3. Selecteer nu alle gegevensreeksen inclusief formules en klik op Data > Filter toevoegen Filter icons naar de gegevens.

4. Klik op het Filter icon controleer in de laatste formulekop Last selectievakje alleen in de vervolgkeuzelijst en klik op OK.

Nu wordt het resultaat weergegeven zoals hieronder, u kunt de laatste hulpkolom verwijderen als u deze nooit nodig heeft.

Groepeer en voeg samen met VBA-code

Hier is een VBA-code die deze taak ook aankan.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications venster.

2. Klik vervolgens in het venster op Tools > References in staat te stellen References dialoogvenster en vink aan Microsoft Scripting Runtime. Zie screenshot:

3. klikken OKen klik Insert > Module in VBA-venster en kopieer en plak onder VBA-code naar het Module script. Zie screenshot:

VBA: rijen samenvoegen tot één cel op basis van groep

  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. druk op F5 -toets en selecteer het gegevensbereik dat u gebruikt in het popping-dialoogvenster.

5. klikken OK om de sleutelkolom te selecteren waarop u wilt groeperen.

6. klikken OK, nu wordt het resultaat getoond zoals hieronder:

Groepeer en voeg samen met Advanced Combine Rows

Hier is een hulpprogramma in Kutools for Excel, Advanced Combine Rijen, die rijen kan combineren of berekeningen kan uitvoeren op basis van een sleutelkolom in Excel.

Na het installeren van Kutools voor Excel, doe het als volgt:（Download nu Kutools voor Excel!)

1. Selecteer het gegevensbereik dat u gebruikt en klik op Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen.

2. In de Advanced Combine Rows venster, kies de kolom waarop u rijen wilt combineren op basis van, en klik op Primary Key om het in te stellen als sleutelkolom.

3. Selecteer de kolom die u wilt combineren en klik op Combineen kies een scheidingsteken dat u gebruikt om de gecombineerde inhoud te scheiden.

4. klikken Ok. Het resultaat wordt als volgt weergegeven:

Opmerking:: Voordat u het hulpprogramma toepast, kunt u beter een kopie van de originele gegevens hebben.

  DEMO

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...