Hur kombinerar man dubbla rader och summerar värdena i Excel?

I Excel ， kan du alltid möta detta problem när du har en rad data som innehåller några dubblettposter och nu vill du kombinera duplikatdata och summera motsvarande värden i en annan kolumn, som följande skärmdumpar visas. Hur kunde du lösa detta problem?

Kombinera dubbla rader och summera värdena med funktionen Konsolidera

Kombinera dubbla rader och summera värdena med VBA-kod

Kombinera dubbla rader och summera värdena med Kutools för Excel

Kombinera motsvarande rader baserat på dubbla värden i en annan kolumn med Kutools för Excel

Kombinera dubbla rader och summera värdena med funktionen Konsolidera

Consolidate är ett användbart verktyg för oss att konsolidera flera kalkylblad eller rader i Excel, så med den här funktionen kan vi också sammanfatta flera rader baserat på duplikaten. Gör med följande steg:

1. Klicka på en cell där du vill hitta resultatet i ditt nuvarande kalkylblad.

2. Gå till klicka Data > Konsolidera, se skärmdump:

3. I Konsolidera dialog ruta:

• (1.) Välj Sum från Fungera rullgardinsmeny;
• (2.) Klicka på för att välja det intervall som du vill konsolidera och klicka sedan på Lägg till för att lägga till referensen till Alla referenser listruta;
• (3.) Kontrollera Översta raden och Vänster kolumn från Använd etiketter i alternativ. Se skärmdump:

4. När du har gjort inställningarna klickar du på OK, och dubbletterna kombineras och summeras. Se skärmdump:

Anmärkningar: Om intervallet inte har rubrikraden måste du avmarkera Översta raden från Använd etiketter i alternativ.

Kombinera dubbla rader och summera värdena med VBA-kod

Följande VBA-kod kan också hjälpa dig att konsolidera dubbla rader i kalkylbladet, men samtidigt kommer originaldata att förstöras, du måste säkerhetskopiera en kopia av data.

1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Kombinera dubbla rader och summera värdena

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. Tryck sedan på F5 -knappen för att köra den här koden och du måste välja det intervall som du vill konsolidera i rutan som visas. Se skärmdump:

4. Och klicka sedan på OK, de dubbla raderna har kombinerats och värdena läggs till.

Anmärkningar: Om du vill använda den här koden, borde du göra en kopia av filen för att undvika att förstöra data, och den här koden tillämpas bara på två kolumner.

Kombinera dubbla rader och summera värdena med Kutools för Excel

Här presenterar jag det praktiska verktyget - Kutools för Excel för dig, dess Avancerade kombinera rader kan också snabbt göra en tjänst för att lösa detta problem.

När du har installerat Kutools för Excel, gör så här:

1. Välj det intervall du behöver och klicka Kutools > Slå ihop och dela > Avancerade kombinera rader. Se skärmdump:

2. I Avancerade kombinera rader dialogrutan, kontrollera Mina data har rubriker om ditt sortiment har rubriker och välj kolumnnamn som du vill kombinera dubbletterna och klicka på Primärnyckel, se skärmdump:

3. Och välj sedan det kolumnnamn du vill summera värdena och klicka på Beräkna > Sum eller andra beräkningar som du behöver. Se skärmdump:

4. Klicka Ok för att stänga dialogrutan kan du se att dubbletterna kombineras och motsvarande data i en annan kolumn läggs till tillsammans. Se skärmdumpar:

Klicka här om du vill veta mer om Advanced Combine Rows.

Kombinera motsvarande rader baserat på dubbla värden i en annan kolumn med Kutools för Excel

Ibland vill du kombinera raderna baserat på dubbla värden i en annan kolumn, Avancerade kombinera rader of Kutools för Excel kan också göra en tjänst för dig, gör så här:

1. Välj det dataområde du vill använda och klicka sedan på Kutools > Slå ihop och dela > Avancerade kombinera rader för att aktivera Avancerade kombinera rader dialog ruta.

2. I Avancerade kombinera rader Klicka på kolumnnamnet som du vill kombinera andra data baserat på och klicka sedan på Primärnyckel, se skärmdump:

3. Klicka sedan på ett annat kolumnnamn som du vill kombinera data och klicka på Kombinera för att välja en separator för att separera dina kombinerade värden, se skärmdump:

4. Klicka sedan Ok, har alla värden med samma cell i kolumn A kombinerats, se skärmdumpar:

Kombinera dubbla rader och summera värdena med Kutools för Excel

Relaterad artikel:

Kombinera flera rader till en baserad på dubbla värden

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...