Hoe dubbele rijen combineren en de waarden in Excel optellen?

In Excel kunt u dit probleem altijd tegenkomen als u een gegevensbereik hebt dat enkele dubbele gegevens bevat, en u nu de dubbele gegevens wilt combineren en de overeenkomstige waarden in een andere kolom wilt optellen, zoals in de volgende schermafbeeldingen. Hoe zou je dit probleem kunnen oplossen?

Combineer dubbele rijen en som de waarden op met de functie Consolideren

Combineer dubbele rijen en tel de waarden op met VBA-code

Combineer dubbele rijen en tel de waarden op met Kutools voor Excel

Combineer overeenkomstige rijen op basis van dubbele waarden in een andere kolom met Kutools voor Excel

Combineer dubbele rijen en som de waarden op met de functie Consolideren

De Consolidate is een handig hulpmiddel voor ons om meerdere werkbladen of rijen in Excel te consolideren, dus met deze functie kunnen we ook meerdere rijen samenvatten op basis van de duplicaten. Voer de volgende stappen uit:

1. Klik op een cel waar u het resultaat in uw huidige werkblad wilt vinden.

2. Ga om te klikken Data > Consolideren, zie screenshot:

3. In de Consolideren dialoog venster:

• (1.) Selecteer Som van Functie keuzelijst;
• (2.) Klik om het bereik te selecteren dat u wilt consolideren, en klik vervolgens op Toevoegen knop om de verwijzing naar toe te voegen Alle referenties keuzelijst;
• (3.) Controleer Bovenste rij en Linker kolom van Gebruik labels in optie. Zie screenshot:

4. Klik na het voltooien van de instellingen op OK, en de duplicaten worden gecombineerd en opgeteld. Zie screenshot:

Opmerking:: Als het bereik geen koprij heeft, moet u het vinkje verwijderen Bovenste rij van het Gebruik labels in optie.

Combineer dubbele rijen en tel de waarden op met VBA-code

De volgende VBA-code kan u ook helpen dubbele rijen in het werkblad te consolideren, maar tegelijkertijd worden de originele gegevens vernietigd, u moet een back-up van een kopie van de gegevens maken.

1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.

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

VBA-code: combineer dubbele rijen en som de waarden op

Sub CombineRows()
'Updateby Extendoffice
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)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
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 sleutel om deze code uit te voeren, en u moet het bereik selecteren dat u wilt consolideren in het uitgeklapte promptvenster. Zie screenshot:

4. En klik vervolgens op OKzijn de dubbele rijen gecombineerd en de waarden opgeteld.

Opmerking:: Als u deze code wilt gebruiken, kunt u beter een kopie van het bestand maken om te voorkomen dat de gegevens worden vernietigd, en deze code wordt alleen op twee kolommen toegepast.

Combineer dubbele rijen en tel de waarden op met Kutools voor Excel

Hier introduceer ik de handige tool - Kutools for Excel voor jou, zijn Geavanceerd Combineer rijen kan ook snel een plezier doen om dit probleem op te lossen.

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer het bereik dat u nodig heeft en klik Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen. Zie screenshot:

2. In de Geavanceerd Combineer rijen dialoogvenster, vink aan Mijn gegevens hebben kopteksten als uw bereik kopteksten heeft, selecteert u de kolomnaam waarvan u de duplicaten wilt combineren en klikt u op Hoofdsleutel, zie screenshot:

3. En selecteer vervolgens de kolomnaam waarvan u de waarden wilt optellen en klik op Berekenen > Som of andere berekeningen die u nodig heeft. Zie screenshot:

4. Klikken Ok om het dialoogvenster te sluiten, kunt u zien dat de duplicaten worden gecombineerd en dat de bijbehorende gegevens in een andere kolom bij elkaar worden opgeteld. Zie screenshots:

Klik hier voor meer informatie over Advanced Combine Rows.

Combineer overeenkomstige rijen op basis van dubbele waarden in een andere kolom met Kutools voor Excel

Soms wilt u de rijen combineren op basis van dubbele waarden in een andere kolom, de Geavanceerd Combineer rijen of Kutools for Excel kan ook een plezier voor u doen, doe dan als volgt:

1. Selecteer het gegevensbereik dat u wilt gebruiken en klik op Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen om de Geavanceerd Combineer rijen dialoog venster.

2. In de Geavanceerd Combineer rijen dialoogvenster, klik op de kolomnaam waarop u andere gegevens wilt combineren, en klik op Hoofdsleutel, zie screenshot:

3. En klik vervolgens op een andere kolomnaam waarmee u de gegevens wilt combineren, en klik op Combineren Om een ​​scheidingsteken te kiezen om uw gecombineerde waarden te scheiden, zie screenshot:

4. Dan klikken Okzijn alle waarden met dezelfde cel in kolom A samengevoegd, zie screenshots:

Combineer dubbele rijen en tel de waarden op met Kutools voor Excel

Gerelateerd artikel:

Combineer meerdere rijen tot één op basis van dubbele waarden

---

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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 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 honderden muisklikken voor u elke dag!

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