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
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen 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.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen