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:

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

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

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

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:

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

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.

Combineer 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.

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

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:

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:

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

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

Combineer 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:

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:

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

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

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 elke dag honderden muisklikken!

Lees verder... Gratis download... Aankoop...