3 methoden om rijen te combineren in één cel op basis van groep in Excel

Het combineren van meerdere rijen gegevens in één cel op basis van een groep is een veelvoorkomende behoefte bij het werken met gestructureerde datasets in Excel. Bijvoorbeeld, je wilt misschien alle namen die bij dezelfde klas horen samenvoegen in één cel. Dit artikel biedt stapsgewijze instructies met verschillende methoden en optimalisaties voor verschillende niveaus van expertise en gebruiksscenario's.

• Groeperen en samenvoegen met formules en Filter-functie
• Eenvoudig groeperen en samenvoegen met Kutools voor Excel
• Groeperen en samenvoegen met VBA-code

Groeperen en samenvoegen met formules en Filter-functie

Je kunt Excel's formules samen met de "Filter"-functie gebruiken om rijen te combineren op basis van één kolom. Volg de volgende stappen.

1. Voer in een nieuwe kolom de volgende formule in om de namen samen te voegen en druk op "Enter". Sleep omlaag om deze toe te passen door de kolombreedte.

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

   
2. Voer in een nieuwe kolom de volgende formule in, druk op "Enter" en sleep de formule naar beneden.

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

   
3. Selecteer het hele gegevensbereik inclusief de hulpkolommen. Selecteer "Gegevens" > "Filter" om filterpictogrammen aan de gegevens toe te voegen.
   
4. Klik op het "Filterpictogram" in de laatste hulpkolom, vink alleen het vakje "Laatste" aan en klik op "OK".
   

Nu wordt het resultaat hieronder weergegeven, je kunt de laatste hulpkolom verwijderen als je deze niet meer nodig hebt.

Eenvoudig groeperen en samenvoegen met Kutools voor Excel

"Kutools voor Excel" biedt een eenvoudige en efficiënte oplossing - "Geavanceerd samenvoegen van rijen", waarmee je gegroepeerde rijen in slechts een paar klikken kunt samenvoegen in één cel. Het voegt automatisch aangepaste scheidingstekens toe zoals komma's, spaties of regeleinden om aan diverse dataweergavebehoeften te voldoen.

1. Markeer de cellen die uw gegevens bevatten. Ga naar "Kutools" > "Samenvoegen & Opsplitsen" > "Geavanceerd samenvoegen van rijen".
2. In het vensterGeavanceerd samenvoegen van rijen configureer als volgt:
   1. Klik op de kolom waarop je de rijen wilt combineren en stel deze in als "primaire sleutel".
   2. Voor de kolom die je wilt samenvoegen, zoals de "Namen" kolom in dit geval, specificeer een scheidingsteken in de sectie "Samenvoegen" onder het veld "Berekening" voor deze kolom.
   3. Klik op de knop "OK".
   4. 

Resultaat: Kutools zal automatisch gegevens samenvoegen op basis van de groep in een enkele cel met een specifiek scheidingsteken.

Groeperen en samenvoegen met VBA-code

Je kunt ook VBA gebruiken om rijen dynamisch te combineren op basis van een groep.

1. Druk op "Alt" + "F11" om het venster "Microsoft Visual Basic for Applications" te openen.
2. In de code-editor, klik op "Tools" > "References" om het dialoogvenster "References" te openen, vink "Microsoft Scripting Runtime" aan en sla de wijzigingen op.
   
3. Ga naar "Insert" > "Module" en plak de volgende VBA-code in het Module-venster.
   VBA: Rijen combineren in éé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 de toetsF5 om het script uit te voeren en volg eventuele prompts om je gegevensbereik te selecteren en de belangrijkste kolommen op te geven.
   

Het resultaat wordt hieronder weergegeven:

Bij het werken met gegevens in Excel is het groeperen en samenvoegen van cellen een veelvoorkomende maar complexe taak. Afhankelijk van je behoeften en tools kun je kiezen uit verschillende methoden om dit doel te bereiken. Selecteer het meest geschikte gereedschap en methode op basis van je specifieke behoeften en voorkeuren om je Excel-werk efficiënter en handiger te maken. Als je geïnteresseerd bent in het verkennen van meer Excel-tips en -trucs, biedt onze website duizenden handleidingen om je te helpen Excel te beheersen.

Demo: Groeperen en samenvoegen met Geavanceerd samenvoegen van rijen van Kutools voor Excel