Combineer Dubbele rij en tel hun waarden op in Excel (Eenvoudige trucs)

In Excel komt het vaak voor dat u een dataset tegenkomt met dubbele gegevens. Vaak beschikt u over een reeks gegevens waarbij de grootste uitdaging is om die dubbele rijen efficiënt samen te voegen, terwijl de waarden in een bijbehorende kolom — zoals in de onderstaande schermafbeelding — automatisch worden opgeteld. In deze context bespreken we verschillende praktische methoden om dubbele gegevens te consolideren en hun bijbehorende waarden slim samen te voegen, zodat zowel de duidelijkheid als het nut van uw Excel-werkboek aanzienlijk toenemen.

Combineer Dubbele rij en som de waarden op

• Met de functie Consolideren
• Met een krachtige functie – Kutools
• Met Draaitabel
• Met VBA-code

Combineer Dubbele rij en tel de waarden op met de functie Consolideren

Consolideren is een handige tool om meerdere werkbladen of rijen in Excel samen te voegen. Met deze functie combineert u snel en eenvoudig dubbele rijen en telt u hun bijbehorende waarden op. Volg hiervoor de volgende stappen:

Stap 1: Selecteer een doelcel

Kies waar u de geconsolideerde gegevens wilt weergeven.

Stap 2: Open de functie Consolideren en stel de consolidatie in

1. Klik op „Gegevens” > „Consolideren”, zie schermafbeelding:
   
2. In het dialoogvenster „Consolideren”:
   • (1.) Selecteer „Som” in de vervolgkeuzelijst „Functie”;
   • (2.) Klik om het bereik dat u wilt consolideren te selecteren in het vak „Referentie”;
   • (3.) Schakel „Bovenste rij” en „Meest linkse kolom” in bij de optie „Labelpositie”;
   • (4.) Klik ten slotte op de knop „OK”.
   • 

Resultaat:

Excel combineert eventuele duplicaten in de eerste kolom en telt hun bijbehorende waarden in de aangrenzende kolommen op, zoals op de volgende schermafbeelding wordt getoond:

Gebruik Kutools om Dubbele rij te combineren en de waarden op te tellen

Als u „Kutools voor Excel” hebt geïnstalleerd, kunt u met de functie „Geavanceerd samenvoegen van rijen” eenvoudig dubbele rijen combineren en opties gebruiken om waarden op te tellen, te tellen, te middelen of andere berekeningen uit te voeren. Bovendien is deze functie niet beperkt tot slechts één sleutelkolom; hij ondersteunt meerdere sleutelkolommen, waardoor complexe consolidatietaken aanzienlijk eenvoudiger worden.

Na installatie van Kutools voor Excel selecteert u het gegevensbereik en klikt u op **Kutools** > **Samenvoegen en splitsen** > **Geavanceerd samenvoegen van rijen**.

Stel in het dialoogvenster „Geavanceerd samenvoegen van rijen” de volgende bewerkingen in:

1. Klik op de kolomnaam waarop u duplicaten wilt combineren; hier klik ik op Product en selecteer ik vervolgens „Primaire sleutel” in de Keuzelijst in de kolom „Bewerking”;
2. Selecteer vervolgens de kolomnaam waarvan u de waarden wilt optellen en kies „Som” in de Keuzelijst in de kolom „Bewerking”;
3. Voor de overige kolommen kunt u de gewenste bewerking kiezen, zoals het combineren van waarden met een specifieke scheidingsteken of het uitvoeren van een bepaalde berekening; (deze stap kan worden overgeslagen als u slechts twee kolommen heeft)
4. Tot slot kunt u het gecombineerde resultaat bekijken en vervolgens op de knop „OK” klikken.
5. 

Resultaat:

De Dubbele waarden in de Sleutelkolom zijn nu gecombineerd en de overige bijbehorende waarden zijn opgeteld, zoals op de volgende schermafbeelding wordt getoond:

Gebruik Draaitabel om Dubbele rij te combineren en de waarden op te tellen

Draaitabellen in Excel bieden een dynamische manier om gegevens opnieuw te ordenen, te groeperen en samen te vatten. Deze functionaliteit is bijzonder nuttig wanneer u een dataset met dubbele waarden moet verwerken en de bijbehorende getallen wilt optellen.

Stap 1: Maak een Draaitabel

1. Selecteer het gegevensbereik. Ga vervolgens naar het tabblad „Invoegen” en klik op „Draaitabel”, zie schermafbeelding:
   
2. Kies in het dialoogvenster dat verschijnt waar u het draaitabelrapport wilt plaatsen – op een nieuw of bestaand werkblad, afhankelijk van uw behoefte – en klik daarna op „OK”. Zie schermafbeelding:
   
3. Er is nu een draaitabel ingevoegd in de geselecteerde doelcel. Zie de schermafbeelding:
   

Stap 2: Configureer de Draaitabel:

1. Sleep in het deelvenster „Draaitabelvelden” het veld met duplicaten naar het gebied „Rijen” om uw duplicaten automatisch te groeperen.
2. Sleep vervolgens de velden met de waarden die u wilt optellen naar het gebied „Waarden”. Standaard telt Excel deze waarden automatisch op. Zie de onderstaande demo:
3. 

Resultaat:

De draaitabel toont nu uw gegevens met samengevoegde duplicaten en opgetelde waarden, voor een duidelijk en beknopt overzicht dat perfect is voor analyse. Zie schermafbeelding:

Gebruik VBA-code om Dubbele rij te combineren en de waarden op te tellen

Als u geïnteresseerd bent in VBA-code, vindt u in dit gedeelte een handig VBA-script om dubbele rijen te consolideren en de bijbehorende waarden in andere kolommen op te tellen. Volg hiervoor de volgende stappen:

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

1. Druk op ALT + F11 in Excel om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op „Invoegen” > „Module” en plak de volgende code in het „Module”-venster.
   VBA-code: Combineer Dubbele rij en tel 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. Nadat u deze code hebt geplakt, drukt u op de F5-toets om deze uit te voeren. Selecteer in het invoervenster het gegevensbereik dat u wilt combineren en optellen, en klik vervolgens op „OK”.
   
2. Selecteer in het volgende invoervenster de cel waarin u het resultaat wilt weergeven en klik op „OK”.
   

Resultaat:

De dubbele rijen zijn nu samengevoegd en hun bijbehorende waarden opgeteld. Zie de schermafbeelding:

Het combineren en optellen van dubbele rijen in Excel kan eenvoudig én efficiënt zijn! Kies uit de gebruiksvriendelijke functie Consolideren, de krachtige Kutools, de analytische draaitabel of de flexibele VBA-programmering—en vind de oplossing die perfect aansluit bij uw vaardigheden en behoeften. Wilt u nog meer Excel-tips en -trucs ontdekken? Onze website biedt duizenden tutorials;klik hier om deze te raadplegen. Hartelijk dank voor het lezen, en wij kijken ernaar uit u in de toekomst nog meer nuttige informatie te bieden!

Gerelateerde artikelen: