Ga naar hoofdinhoud

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

Misschien heeft u de volgende screenshotgegevens, in de Productnaam kolom A, zijn er enkele dubbele items, en nu moet u de dubbele items in kolom A verwijderen, maar de overeenkomstige waarden in kolom B combineren, zie screenshots:

doc-advanced-comb1 -2 doc-advanced-comb2

Heeft u een aantal effectieve manieren om deze taak op te lossen?

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

Combineer meerdere dubbele rijen in één Kutools voor Excel

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


pijl blauw rechts belCombineer meerdere dubbele rijen tot één met VBA-code

De volgende VBA-code kan u helpen dubbele rijen te combineren op basis van de waarde van kolom A, en de volgende code wordt alleen toegepast voor twee kolommen. Dus als u gegevens uit twee kolommen heeft, zal deze code u een plezier doen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

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 F5 -toets, en er verschijnt een promptvenster om u eraan te herinneren een bereik te selecteren dat u moet combineren. Zie screenshot:

doc-advanced-comb3

4. En klik vervolgens op OKzijn de waarden in kolom B gecombineerd tot één record en gescheiden door spaties.

doc-advanced-comb4

Opmerkingen:

1. Deze code kan de originele gegevens vernietigen. Als u deze gebruikt, kunt u beter eerst een back-up van de gegevens maken.

2. Deze code wordt alleen toegepast voor twee kolommen. Als u meer dan twee kolommen heeft, zal deze code alleen de eerste twee kolommen combineren en andere kolomgegevens verwijderen. Wanneer u deze code gebruikt, moet u voorzichtig zijn.


pijl blauw rechts belCombineer meerdere dubbele rijen in één Kutools voor Excel

Nu de bovenstaande code enkele beperkingen en risico's heeft, is er een handige en veilige manier om deze klus te klaren? Met Kutools for Excel's Geavanceerd Combineer rijen hulpprogramma kunt u snel meerdere dubbele rijen verwijderen in de kolommen waarop u bent gebaseerd en deze samenvoegen of enkele berekeningen uitvoeren voor andere records in de juiste cellen.

Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.

Ga als volgt te werk na het installeren van Kutools voor Excel:

1. Selecteer de bereikgegevens die u duplicaten wilt combineren.

doc-advanced-comb5

2. Dan klikken Kutools > Inhoud converter > Geavanceerd Combineer rijen. Zie screenshot:

doc-advanced-comb6

3. In de Geavanceerd Combineer rijen dialoogvenster, selecteert u de kolomnaam als de sleutelkolommen waarop u waarden wilt combineren op basis van en klikt u op Sleutel kolommen. Zie screenshot:

doc-advanced-comb7

4. Klik vervolgens op de kolom die u nodig hebt om hun waarden in één record te combineren, en klik vervolgens op Combineer operaties En kies Alleen combineren met afscheider, en kies een scheidingsteken dat u nodig hebt om de gecombineerde waarden van de rechterlijst te scheiden. Zie screenshot:

doc-advanced-comb8

5. Klik na het voltooien van de instellingen op OK, en uw gegevens worden samengevoegd op basis van de sleutelkolommen en gescheiden door scheidingstekens.

doc-advanced-comb9

Opmerking: Als u de bewerkingen voor de overige kolommen niet hoeft in te stellen, behoudt u gewoon de standaardstatus.


pijl blauw rechts belCombineer meerdere dubbele rijen en som / gemiddelde de waarden op met Kutools voor Excel

Met deze multifunctional Geavanceerd Combineer rijen hulpprogramma, kunt u dubbele rijen combineren en ook enkele berekeningen voor de waarden uitvoeren.

1. Selecteer de bereikgegevens die u duplicaten wilt combineren.

2. Ga naar de Geavanceerd Combineer rijen dialoog venster;

  • (1.) Selecteer een kolomnaam als sleutelkolom waarop u andere kolomwaarden wilt berekenen, en klik vervolgens op Sleutel kolommen;
  • (2.) Selecteer de kolom die u nodig hebt om enkele berekeningen voor de waarden uit te voeren, en klik vervolgens op Combineer operaties > Combineer berekenen, kies dan een berekeningstype dat je nodig hebt, in dit geval selecteer ik Som. Zie screenshot:

doc-advanced-comb10

3. Als u de bewerkingen voor de overige kolommen niet hoeft in te stellen, behoudt u gewoon de standaardstatus en klikt u op OK, en de dubbele waarden in kolom A worden samengevoegd en hun overeenkomstige waarden in kolom B worden opgeteld. Zie screenshots:

doc-advanced-comb11 -2 doc-advanced-comb12

Opmerkingen:

1. Als u controleert Mijn gegevens hebben kopteksten optie, worden uw kopteksten (de eerste rij) van het bereik genegeerd wanneer u dit hulpprogramma toepast.

2. Gebruik opgemaakte waarden: het behoudt de opmaak van de waarden na het combineren van de dubbele cellen.

3. Dit hulpprogramma is niet beschikbaar voor het filteren van gegevens.

Klik om meer te weten over deze functie Advanced Combine Rows.


Gerelateerd artikel:

Combineer dubbele rijen en tel de waarden op

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

Sample Data
Reece, Ashley G01-Registered-UWG
Reece, Chris G02-Registered-KSU
Reece, Chris G03-Dropped-KSU
Reece, Jayden G02-Registered-UNG
Reece, Jayden G02-Withdrawn-UNG
This comment was minimized by the moderator on the site
I have in column A

1 Cast
2 Crew
3 Hiring
4 Cast
5 Hiring
6 Crew

I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

Ex: I need (after formula)

1 Cast
2 Crew
3 Hiring

Is it possible by formula?
This comment was minimized by the moderator on the site
Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
This comment was minimized by the moderator on the site
Same - 2021 and this still only works if you have like 20 rows...
This comment was minimized by the moderator on the site
I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
This comment was minimized by the moderator on the site
Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)
I kept cutting down to less and less data to see if it would work but it still would not.
The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
This comment was minimized by the moderator on the site
Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
This comment was minimized by the moderator on the site
[quote]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?By David Greene[/quote] Sorry, we will fix it in next version.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations