Hoe combineer je meerdere rijen tot één op basis van duplicaten in Excel?

Misschien heb je de volgende schermafbeelding met gegevens, in kolom A met productnamen zijn er enkele duplicaten, en nu moet je de dubbele items in kolom A verwijderen, maar de bijbehorende waarden in kolom B samenvoegen. Zie onderstaande schermafbeeldingen:

Heb je enkele effectieve manieren om deze taak op te lossen?

Combineer meerdere dubbele rijen tot één met VBA-code

Combineer meerdere dubbele rijen tot één met Kutools voor Excel

Combineer meerdere dubbele rijen en sommeer/gemiddelde de waarden met Kutools voor Excel

Combineer meerdere dubbele rijen tot één met VBA-code

De volgende VBA-code kan helpen bij het combineren van dubbele rijen op basis van de waarde in kolom A, en de volgende code is alleen van toepassing op twee kolommen. Dus als je gegevens in twee kolommen hebt, zal deze code je een handje helpen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: combineer meerdere rijen tot één

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op de F5-toets, en er verschijnt een pop-upvenster dat je eraan herinnert een bereik te selecteren dat je wilt combineren. Zie onderstaande afbeelding:

4. Klik vervolgens op OK, en de waarden in kolom B zijn gecombineerd tot één record en gescheiden door spaties.

Opmerkingen:

1. Deze code kan de originele gegevens beschadigen, dus voordat je deze gebruikt, maak eerst een back-up van de gegevens.

2. Deze code is alleen van toepassing op twee kolommen. Als je meer dan twee kolommen hebt, zal deze code alleen de eerste twee kolommen combineren en de andere kolommen verwijderen. Wees dus voorzichtig wanneer je deze code gebruikt.

Combineer meerdere dubbele rijen tot één met Kutools voor Excel

Nu de bovenstaande code bepaalde beperkingen en risico's heeft, is er een handige en veilige manier om dit werk af te ronden? Met het hulpprogramma Geavanceerd samenvoegen van rijen van Kutools voor Excel kun je snel meerdere dubbele rijen in de kolommen verwijderen waarop je baseert en samenvoegen of berekeningen uitvoeren voor andere records in geschikte cellen.

Kutools voor Excel omvat meer dan 300 handige Excel-hulpmiddelen. Gratis te proberen zonder beperking gedurende 30 dagen. Download het nu.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

1. Selecteer het bereik van gegevens dat je wilt combineren.

2. Klik vervolgens op Kutools > Samenvoegen & Splitsen > Geavanceerd samenvoegen van rijen.

3. Selecteer in het dialoogvenster Geavanceerd samenvoegen van rijen de kolomnaam als sleutelkolommen waarop je de waarden wilt combineren, en klik vervolgens op Sleutelkolommen.

4. Klik vervolgens op de kolom waarvan je de waarden in één record wilt combineren, en klik vervolgens op Samenvoegbewerkingen en kies Alleen combineren met scheidingsteken, en selecteer een scheidingsteken om de gecombineerde waarden te scheiden uit de lijst rechts. Zie onderstaande afbeelding:

5. Nadat je de instellingen hebt voltooid, klik op OK, en je gegevens worden samengevoegd op basis van de sleutelkolommen en gescheiden door scheidingstekens.

Opmerking: Als je geen bewerkingen hoeft in te stellen voor de overige kolommen, laat dan de standaardinstelling staan.

Combineer meerdere dubbele rijen en sommeer/gemiddelde de waarden met Kutools voor Excel

Met dit multifunctionele hulpprogramma Geavanceerd samenvoegen van rijen kun je dubbele rijen combineren en berekeningen uitvoeren voor de waarden.

1. Selecteer het bereik van gegevens dat je wilt combineren.

2. Ga naar het dialoogvenster Geavanceerd samenvoegen van rijen;

• (1.) Selecteer een kolomnaam als sleutelkolom waarop je andere kolomwaarden wilt berekenen, en klik vervolgens op Sleutelkolommen;
• (2.) Selecteer de kolom waarvoor je berekeningen wilt uitvoeren voor de waarden, en klik vervolgens op Samenvoegbewerkingen > Combineer berekenen, en kies het type berekening dat je nodig hebt. In dit geval selecteer ik Optellen. Zie onderstaande afbeelding:

3. Als je geen bewerkingen hoeft in te stellen voor de resterende kolommen, laat dan de standaardinstelling staan, klik op OK, en de dubbele waarden in kolom A worden samengevoegd en hun bijbehorende waarden in kolom B worden opgeteld. Zie onderstaande afbeeldingen:

Opmerkingen:

1. Als je de optie Mijn gegevens bevatten koppen aanvinkt, worden de koppen (de eerste rij) van het bereik genegeerd wanneer je dit hulpprogramma toepast.

2. Gebruik opgemaakte waarden: hiermee blijft de opmaak van de waarden behouden na het combineren van de dubbele cellen.

3. Dit hulpprogramma is niet beschikbaar voor gefilterde gegevens.

Klik hier om meer te weten te komen over deze functie Geavanceerd samenvoegen van rijen.

Gerelateerd artikel:

Combineer dubbele rijen en sommeer de waarden