In Excel is het een gebruikelijk scenario om een ​​gegevensset met dubbele vermeldingen tegen te komen. Vaak bevindt u zich misschien in een reeks gegevens waarbij de belangrijkste uitdaging is om deze dubbele rijen efficiënt te combineren en tegelijkertijd de waarden in een overeenkomstige kolom op te tellen, zoals in de onderstaande schermafbeelding. In deze context zullen we dieper ingaan op verschillende praktische methoden die u kunnen helpen dubbele gegevens te consolideren en de bijbehorende waarden samen te voegen, waardoor zowel de duidelijkheid als de bruikbaarheid van uw Excel-werkmappen worden vergroot.

Combineer dubbele rijen en tel de waarden op

• Met de consolideerfunctie
• Met een krachtige functie – Kutools
• Met draaitabel
• Met VBA-code

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

Consolideren is een handig hulpmiddel voor ons om meerdere werkbladen of rijen in Excel te consolideren. Met deze functie kunnen we dubbele rijen combineren en de bijbehorende waarden snel en eenvoudig samenvatten. Voer de volgende stappen uit:

Stap 1: Selecteer een doelcel

Kies waar u de geconsolideerde gegevens wilt weergeven.

Stap 2: Open de consolidatiefunctie en stel de consolidatie in

1. Klik Data > Consolideren, zie screenshot:
   
2. In het Consolideren dialoog venster:
   • (1.) Selecteer Som oppompen van Functie keuzelijst;
   • (2.) Klik om het bereik te selecteren dat u wilt consolideren in de Referentie doos;
   • (3.) Controleer Bovenste rij en Linker kolom oppompen van Gebruik labels in keuze;
   • (4.) Klik ten slotte OK knop.
   • 

Resultaat:

Excel combineert alle duplicaten gevonden in de eerste kolom en somt de overeenkomstige waarden op in de aangrenzende kolommen, zoals in het onderstaande screenshot:

Combineer dubbele rijen en tel de waarden op met een krachtige functie – Kutools

Als je hebt geïnstalleerd Kutools for Excel, het is Geavanceerd Combineer rijen Met deze functie kunt u eenvoudig dubbele rijen combineren, waardoor u opties krijgt om uw gegevens op te tellen, te tellen, te middelen of andere berekeningen uit te voeren. Bovendien is deze functie niet beperkt tot slechts één sleutelkolom, maar kan deze meerdere sleutelkolommen verwerken, waardoor complexe gegevensconsolidatietaken veel eenvoudiger worden.

Na het installeren van Kutools for Excel, selecteer het gegevensbereik en klik vervolgens op Kutools > Samenvoegen en splitsen > Geavanceerd Combineer rijen.

In het Geavanceerd Combineer rijen dialoogvenster, stel de volgende bewerkingen in:

1. Klik op de kolomnaam waarop u duplicaten wilt combineren. Hier klik ik op Product en selecteer vervolgens Hoofdsleutel uit de vervolgkeuzelijst in het Werking kolom;
2. Selecteer vervolgens de kolomnaam waarvan u de waarden wilt optellen, en selecteer vervolgens Som uit de vervolgkeuzelijst in het Werking kolom;
3. Wat de andere kolommen betreft, kunt u de bewerking kiezen die u nodig heeft, zoals het combineren van de waarden met een specifiek scheidingsteken of het uitvoeren van een bepaalde berekening; (deze stap kan worden genegeerd als u slechts twee kolommen heeft)
4. Eindelijk kunt u een voorbeeld van het gecombineerde resultaat bekijken en vervolgens klikken OK knop.
5. 

Resultaat:

Nu worden de dubbele waarden in de sleutelkolom gecombineerd en worden andere overeenkomstige waarden samengevat als volgt:

Combineer dubbele rijen en tel de waarden op met de draaitabel

Draaitabel in Excel biedt een dynamische manier om gegevens te herschikken, te groeperen en samen te vatten. Deze functionaliteit wordt ongelooflijk handig wanneer u wordt geconfronteerd met een dataset gevuld met dubbele invoer en de bijbehorende waarden moet optellen.

Stap 1: Een draaitabel maken

1. Selecteer het gegevensbereik. En ga dan naar de Invoegen tab en klik Pivot Table, zie screenshot:
   
2. Kies in het uitgevouwen dialoogvenster waar u het draaitabelrapport wilt plaatsen. U kunt het naar behoefte op een nieuw of bestaand blad plaatsen. Dan klikken OK. Zie screenshot:
   
3. Nu wordt een draaitabel ingevoegd in de geselecteerde doelcel. Zie schermafbeelding:
   

Stap 2: De draaitabel configureren:

1. In het Draaitabelvelden deelvenster, sleept u het veld met duplicaten naar het Rij gebied. Hiermee worden uw duplicaten gegroepeerd.
2. Sleep vervolgens de velden met de waarden die u wilt optellen naar het Values gebied. Standaard telt Excel de waarden op. Zie de demo hieronder:
3. 

Resultaat:

De draaitabel geeft nu uw gegevens weer met gecombineerde duplicaten en hun waarden samengevat, wat een duidelijk en beknopt overzicht biedt voor analyse. Zie schermafbeelding:

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

Als u geïnteresseerd bent in VBA-code, geven we in deze sectie een VBA-code om dubbele rijen te consolideren en de overeenkomstige waarden in andere kolommen op te tellen. Voer de volgende stappen uit:

Stap 1: Open de VBA-bladmodule-editor en kopieer de code

1. Houd de toets ingedrukt ALT + F11 toetsen in Excel om het Microsoft Visual Basic voor toepassingen venster.
2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.
   VBA-code: combineer dubbele rijen en som de waarden op

   Sub CombineDuplicateRowsAndSumForMultipleColumns()
   'Update by Extendoffice
       Dim SourceRange As Range, OutputRange As Range
       Dim Dict As Object
       Dim DataArray As Variant
       Dim i As Long, j As Long
       Dim Key As Variant
       Dim ColCount As Long
       Dim SumArray() As Variant
       Dim xArr As Variant
       Set SourceRange = Application.InputBox("Select the original range:", "Kutools for Excel", Type:=8)
       If SourceRange Is Nothing Then Exit Sub
       ColCount = SourceRange.Columns.Count
       Set OutputRange = Application.InputBox("Select a cell for output:", "Kutools for Excel", Type:=8)
       If OutputRange Is Nothing Then Exit Sub
       Set Dict = CreateObject("Scripting.Dictionary")
       DataArray = SourceRange.Value
       For i = 1 To UBound(DataArray, 1)
           Key = DataArray(i, 1)
           If Not Dict.Exists(Key) Then
               ReDim SumArray(1 To ColCount - 1)
               For j = 2 To ColCount
                   SumArray(j - 1) = DataArray(i, j)
               Next j
               Dict.Add Key, SumArray
           Else
               xArr = Dict(Key)
               For j = 2 To ColCount
                   xArr(j - 1) = xArr(j - 1) + DataArray(i, j)
               Next j
               Dict(Key) = xArr
           End If
       Next i
       OutputRange.Resize(Dict.Count, ColCount).ClearContents
       i = 1
       For Each Key In Dict.Keys
           OutputRange.Cells(i, 1).Value = Key
           For j = 1 To ColCount - 1
               OutputRange.Cells(i, j + 1).Value = Dict(Key)(j)
           Next j
           i = i + 1
       Next Key
       Set Dict = Nothing
       Set SourceRange = Nothing
       Set OutputRange = Nothing
   End Sub
   

Stap 2: Voer de code uit

1. Druk na het plakken van deze code op F5 toets om deze code uit te voeren. Selecteer in het promptvenster het gegevensbereik dat u wilt combineren en optellen. En klik dan OK.
   
2. En selecteer in het volgende promptvenster een cel waarin u het resultaat wilt uitvoeren en klik op OK.
   

Resultaat:

Nu worden de dubbele rijen samengevoegd en zijn de bijbehorende waarden opgeteld. Zie schermafbeelding:

Het combineren en optellen van dubbele rijen in Excel kan eenvoudig en efficiënt zijn. Kies uit de eenvoudige Consolidate-functie, de geavanceerde Kutools, de analytische draaitabellen of de flexibele VBA-codering om een ​​oplossing te vinden die past bij uw vaardigheden en behoeften. Als u geïnteresseerd bent in meer Excel-tips en -trucs, biedt onze website duizenden tutorials aan klik hier om ze te openen. Bedankt voor het lezen en we kijken ernaar uit u in de toekomst van meer nuttige informatie te voorzien!

Gerelateerde artikelen: