Hoe combineert u meerdere rijen tot één rij op basis van duplicaten in Excel?
Mogelijk beschikt u over de volgende voorbeeldgegevens: in kolom A (productnaam) staan enkele dubbele items. U wilt nu de dubbele vermeldingen in kolom A verwijderen, maar de bijbehorende waarden in kolom B combineren. Zie de schermafbeeldingen:
 |  |  |
Heeft u effectieve manieren om deze taak aan te pakken?
Combineer meerdere Dubbele rij tot één met VBA-code
Combineer meerdere Dubbele rij tot één Kutools voor Excel
Combineer meerdere Dubbele rij tot één met VBA-code
De volgende VBA-code helpt u dubbele rijen te combineren op basis van de waarden in kolom A. Deze code is speciaal bedoeld voor gegevens in twee kolommen, dus als u precies twee kolommen heeft, is deze code perfect geschikt om uw gegevens samen te voegen.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
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 toets F5, waarna een dialoogvenster verschijnt waarin u het bereik kunt selecteren dat u wilt combineren. Zie schermafbeelding:
4. Klik daarna op OK, waarna de waarden in kolom B worden gecombineerd tot één record, gescheiden door spaties.
Opmerkingen:
1. Deze code kan de oorspronkelijke gegevens beschadigen; maak daarom eerst een back-up voordat u deze gebruikt.
2. Deze code is alleen geschikt voor twee kolommen. Als u meer dan twee kolommen hebt, combineert de code alleen de eerste twee kolommen en worden de gegevens uit de overige kolommen verwijderd. Wees dus voorzichtig bij gebruik.
Combineer meerdere Dubbele rij tot één Kutools voor Excel
Aangezien de bovenstaande code beperkingen en risico’s met zich meebrengt, is er dan een handige en veilige manier om deze taak uit te voeren? Met de functie Kutools voor Excel’s Geavanceerd samenvoegen van rijen verwijdert u in een handomdraai dubbele rijen in de kolommen waarop u baseert, en voert u direct samenvoegingen of berekeningen uit in de juiste cellen.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Probeer het gratis en zonder beperkingen gedurende 30 dagen.Download nu.
Na installatie van Kutools voor Excel gaat u als volgt te werk:
1. Selecteer het gegevensbereik waarvan u duplicaten wilt samenvoegen.
2. Klik vervolgens op Kutools > Samenvoegen en splitsen > Geavanceerd samenvoegen van rijen.
3. In het dialoogvenster Geavanceerd samenvoegen van rijen selecteert u de kolomnaam als Sleutelkolom waarop u de waarden wilt combineren en klikt u vervolgens op Sleutelkolom.
4. Klik daarna op de kolom waarvan u de waarden naar één record wilt combineren, klik op Samenvoegtype en kies Alleen combineren met scheidingsteken. Selecteer vervolgens het gewenste scheidingsteken uit de lijst rechts om de gecombineerde waarden te scheiden. Zie schermafbeelding:
5. Nadat u de instellingen hebt voltooid, klikt u op OK, waarna uw gegevens worden samengevoegd op basis van de sleutelkolom en gescheiden door scheidingstekens.
Opmerking: Als u voor de overige kolommen geen bewerkingen hoeft in te stellen, laat u de standaardinstellingen gewoon ongewijzigd.
Combineer meerdere Dubbele rij en som of bereken het gemiddelde van de waarden met Kutools voor Excel
Met dit multifunctionele hulpmiddel Geavanceerd samenvoegen van rijen kunt u dubbele rijen combineren én berekeningen uitvoeren op de waarden.
1. Selecteer het gegevensbereik waarvan u duplicaten wilt combineren.
2. Ga naar het dialoogvenster Geavanceerd samenvoegen van rijen.
- (1.) Selecteer een kolomnaam als Sleutelkolom waarop u andere kolomwaarden wilt baseren, en klik vervolgens op Sleutelkolom;
- (2.) Selecteer de kolom waarvoor u berekeningen wilt uitvoeren op de waarden en klik vervolgens op Samenvoegtype > Combineer berekenen. Kies daarna het gewenste type berekening; in dit geval selecteer ik Som. Zie schermafbeelding:
3. Als u voor de overige kolommen geen bewerkingen hoeft in te stellen, laat u de standaardinstellingen ongewijzigd en klikt u op OK. Vervolgens worden de dubbele waarden in kolom A samengevoegd en de bijbehorende waarden in kolom B opgeteld. Zie schermafbeeldingen:
 | |  |
Opmerkingen:
1. Als u de optie Titels opnemen inschakelt, worden de koppen (de eerste rij) van het bereik genegeerd bij gebruik van deze functie.
2. Opgemaakte waarden gebruiken: de opmaak van de waarden blijft behouden nadat u dubbele cellen hebt samengevoegd.
3. Deze functie is niet beschikbaar voor gefilterde gegevens.
Klik hier voor meer informatie over de functie Geavanceerd samenvoegen van rijen.
Gerelateerd artikel:
Combineer Dubbele rij en som de waarden op
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins