Hvordan kombineres flere rækker til en baseret på duplikater i Excel?
Måske har du følgende skærmbilleddata, i kolonnen A for produktnavn, er der nogle duplikatelementer, og nu skal du fjerne de duplikatposter i kolonne A, men kombiner de tilsvarende værdier i kolonne B, se skærmbilleder:
Har du nogle effektive måder at løse denne opgave på?
Kombiner flere duplikerede rækker til en med VBA-kode
Kombiner flere duplikerede rækker i en Kutools til Excel
Kombiner flere duplikerede rækker og summer / gennemsnit værdierne med Kutools til Excel
Kombiner flere duplikerede rækker til en med VBA-kode
Følgende VBA-kode kan hjælpe dig med at kombinere duplikerede rækker baseret på værdien af kolonne A, og den følgende kode anvendes kun til to kolonner. Så hvis du har to kolonnedata, vil denne kode gøre en tjeneste for dig.
1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: kombiner flere rækker i 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. Tryk derefter på F5 nøgle, og der vises en hurtigboks for at minde dig om at vælge et interval, som du skal kombinere. Se skærmbillede:
4. Og klik derefter på OK, er værdierne i kolonne B blevet kombineret i en post og adskilt af mellemrum.
Bemærkninger:
1. Denne kode kan ødelægge de originale data, når du bruger dem, skal du hellere sikkerhedskopiere dataene først.
2. Denne kode anvendes kun til to kolonner, hvis du har mere end to kolonner, kombinerer denne kode kun de første to kolonner og fjerner andre kolonnedata. Når du bruger denne kode, skal du være forsigtig.
Kombiner flere duplikerede rækker i en Kutools til Excel
Nu hvor ovenstående kode har nogle begrænsninger og risici, er der en praktisk og sikker måde at afslutte dette job på? Med Kutools til Excel's Avancerede kombinere rækker værktøj, kan du hurtigt fjerne flere duplikerede rækker i de kolonner, du er baseret på, og flette eller foretage nogle beregninger for andre poster i passende celler.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu.
Efter installation af Kutools til Excel, skal du gøre som følger:
1. Vælg de områdedata, du vil kombinere dubletter.
2. Klik derefter på Kutools > Flet og del > Avancerede kombinere rækker.
3. I Avancerede kombinere rækker i dialogboksen, vælg kolonnenavnet som de nøglekolonner, som du vil kombinere værdier baseret på, og klik derefter på Nøglekolonner.
4. Fortsæt derefter med at klikke på den kolonne, du har brug for, for at kombinere deres værdier i en post, og klik derefter på Kombiner operationer Og vælg Kombiner kun med separator, og vælg en separator, du har brug for for at adskille de kombinerede værdier fra den rigtige liste. Se skærmbillede:
5. Når du er færdig med indstillingerne, skal du klikke på OK, og dine data vil blive flettet baseret på nøglekolonnerne og adskilt af separatorer.
Bemærk: Hvis du ikke behøver at indstille operationerne til resten af kolonnerne, skal du bare beholde standardtilstanden.
Kombiner flere duplikerede rækker og summer / gennemsnit værdierne med Kutools til Excel
Med denne multifunktionelle Avancerede kombinere rækker værktøj, kan du også kombinere dubletterækker og lave nogle beregninger for værdierne.
1. Vælg de områdedata, du vil kombinere dubletter.
2. Gå til Avancerede kombinere rækker dialog boks;
- (1.) Vælg et kolonnenavn som nøglekolonne, som du vil beregne andre kolonneværdier baseret på, og klik derefter på Nøglekolonner;
- (2.) Vælg den kolonne, som du skal bruge til at foretage nogle beregninger for værdierne, og klik derefter på Kombiner operationer > Kombiner beregne, vælg derefter en beregningstype, som du har brug for, i dette tilfælde vælger jeg Sum. Se skærmbillede:
3. Hvis du ikke behøver at indstille operationerne til resten af kolonnerne, skal du bare beholde standardtilstanden og derefter klikke på OK, og de duplikerede værdier i kolonne A vil blive flettet, og deres tilsvarende værdier i kolonne B vil blive tilføjet. Se skærmbilleder:
Bemærkninger:
1. Hvis du tjekker Mine data har overskrifter valgmulighed ignoreres dine overskrifter (første række) i området, når du anvender dette værktøj.
2. Brug formaterede værdier: det beholder formateringen af værdierne efter kombination af de duplikerede celler.
3. Dette værktøj er ikke tilgængeligt til filtrering af data.
Klik for at vide mere om denne Advanced Combine Rows-funktion.
Relateret artikel:
Kombiner duplikatrækker og summer værdierne
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!