Ugrás a tartalomra

Hogyan lehet szöveget összekapcsolni egy oszlopban, duplikátumok nélkül az Excelben?

Tudja, hogyan lehet szöveget összekapcsolni egy oszlopból egy cellába, duplikátumok nélkül az Excelben? És mi van, ha egy oszlopban szöveget egyesítenek duplikációk nélkül, a cella adott értéke alapján? Ez a cikk módszereket kínál a problémák megoldására.

Csatlakoztassa a szövegeket egy oszlopba, képletek nélkül
Csatlakoztassa a szövegeket egy oszlopba másolatok nélkül egy másik cellaérték alapján, VBA kóddal
Csodálatos eszközzel egyszerűen összekapcsolhatja a szövegeket egy oszlopban egy másik cellaérték alapján

További bemutató a cellák kombinálásához ...


Csatlakoztassa a szövegeket egy oszlopba, képletek nélkül

Amint az alábbi képernyőképen látható, az A oszlop szövegeit egyetlen cellába kívánja másolni, duplikátumok nélkül. Kérjük, tegye a következőket.

1. Jelöljön ki egy üres cellát, másolja bele az alábbi képletet, és nyomja meg a más + műszak + belép gombokat egyidejűleg.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

Jegyzet: A képletben „, ”Az egyesített szövegek elválasztója; A2: A12 az oszlopcellák, amelyeket össze fog kötni. Kérjük, változtassa meg őket szükség szerint.

Most a megadott oszlopban lévő szövegeket duplikátumok nélkül egyesítik.


Csatlakoztassa a szövegeket egy oszlopba másolatok nélkül egy másik cellaérték alapján, VBA kóddal

Előfordulhat, hogy egy oszlopban szövegrészekre van szükség másolatok nélkül, egy másik cellában lévő érték alapján, amint az a képernyőképen látható, az alábbiak szerint kaphatja meg.

1. A munkalap tartalmazza azokat a szövegeket, amelyekhez csatlakozni szeretne, nyomja meg a gombot más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modul, majd másolja az alábbi VBA kódot a Modul kód ablakába.

VBA kód: Csatlakoztassa az oszlop szövegeit másolatok nélkül egy másik cellaérték alapján

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a tartományt, amely tartalmazza mind az értékeket, amelyek alapján a szövegeket összekapcsolja, mind azokat a szövegeket, amelyekhez csatlakozni fog, majd kattintson a gombra OK gombot.

Ezután az egyedi értékeket kinyerjük, és a megfelelő oszlopokat egy másik oszlopban összekapcsoljuk és új munkalapba helyezzük.


Csodálatos eszközzel egyszerűen összekapcsolhatja a szövegeket egy oszlopban egy másik cellaérték alapján

Talán nem vagy megfelelő a képletben vagy a VBA-kódban. Itt ajánlja a Haladó kombinált sorok hasznossága Kutools az Excel számára neked. Ezzel a segédprogrammal egyszerűen több kattintással egyesítheti a szöveget egy oszlopban egy másik cella értéke alapján.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

Jegyzet: Mivel a segédprogram közvetlenül az eredeti tartományban lesz alkalmazható, az alábbi művelet végrehajtása előtt készítsen másolatot az eredeti adatokról.

1. Válassza ki a tartományt (tartalmazza azokat a szövegeket, amelyekhez csatlakozni fog, és az értéket, amelyek alapján a szövegekhez csatlakozik), kattintson Kutools > Tartalom > Haladó kombinált sorok. Lásd screenshot:

2. Ban,-ben Haladó kombinált sorok párbeszédpanelen tegye a következőket:

  • Jelölje ki azokat az oszlopokat, amelyek tartalmazzák azokat az értékeket, amelyek alapján a szövegeket összekapcsolja, majd kattintson a gombra Elsődleges kulcs;
  • Jelölje ki azt az oszlopot, amely tartalmazza azokat a szövegeket, amelyeket cellába fog kötni, majd kattintson a gombra Kombájn > Vessző;
  • Ha van még oszlop, kérjük, adja meg a feltételeket. Ebben az esetben kiválasztom az Értékesítés oszlopot, és kiválasztom Számít > Összeg.
  • Kattintson az OK gomb. Lásd a képernyőképet:

Ekkor láthatja, hogy a megadott oszlop összes szövege összekapcsolódik a kulcsoszlop alapján. Lásd a képernyőképet:

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kapcsolódó cikkek

Kombinálja a duplikált sorokat, és összegezze az értékeket az Excelben
Az Excel programban mindig találkozhat ezzel a problémával, amikor van olyan adattartománya, amely tartalmaz néhány ismétlődő bejegyzést, és most össze kívánja kapcsolni az ismétlődő adatokat, és a megfelelő értékeket egy másik oszlopban összegzi. Hogyan oldhatná meg ezt a problémát? Próbálja ki a cikkben ismertetett módszereket.

Kombináljon több cellát egy cellába szóközzel, vesszővel vagy más elválasztóval az Excelben
Ha több oszlopból vagy sorból álló cellákat egyesít egyetlen cellává, az egyesített adatokat semmi sem választhatja el egymástól. De ha meg akarja őket választani meghatározott jelölésekkel, például szóközzel, vesszővel, pontosvesszővel vagy másokkal, hogyan teheti meg? Ez az oktatóanyag néhány módszert ismertet az Ön számára.

Összekapcsolja a cellákat, megtartva a szám / dátum formázást az Excelben
Észrevehette, hogy amikor a CONCATENATE függvényt alkalmazzuk az Excel programban, akkor a dátumformátum (2014-01-03) és a számformátum, például a pénznemformátum (734.7 USD), a százalékos formátum (48.9%), a tizedesjegy (24.5000) stb. eltávolításra kerülnek, és általános számként jelennek meg az összefűzési eredményekben. Ebben a cikkben számos megoldást találunk az adatok összefűzésére a dátum vagy szám formázásával az Excelben.

Fordítsa meg az összefűzés funkciót az Excelben
Mint mindannyian ismerjük, az Excel Concatenate funkciója segíthet abban, hogy több cellát egyesítsünk egy cellává, de néha a Concatenate függvény ellenkezőjét akarja megtenni, ez azt jelenti, hogy nem egyesíti a cellákat, hanem a cellák értékét több szétválasztott cellára osztja fel. Az ebben a cikkben szereplő módszerek segítenek a probléma megoldásában.

Összekapcsolja a cellákat, ha ugyanaz az érték létezik az Excel másik oszlopában
Ez a cikk olyan módszereket ismertet, amelyek megkönnyítik a cellák összefűzését, ha ugyanaz az érték létezik az Excel másik oszlopában.

További bemutató a cellák kombinálásához ...

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I like this formula, but often times i will have a blank cell in my data range and yet this formula won't work with blanks. how would i handle blank cells?
This comment was minimized by the moderator on the site
Thanks! This was helpful. I found that the formula below did the trick. I just needed to select a range to combine text, but didn't want to duplicate values.
=TEXTJOIN(", ",TRUE,UNIQUE($A2:$K2,TRUE))
This comment was minimized by the moderator on the site
This is a much easier way to join unique items based on another column:

=TEXTJOIN(", ",TRUE,UNIQUE(IF(Table1[Category]=Table2[Unique Categories],Table1[Items to Join],"")))

Works a treat, I use it a lot.
This comment was minimized by the moderator on the site
Thanks a Lot. You saved me.
This comment was minimized by the moderator on the site
Omg. You're a lifesaver, I was trying way more complex formulas and this worked like a charm! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations