Preskoči na glavno vsebino

Kako združiti edinstvene vrednosti v Excelu?

Če imam dolg seznam vrednosti, ki je zapolnjen z nekaj podvojenimi podatki, želim zdaj najti samo edinstvene vrednosti in jih nato združiti v eno celico. Kako sem se lahko hitro in enostavno spopadel s to težavo v Excelu?

V stolpcu poiščite edinstvene vrednosti in jih združite v eno celico s kodo VBA

V stolpcu poiščite edinstvene vrednosti in jih združite v eno celico s programom Kutools za Excel

Navedite edinstvene vrednosti in združite ustrezne vrednosti s kodo VBA

Navedite edinstvene vrednosti in združite ustrezne vrednosti s programom Kutools za Excel


puščica modri desni mehurček V stolpcu poiščite edinstvene vrednosti in jih združite v eno celico s kodo VBA

Naslednja Uporabniško določena funkcija vam lahko pomaga združiti samo edinstvene vrednosti v eno celico s seznama, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Združite edinstvene vrednosti v eno celico:

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. Nato se vrnite na svoj delovni list in vnesite to formulo: = ConcatUniq (A1: A17, ",") v prazno celico, kjer želite izpisati združeni rezultat, in pritisnite Vnesite , da dobite edinstveni združeni rezultat, glejte posnetek zaslona:

doc združujejo unikatnosti 1

Opombe: V zgornji formuli, A1: A17 je obseg celic, ki ga želite združiti, in vejica ","Je ločilo, ki ga potrebujete za ločevanje kombiniranih vrednosti, lahko ga spremenite po svojih željah.


puščica modri desni mehurček V stolpcu poiščite edinstvene vrednosti in jih združite v eno celico s programom Kutools za Excel

Če kode VBA ne poznate, Kutools za Excel vam lahko tudi pomaga, lahko kombinirate Izberite Podvojene in edinstvene celice in Združite pripomočkov za dosego želenega rezultata.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh.

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj! )

1. Izberite seznam celic, za katere želite združiti samo edinstvene vrednosti.

2. Kliknite Kutools > Izberite > Izberite Podvojene in edinstvene celice, glej posnetek zaslona:

3. v Izberite Podvojene in edinstvene celice pogovorno okno, izberite Vsi unikatni (vključno s 1. dvojniki) možnost pod Pravilo razdelek, glej posnetek zaslona:

nasveti: Če želite združiti unikatne vrednosti brez prvega dvojnika, označite Samo edinstvene vrednosti možnost.

doc združujejo unikatnosti 3

4. Nato kliknite OK in izbrane so bile samo edinstvene vrednosti, nato pa pritisnite Ctrl + C da jih kopirate in jih s pritiskom prilepite na določeno mesto Ctrl + V, glej posnetek zaslona:

doc združujejo unikatnosti 4

5. Izberite prilepljene edinstvene celice in kliknite Kutools > Spoji in razdeliZdružite vrstice, stolpce ali celice brez izgube podatkov, glej posnetek zaslona:

6. v Združi stolpce ali vrstice izberite pogovorno okno Združite v eno celico pod Če želite združiti izbrane celice v skladu z naslednjimi možnostmiin nato določite ločilo za vaše kombinirane podatke, glejte posnetek zaslona:

doc združujejo unikatnosti 6

7. Nato kliknite Ok or Uporabi gumb, so izvlečene edinstvene vrednosti združene v eno samo celico, kot je prikazano na sliki spodaj:

doc združujejo unikatnosti 7

Brezplačno prenesite Kutools za Excel zdaj!


puščica modri desni mehurček Navedite edinstvene vrednosti in združite ustrezne vrednosti s kodo VBA

V drugem primeru imate nabor podatkov, ki vključuje dva stolpca, zdaj pa želite navesti samo edinstvene vrednosti in združiti njihove ustrezne vrednosti v drugem stolpcu, da dobite naslednji rezultat. v Excelu?

doc združujejo unikatnosti 8

Tu lahko za to delo uporabite naslednjo kodo VBA, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: navedite edinstvene vrednosti in združite ustrezne podatke

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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vas opomni, da izberete obseg podatkov, ki ga želite združiti na podlagi edinstvenih vrednosti, glejte posnetek zaslona:

doc združujejo unikatnosti 9

4. Kliknite OK, edinstvene vrednosti so bile izvlečene in njihove ustrezne vrednosti v drugem stolpcu združene v nov delovni list.

Opombe: V zgornji kodi lahko spremenite rdečo vejico xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) v tem skriptu do drugih ločil, ki jih želite ločiti od združenih podatkov.


puščica modri desni mehurček Navedite edinstvene vrednosti in združite ustrezne vrednosti s programom Kutools za Excel

Če imate Kutools za Excel, Z njegovim Napredne kombinirane vrstice to težavo lahko hitro in enostavno rešite brez kakršne koli kode.

Po namestitvi Kutools za Excel, naredite naslednje :( Brezplačno prenesite Kutools za Excel zdaj! )

1. Najprej naredite kopijo izvirnih podatkov, če želite ohraniti izvirne podatke. Nato na podlagi edinstvenih vrednosti izberite obseg podatkov, ki ga želite združiti.

2. Nato kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice, glej posnetek zaslona:

3. v Napredne kombinirane vrstice v pogovornem oknu kliknite ime stolpca, za katerega želite navesti samo edinstvene vrednosti, in kliknite Primarni ključ, glej posnetek zaslona:

doc združujejo unikatnosti 11

4. Nato kliknite drugo ime stolpca, ki ga želite združiti, in kliknite Združitein izberite ločilo za ločevanje združenih podatkov, glejte posnetek zaslona:

doc združujejo unikatnosti 12

5. In nato kliknite Ok , so vrednosti združene na podlagi edinstvenih vrednosti drugega stolpca, kot je prikazano na sliki spodaj:

doc združujejo unikatnosti 13

Brezplačno prenesite Kutools za Excel zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Excellent article!
I have a question.
How would delete blanks from start and end to avoid duplicates(caused by spaces) in function ConcatUniq?
Thank you very much!
This comment was minimized by the moderator on the site
I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
This comment was minimized by the moderator on the site
Thank you! Great and simple function works perfect for me! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations