Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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?
doc aaneenschakelen per groep 1

Groeperen en samenvoegen met formules en filterfunctie

Groepeer en voeg samen met VBA-code

Groepeer en voeg samen met Advanced Combine Rowsgoed idee 3


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.
doc aaneenschakelen per groep 2

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.
doc aaneenschakelen per groep 3

3. Selecteer nu alle gegevensreeksen inclusief formules en klik op Data > Filter toevoegen Filter icons naar de gegevens.
doc aaneenschakelen per groep 4

4. Klik op het Filter icon controleer in de laatste formulekop Last selectievakje alleen in de vervolgkeuzelijst en klik op OK.
doc aaneenschakelen per groep 5

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


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:
doc aaneenschakelen per groep 7
doc aaneenschakelen per groep 8

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

doc aaneenschakelen per groep 9

4. druk op F5 -toets en selecteer het gegevensbereik dat u gebruikt in het popping-dialoogvenster.
doc aaneenschakelen per groep 10

5. klikken OK om de sleutelkolom te selecteren waarop u wilt groeperen.
doc aaneenschakelen per groep 11

6. klikken OK, nu wordt het resultaat getoond zoals hieronder:
doc aaneenschakelen per groep 12


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.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

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.
doc aaneenschakelen per groep 13

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.
doc aaneenschakelen per groep 14

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

doc aaneenschakelen per groep 15 doc pijl naar rechts doc aaneenschakelen per groep 16

4. klikken Ok. Het resultaat wordt als volgt weergegeven:
doc aaneenschakelen per groep 17

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


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.
kte tabblad 201905

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 voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    NADIA TSOULI · 7 months ago
    la formule excel détaillée plus haut ne fonctionne pas, il y a un problème
    =IF(A13=A12,C12&", "&B13,B13)

    • To post as a guest, your comment is unpublished.
      Sunny · 7 months ago
      Hi, could you repeat the qustion in English? This formula I have tried again, it is correct.