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.
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.
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.

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!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.