Ugrás a tartalomra

Hogyan kombinálhat több sort egybe az Excel másolatai alapján?

Lehet, hogy a következő képernyőképek vannak, a Terméknév A oszlopban található néhány ismétlődő elem, és most el kell távolítania az ismétlődő bejegyzéseket az A oszlopból, de egyesítenie kell a B oszlop megfelelő értékeit, lásd a képernyőképeket:

doc-advanced-comb1 -2 doc-advanced-comb2

Van néhány hatékony módja ennek a feladatnak a megoldására?

Egyesítsen több ismétlődő sort VBA kóddal

Kombináljon több ismétlődő sort egy Kutools for Excel programba

Kombináljon több ismétlődő sort, és összegezze/átlagolja az értékeket a Kutools for Excel segítségével


nyíl kék jobb buborékEgyesítsen több ismétlődő sort VBA kóddal

A következő VBA-kód segíthet a sorok duplikálásában az A oszlop értéke alapján, és a következő kód csak két oszlopra vonatkozik. Tehát, ha két oszlopadata van, akkor ez a kód kedvez neked.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: több sor egyetlen kombinálása

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. Ezután nyomja meg a gombot F5 gombot, és megjelenik egy felszólító mező, amely emlékeztet arra, hogy válasszon egy tartományt, amelyet össze kell kapcsolnia. Lásd a képernyőképet:

doc-advanced-comb3

4. Kattintson a gombra OK, a B oszlopban szereplő értékeket egy rekordba egyesítettük és szóközökkel elválasztottuk.

doc-advanced-comb4

Megjegyzések:

1. Ez a kód megsemmisítheti az eredeti adatokat, amikor használja, jobb, ha először biztonsági másolatot készít az adatokról.

2. Ezt a kódot csak két oszlopra alkalmazzák, ha kettőnél több oszlop van, akkor ez a kód csak az első két oszlopot egyesíti, és eltávolítja az egyéb oszlopok adatait. A kód használatakor óvatosnak kell lennie.


nyíl kék jobb buborékKombináljon több ismétlődő sort egy Kutools for Excel programba

Most, hogy a fenti kódnak vannak bizonyos korlátai és kockázatai, van-e hasznos és biztonságos módja ennek a munkának a befejezéséhez? Val vel Kutools az Excel számára'S Haladó kombinált sorok segédprogrammal gyorsan eltávolíthat több ismétlődő sort az oszlopok alapján és egyesítheti, vagy elvégezhet számításokat más rekordok számára megfelelő cellákba.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

A Kutools for Excel telepítése után tegye a következőket:

1. Válassza ki azt a tartományadatot, amelyet duplikátumokkal kíván kombinálni.

doc-advanced-comb5

2. Ezután kattintson Kutools > Tartalom konverter > Haladó kombinált sorok. Lásd a képernyőképet:

doc-advanced-comb6

3. Az Haladó kombinált sorok párbeszédpanelen válassza ki az oszlop nevét azon kulcsoszlopokként, amelyek alapján értékeket kíván kombinálni, majd kattintson a gombra Kulcsoszlopok. Lásd a képernyőképet:

doc-advanced-comb7

4. Ezután kattintson arra az oszlopra, hogy az értékeket egyetlen rekordba kell egyesítenie, majd kattintson a gombra Kombinálja a műveleteket És válasszon Csak elválasztóval kombinálható, és válasszon egy elválasztót, amelyet el kell választania az egyesített értékektől a megfelelő listától. Lásd a képernyőképet:

doc-advanced-comb8

5. A beállítások elvégzése után kattintson a gombra OK, és az adatok a kulcsoszlopok alapján egyesülnek és elválasztókkal lesznek elválasztva.

doc-advanced-comb9

Jegyzet: Ha nem kell beállítania a műveleteket a többi oszlophoz, csak tartsa meg az alapértelmezett állapotot.


nyíl kék jobb buborékKombináljon több ismétlődő sort, és összegezze/átlagolja az értékeket a Kutools for Excel segítségével

Ezzel a multifunkcionális Haladó kombinált sorok segédprogrammal kombinálhatja a duplikált sorokat, és elvégezhet néhány számítást az értékekhez is.

1. Válassza ki azt a tartományadatot, amelyet duplikátumokkal kíván kombinálni.

2. Menjen a Haladó kombinált sorok párbeszédablak;

  • (1.) Jelöljön ki egy oszlop nevet kulcsoszlopként, amely alapján más oszlopértékeket szeretne kiszámítani, majd kattintson Kulcsoszlopok;
  • (2.) Jelölje ki azt az oszlopot, amelyhez el kell végeznie az értékek számítását, majd kattintson Kombinálja a műveleteket > Kombinálja a számítást, majd válasszon egy számítási típust, amelyre szüksége van, ebben az esetben én választom Összeg. Lásd a képernyőképet:

doc-advanced-comb10

3. Ha nem kell beállítania a műveleteket a többi oszlophoz, csak tartsa meg az alapértelmezett állapotot, majd kattintson a gombra OK, és az A oszlop ismétlődő értékeit összevonjuk, és a B oszlop megfelelő értékeit összeadjuk. Képernyőképek megtekintése:

doc-advanced-comb11 -2 doc-advanced-comb12

Megjegyzések:

1. Ha ellenőrzi Adataim fejléceket tartalmaznak opciót, a tartomány fejléceit (az első sort) figyelmen kívül hagyja, amikor ezt a segédprogramot alkalmazza.

2. Használjon formázott értékeket: megtartja az értékek formázását a duplikált cellák egyesítése után.

3. Ez a segédprogram nem áll rendelkezésre adatok szűrésére.

Kattintson, ha többet szeretne megtudni erről a Haladó kombinált sorok funkcióról.


Kapcsolódó cikk:

Kombinálja a duplikált sorokat, és összegezze az értékeket

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have used the code above successfully in the past however today, it is deleting column B. Looks like it's just removing duplicates...not sure what the issue is.

Sample Data
Reece, Ashley G01-Registered-UWG
Reece, Chris G02-Registered-KSU
Reece, Chris G03-Dropped-KSU
Reece, Jayden G02-Registered-UNG
Reece, Jayden G02-Withdrawn-UNG
This comment was minimized by the moderator on the site
I have in column A

1 Cast
2 Crew
3 Hiring
4 Cast
5 Hiring
6 Crew

I need these unique CAST CREW AND HIRING in another column without delete in column A entries.

Ex: I need (after formula)

1 Cast
2 Crew
3 Hiring

Is it possible by formula?
This comment was minimized by the moderator on the site
Above Macro only Combine the limited cell(e.g 20 cells) in b column. How to Combine more cells
This comment was minimized by the moderator on the site
Same - 2021 and this still only works if you have like 20 rows...
This comment was minimized by the moderator on the site
I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?
This comment was minimized by the moderator on the site
Same here. I was about to purchase because the tools are very nice, but figured I would try it first. Combine never works. I tried it for about 3 weeks now and it always locks up. No matter the power of my computer (ran on my at home powerhouse computer, same issue)
I kept cutting down to less and less data to see if it would work but it still would not.
The last one I tried was 4 columns and 100k rows and it still locked up. Not very useful unless you have like < 100 rows or something.
This comment was minimized by the moderator on the site
Same here, I filtered my data all the way down to 4 columns and 100k rows and it still work not work. I have tried this for 3 weeks now and unable to successfully complete my task. Kutools will only work if you have very few rows.
This comment was minimized by the moderator on the site
[quote]I've found that the "Combine multiple duplicate rows and sum/average the values" feature within KUTools does not work if the numbers in the row have a comma or period. This makes the tool unusable for combining and summing currency fields (which is why I tried the product in first place). I'm currently using the trial version which states that it is full-functioned; is it possible that this works in the paid version?By David Greene[/quote] Sorry, we will fix it in next version.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations