Hvordan kombineres duplikerede rækker og summerer værdierne i Excel?

I Excel meet møder du muligvis altid dette problem, når du har en række data, der indeholder nogle duplikatposter, og nu vil du kombinere duplikatdataene og summere de tilsvarende værdier i en anden kolonne, som vist på følgende skærmbilleder. Hvordan kunne du løse dette problem?

Kombiner duplikerede rækker, og summer værdierne med funktionen Konsolider

Kombiner duplikatrækker og summer værdierne med VBA-kode

Kombiner duplikatrækker og summer værdierne med Kutools til Excel

Kombiner tilsvarende rækker baseret på duplikatværdier i en anden kolonne med Kutools til Excel

Kombiner duplikerede rækker, og summer værdierne med funktionen Konsolider

Consolidate er et nyttigt værktøj for os til at konsolidere flere regneark eller rækker i Excel, så med denne funktion kan vi også opsummere flere rækker baseret på duplikaterne. Benyt følgende trin:

1. Klik på en celle, hvor du vil finde resultatet i dit aktuelle regneark.

2. Gå til klik data > Konsolider, se skærmbillede:

3. I Konsolider dialog boks:

• (1.) Vælg Sum fra Funktion rulleliste
• (2.) Klik på for at vælge det område, du vil konsolidere, og klik derefter på Tilføj knap for at tilføje henvisningen til Alle referencer listefelt;
• (3.) Kontroller Øverste række og Venstre kolonne fra Brug etiketter i mulighed. Se skærmbillede:

4. Når du er færdig med indstillingerne, skal du klikke på OKog duplikaterne kombineres og summeres. Se skærmbillede:

Bemærk: Hvis området ikke har headerrækken, skal du fjerne markeringen Øverste række fra Brug etiketter i valgmulighed.

Kombiner duplikatrækker og summer værdierne med VBA-kode

Følgende VBA-kode kan også hjælpe dig med at konsolidere duplikatrækker i regnearket, men samtidig ødelægges de originale data, du skal tage backup af en kopi af dataene.

1. Hold nede ALT + F11 tasterne, så åbner den Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Kombiner duplikatrækker og summer værdierne

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. Tryk derefter på F5 nøgle for at køre denne kode, og du skal vælge det område, du vil konsolidere i det pop op-meddelelsesfelt. Se skærmbillede:

4. Og klik derefter på OK, er de dobbelte rækker blevet kombineret, og værdierne tilføjes.

Bemærk: Hvis du vil bruge denne kode, skal du hellere lave en kopi af filen for at undgå at ødelægge dataene, og denne kode anvendes kun i to kolonner.

Kombiner duplikatrækker og summer værdierne med Kutools til Excel

Her introducerer jeg det praktiske værktøj - Kutools til Excel for dig, dens Avancerede kombinere rækker kan også hurtigt gøre en tjeneste for at løse dette problem.

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg det område, du har brug for, og klik Kutools > Flet og del > Avancerede kombinere rækker. Se skærmbillede:

2. I Avancerede kombinere rækker dialog, tjek Mine data har overskrifter hvis dit sortiment har overskrifter, og vælg kolonnenavn, som du vil kombinere duplikaterne og klik på Primærnøgle, se skærmbillede:

3. Og vælg derefter det kolonnenavn, du vil sammenfatte værdierne, og klik på Beregn > Sum eller andre beregninger, som du har brug for. Se skærmbillede:

4. Klik Ok for at lukke dialog, så kan du se duplikaterne kombineres, og de tilsvarende data i en anden kolonne tilføjes sammen. Se skærmbilleder:

Klik her for at vide mere om Advanced Combine Rows.

Kombiner tilsvarende rækker baseret på duplikatværdier i en anden kolonne med Kutools til Excel

Nogle gange vil du kombinere rækkerne baseret på duplikatværdier i en anden kolonne, den Avancerede kombinere rækker of Kutools til Excel også kan gøre en tjeneste for dig, skal du gøre som følger:

1. Vælg det dataområde, du vil bruge, og klik derefter på Kutools > Flet og del > Avancerede kombinere rækker at aktivere Avancerede kombinere rækker dialog boks.

2. I Avancerede kombinere rækker dialogboksen, skal du klikke på det kolonnenavn, som du vil kombinere andre data baseret på, og klikke på Primærnøgle, se skærmbillede:

3. Og klik derefter på et andet kolonnenavn, som du vil kombinere dataene, og klik på Kombiner for at vælge en separator for at adskille dine kombinerede værdier, se skærmbillede:

4. Klik derefter på Ok, alle værdier med den samme celle i kolonne A er blevet kombineret, se skærmbilleder:

Kombiner duplikatrækker og summer værdierne med Kutools til Excel

Relateret artikel:

Kombiner flere rækker til en baseret på duplikerede værdier

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...