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:
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
Egyesí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:
4. Kattintson a gombra OK, a B oszlopban szereplő értékeket egy rekordba egyesítettük és szóközökkel elválasztottuk.
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.
Kombiná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.
2. Ezután kattintson Kutools > Tartalom konverter > Haladó kombinált sorok. Lásd a képernyőképet:
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:
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:
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.
Jegyzet: Ha nem kell beállítania a műveleteket a többi oszlophoz, csak tartsa meg az alapértelmezett állapotot.
Kombiná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:
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:
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
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...
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!