Hogyan lehet összefűzni a szöveget az Excel kritériumai alapján?
Ha feltételezem, hogy van egy azonosítószámú oszlopom, amely tartalmaz néhány duplikátumot és egy oszlop nevet, most szeretném összefűzni a neveket az egyedi azonosítószámok alapján, a bal oldali képernyőképen, hogy gyorsan összefoghassuk a szöveget kritériumok alapján, hogyan lehetne csinálni az Excel-ben?
Összevonja a szöveget kritériumok alapján a felhasználó által definiált funkcióval
Szöveg összefűzése kritériumok alapján a Kutools for Excel segítségével
Összevonja a szöveget kritériumok alapján a felhasználó által definiált funkcióval
A szöveg és az egyedi azonosító számok kombinálásához előbb kivonhatja az egyedi értékeket, majd létrehozhat egy felhasználó által definiált függvényt, hogy az egyedi azonosító alapján egyesítse a neveket.
1. Vegyük például a következő adatokat: előbb ki kell vonni az egyedi azonosító számokat, kérjük, alkalmazza ezt a tömbképletet: =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),""), Írja be ezt a képletet egy üres cellába, például a D2-be, majd nyomja meg a gombot Ctrl + Shift + Enter gombok együtt, lásd a képernyőképet:
típus: A fenti képletben A2: A15 az a lista adattartomány, amelyből egyedi értékeket szeretne kinyerni, D1 az oszlop első cellája, ahová ki szeretné tenni a kivonási eredményt.
2. Ezután húzza lefelé a kitöltő fogantyút az összes egyedi érték kibontásához, amíg üresek nem jelennek meg, lásd a képernyőképet:
3. Ebben a lépésben létre kell hoznia a Felhasználó által definiált funkció a nevek egyedi azonosító számok alapján történő kombinálásához tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.
4. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: összefűzi a szöveget kritériumok alapján
Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
ConcatenateIf = CVErr(xlErrRef)
Exit Function
End If
For i = 1 To CriteriaRange.Count
If CriteriaRange.Cells(i).Value = Condition Then
xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
End If
Next i
If xResult <> "" Then
xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function
5. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet az E2 cellába, = CONCATENATEIF ($ A $ 2: $ A $ 15, D2, $ B $ 2: $ B $ 15, ",") , lásd a képernyőképet:
6. Ezután húzza le a kitöltő fogantyút azokra a cellákra, amelyeken alkalmazni kívánja ezt a képletet, és az összes megfelelő nevet egyesítették az azonosító számok alapján, lásd a képernyőképet:
Tipp:
1. A fenti képletben A2: A15 az az eredeti adat, amely alapján össze akarsz kapcsolni, D2 a kivont egyedi érték, és B2: B15 a név oszlop, amelyet össze akarsz kapcsolni.
2. Amint láthatja, vesszővel elválasztott értékeket egyesítettem, bármilyen más karaktert használhat a képlet vesszőjének szükség szerinti megváltoztatásával.
Szöveg összefűzése kritériumok alapján a Kutools for Excel segítségével
Ha van Kutools az Excel számára, Annak Haladó kombinált sorok segédprogram segítségével gyorsan és kényelmesen összefűzheti a szövegalapot a kritériumok alapján.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, tegye a következőket:
1. Válassza ki az egyesíteni kívánt adattartományt egy oszlop alapján.
2. Kattints Kutools > Egyesítés és felosztás > Haladó kombinált sorok, lásd a képernyőképet:
3. Az Kombinálja a sorokat az oszlop alapján párbeszédpanelen kattintson az ID oszlopra, majd a gombra Elsődleges kulcs hogy ez az oszlop legyen az a kulcsoszlop, amelyre az összevont adatok alapulnak, lásd a képernyőképet:
4. Kattintson a gombra Név oszlopot, amelybe az értékeket egyesíteni szeretné, majd kattintson Kombájn opciót, és válasszon egy elválasztót az egyesített adatokhoz, lásd a képernyőképet:
5. Miután elvégezte ezeket a beállításokat, kattintson a gombra OK a párbeszédablakból való kilépéshez, és a B oszlopban lévő adatokat az A kulcsoszlop alapján egyesítettük. Lásd a képernyőképet:
Ezzel a szolgáltatással a következő probléma a lehető leghamarabb megoldódik:
Hogyan kombinálhat több sort egybe, és összegezheti a duplikátumokat az Excelben?
Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!
Demo: Szöveg összefűzése ugyanazon cella alapján egy másik oszlopban a Kutools for Excel segítségével
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!