Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe rijen in een cel samenvoegen op basis van de groep in Excel?

Hier is een bereik van twee kolommen, één is de klassenlijst en de andere is de lijst met cursistenamen. Zoals je ziet, zitten sommige studenten in dezelfde klas, andere niet. Nu wil ik de studenten in dezelfde klas samenvoegen in één cel, zoals onderstaand screenshot laat zien, hoe kan ik het snel verwerken in Excel?
doc concatenate per groep 1

Groeperen en samenvoegen met formules en filterfunctie

Groeperen en samenvoegen met VBA-code

Groepeer en voeg samen met Advanced Combine Rowsgoed idee3

Gemakkelijk kolommen of rijen combineren zonder gegevens te verliezen in Excel

Stel dat u werkt met een werkblad dat meerdere dubbele records bevat, en nu moet u de rijen combineren / samenvoegen op basis van dezelfde waarde en een aantal berekeningen uitvoeren, zoals som, gemiddelde, telling van de dubbele rijen. Hiermee Geavanceerd Combineer rijen of Kutools for Excel, kunt u snel dezelfde waarden / dezelfde gegevens of dubbele rijen combineren in de juiste cellen. Klik voor gratis proefperiode van 60 dagen!
doc geavanceerde combineer rijen
Kutools voor Excel: met meer dan 200 handige Excel-invoegtoepassingen, gratis om zonder beperkingen in 60-dagen te proberen.

Groeperen en samenvoegen met formules en filterfunctie

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

Notes: U moet uw gegevens sorteren door de klas voordat u de volgende stappen uitvoert.

1. Typ deze formule in een lege cel naast het gegevensbereik, bijvoorbeeld C13 =IF(A13=A12,C12&", "&B13,B13), druk op Enter sleutel en vul de formule in cellen met sleepvulhandvat.
doc concatenate 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 voor het afbakenen van aaneengeschakelde inhoud.

2. Typ vervolgens in de volgende kolom, D13, deze formule =IF(A13<>A14,"Last","") en sleep de greep naar beneden om de formule toe te passen op de cellen die u nodig hebt.
doc concatenate per groep 3

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

4. Klik op het Filter icon in de laatste formule kop, vink aan Last selectievakje alleen in de vervolgkeuzelijst en klik op OK.
doc concatenate per groep 5

Nu wordt het resultaat getoond zoals hieronder, je kunt de laatste hulpkolom verwijderen als je het nooit nodig hebt.
doc concatenate per groep 6


Groeperen en samenvoegen met VBA-code

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

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

2. Klik vervolgens in het venster Tools > References in staat te stellen References dialoogvenster en vink aan Microsoft Scripting Runtime. Zie screenshot:
doc concatenate per groep 7
doc concatenate per groep 8

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

VBA: rijen in een cel samenvoegen op basis van een 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 concatenate per groep 9

4. druk op F5 toets en selecteer het gegevensbereik dat u gebruikt in het pop-upvenster.
doc concatenate per groep 10

5. klikken OK om de belangrijkste kolom te selecteren die u wilt groeperen op basis van.
doc concatenate per groep 11

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


Groepeer en voeg samen met Advanced Combine Rows

Hier is een hulpprogramma in Kutools for Excel, Advanced Combine Rijen, waarmee rijen kunnen worden gecombineerd of berekeningen kunnen worden uitgevoerd op basis van een sleutelkolom in Excel.

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

Na het installeren van Kutools voor Excel, doe het als volgt:(Gratis download nu Kutools voor Excel!)

1. Selecteer het gegevensbereik dat u gebruikt en klik op Kutools > Content > Geavanceerd Combineer rijen.
doc concatenate per groep 13

2. In de Advanced Combine Rows venster, kiest u de kolom waarin u rijen wilt combineren op basis van en klikt u op Primary Key om het in te stellen als hoofdkolom.
doc concatenate per groep 14

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

doc concatenate per groep 15 doc pijl rechts doc concatenate per groep 16

4. klikken Ok. Het resultaat wordt als volgt getoond:
doc concatenate per groep 17

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


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.