Hur kombinerar jag flera rader till en baserad på dubbletter i Excel?

Kanske har du följande skärmdumpsdata, i produktnamnkolumn A finns det några dubbletter, och nu måste du ta bort dubblettposterna i kolumn A men kombinera motsvarande värden i kolumn B, se skärmdumpar:

Har du några effektiva sätt att lösa denna uppgift?

Kombinera flera dubbletterader till en med VBA-kod

Kombinera flera dubbletterader till en Kutools för Excel

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

Kombinera flera dubbletterader till en med VBA-kod

Följande VBA-kod kan hjälpa dig att kombinera dubbla rader baserat på värdet för kolumn A, och följande kod tillämpas endast för två kolumner. Så om du har två kolumner, kommer den här koden att göra en tjänst för dig.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic for Applications-fönstret.

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

VBA-kod: kombinera flera rader till en

Sub CombineRows()
'Update 20131202
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)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
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 och en snabbruta dyker upp för att påminna dig om att välja ett intervall som du behöver kombinera. Se skärmdump:

4. Och klicka sedan på OK, har värdena i kolumn B kombinerats i en post och separerats med mellanslag.

Anmärkningar:

1. Den här koden kan förstöra originaldata, när du använder den, bör du säkerhetskopiera data först.

2. Den här koden tillämpas endast för två kolumner, om du har mer än två kolumner kommer den här koden bara att kombinera de två första kolumnerna och ta bort andra kolumndata. När du använder den här koden måste du vara försiktig.

Kombinera flera dubbletterader till en Kutools för Excel

Nu när koden ovan har vissa begränsningar och risker, finns det ett praktiskt och säkert sätt att slutföra det här jobbet? Med Kutools för ExcelÄr Avancerade kombinera rader verktyget kan du snabbt ta bort flera duplicerade rader i kolumnerna du bygger på och slå samman eller göra några beräkningar för andra poster till lämpliga celler.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

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

1. Välj intervalldata som du vill kombinera dubbletter.

2. Klicka sedan Kutools > Slå ihop och dela > Avancerade kombinera rader.

3. I Avancerade kombinera rader välj kolumnnamnet som nyckelkolumner som du vill kombinera värden baserat på och klicka sedan på Nyckelkolumner.

4. Fortsätt sedan med att klicka på kolumnen som du behöver för att kombinera deras värden i en post och klicka sedan på Kombinera operationer Och välj Kombinera endast med separatoroch välj en separator som du behöver för att separera de kombinerade värdena från rätt lista. Se skärmdump:

5. När du har gjort inställningarna klickar du på OK, och dina data slås samman baserat på nyckelkolumnerna och separeras av separatorer.

Notera: Om du inte behöver ställa in operationerna för resten av kolumnerna, behåll bara standardläget.

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

Med denna multifunktionella Avancerade kombinera rader verktyg kan du kombinera dubbletterader och göra några beräkningar för värdena också.

1. Välj intervalldata som du vill kombinera dubbletter.

2. Gå till Avancerade kombinera rader dialog ruta;

• (1.) Välj ett kolumnnamn som nyckelkolumn som du vill beräkna andra kolumnvärden baserat på och klicka sedan på Nyckelkolumner;
• (2.) Välj den kolumn som du behöver för att göra några beräkningar för värdena och klicka sedan på Kombinera operationer > Kombinera beräkna, välj sedan en beräkningstyp som du behöver, i det här fallet väljer jag Sum. Se skärmdump:

3. Om du inte behöver ställa in operationerna för resten av kolumnerna, behåll bara standardläget och klicka sedan på OKoch de dubbla värdena i kolumn A slås samman och deras motsvarande värden i kolumn B läggs till. Se skärmdumpar:

Anmärkningar:

1. Om du kontrollerar Mina data har rubriker alternativ kommer dina rubriker (den första raden) i intervallet att ignoreras när du använder detta verktyg.

2. Använd formaterade värden: det behåller formateringen av värdena efter att ha kombinerat dubblettcellerna.

3. Detta verktyg är inte tillgängligt för filtrering av data.

Klicka för att veta mer om den här funktionen för avancerade kombinationsrader.

Relaterad artikel:

Kombinera dubbla rader och summera värdena