Hogyan lehet összefűzni az egyedi értékeket az Excelben?

Ha van egy hosszú listám az értékekről, amelyek néhány duplikált adattal vannak feltöltve, most csak az egyedi értékeket szeretném megkeresni, majd összefűzni őket egyetlen cellába. Hogyan tudnám gyorsan és egyszerűen kezelni ezt a problémát az Excel programban?

Keressen egyedi értékeket egy oszlopban, és összefűzze azokat egy cellába VBA kóddal

Keressen egyedi értékeket egy oszlopban, és fűzze össze őket egy cellába a Kutools for Excel segítségével

Soroljon fel egyedi értékeket, és vonja össze a megfelelő értékeket VBA kóddal

Sorolja fel az egyedi értékeket, és kapcsolja össze a megfelelő értékeket a Kutools for Excel segítségével

Keressen egyedi értékeket egy oszlopban, és összefűzze azokat egy cellába VBA kóddal

A következő Felhasználó által definiált funkció segíthet abban, hogy a listából csak az egyedi értékeket egyesítse egyetlen cellába, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

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

VBA kód: Egyesítse az egyedi értékeket egyetlen cellába:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Ezután térjen vissza a munkalapra, és írja be ezt a képletet: = ConcatUniq (A1: A17, ",") egy üres cellába, ahol ki akarja adni a összefűzött eredményt, majd nyomja meg a gombot belép kulcs az egyedi összefűzött eredmény eléréséhez, lásd a képernyőképet:

Megjegyzések: A fenti képletben A1: A17 a összefűzni kívánt cellatartomány, és a vessző „,”Az elválasztó, amellyel el kell választania az egyesített értékeket, ezeket megváltoztathatja az Ön igényeinek megfelelően.

Keressen egyedi értékeket egy oszlopban, és fűzze össze őket egy cellába a Kutools for Excel segítségével

Ha nem ismeri a VBA kódot, Kutools az Excel számára is segíthet, kombinálhatja a Válassza az Ismétlődő és egyedi cellák lehetőséget és a Kombájn segédprogramok a kívánt eredmény elérése érdekében.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azon cellák listáját, amelyekben csak az egyedi értékeket kívánja egyesíteni.

2. Kattints Kutools > választ > Válassza az Ismétlődő és egyedi cellák lehetőséget, lásd a képernyőképet:

3. Az Válassza az Ismétlődő és egyedi cellák lehetőséget párbeszédpanelen válassza ki Minden egyedi (beleértve az 1. duplikátumot is) lehetőség a Szabály szakasz, lásd a képernyőképet:

tippek: Ha egyesíteni szeretné az egyedi értékeket, az első megjelenő duplikátumok nélkül, jelölje be Csak egyedi értékek opciót.

4. Ezután kattintson OK gombot, és csak az egyedi értékeket választotta ki, majd nyomja meg a gombot Ctrl + C másoláshoz, és a gombbal illessze be egy adott helyre Ctrl + V, lásd a képernyőképet:

5. Válassza ki a beillesztett egyedi cellákat, majd kattintson a gombra Kutools > Egyesítés és felosztás > Kombinálja a sorokat, oszlopokat vagy cellákat adatok elvesztése nélkül, lásd a képernyőképet:

6. Az Kombinálja az oszlopokat vagy a sorokat párbeszédpanelen válassza a lehetőséget Egyesítsd egyetlen cellába alatt a A kijelölt cellák egyesítése a következő lehetőségek szerint, majd adjon meg elválasztót a kombinált adatokhoz, lásd a képernyőképet:

7. Ezután kattintson Ok or Jelentkezem gombra, a kibontott egyedi értékeket egyetlen cellába összefűztük, az alábbi képernyőkép szerint:

Ingyenesen töltse le a Kutools for Excel programot most!

Soroljon fel egyedi értékeket, és vonja össze a megfelelő értékeket VBA kóddal

Egy másik esetben két oszlopot tartalmazó adattartománya van, és most csak az egyedi értékeket szeretné felsorolni, és összefűzni a megfelelő értékeket egy másik oszlopban, hogy a következő eredményt kapja: Van-e jó módja a munka befejezéséhez az Excelben?

Itt a következő VBA kódot alkalmazhatja ennek a munkának a kezelésére, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

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

VBA kód: Sorolja fel az egyedi értékeket és összefűzi a megfelelő adatokat

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    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
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az egyes értékek alapján összefűzni kívánt adattartományt, lásd a képernyőképet:

4. Kattints OK, az egyedi értékeket kibontották, és a megfelelő oszlopokat egy másik oszlopban összefűzték egy új munkalapba.

Megjegyzések: A fenti kódban megváltoztathatja a piros vesszőt xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) ebben a szkriptben más olyan elválasztókhoz, amelyekkel el akarja különíteni az egyesített adatokat.

Sorolja fel az egyedi értékeket, és kapcsolja össze a megfelelő értékeket a Kutools for Excel segítségével

Ha van Kutools az Excel számára, Annak Haladó kombinált sorok funkcióval, kód nélkül gyorsan és egyszerűen megoldhatja ezt a problémát.

1. Először készítsen másolatot az eredeti adatokról, ha meg akarja őrizni az eredeti adatokat. Ezután válassza ki az összefűzni kívánt adattartományt az egyedi értékek alapján.

2. Ezután kattintson Kutools > Egyesítés és felosztás > Haladó kombinált sorok, lásd a képernyőképet:

3. Az Haladó kombinált sorok párbeszédpanelen kattintson az oszlop nevére, amelyre csak az egyedi értékeket kívánja felsorolni, majd kattintson a gombra Elsődleges kulcs, lásd a képernyőképet:

4. Ezután kattintson egy másik összefűzni kívánt oszlop nevére, majd kattintson a gombra Kombájn, és válasszon egy elválasztót az egyesített adatok szétválasztásához, lásd a képernyőképet:

5. Kattintson a gombra Ok gombra, az értékeket összefűztük egy másik oszlop egyedi értékei alapján, az alábbi képernyőképen:

Ingyenesen töltse le a Kutools for Excel programot most!