Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako združiti edinstvene vrednosti v Excelu?

Če imam dolg seznam vrednot, ki so posejane z nekaterimi podvojenimi podatki, zdaj želim najti samo edinstvene vrednosti in jih nato združiti v eno celico. Kako se lahko hitro in enostavno ukvarjam s tem problemom v Excelu?

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

Poiščite edinstvene vrednosti v stolpcu in jih združite v eno celico z orodji Kutools for Excel

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

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


puščica modra desno mehurček Poiščite edinstvene vrednosti v stolpcu in jih združite v eno celico s kodo VBA


Naslednja Uporabniško določeno funkcijo vam lahko pomagajo združiti le enolične vrednosti v eno celico s seznama, storite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: združite edinstvene vrednosti v eno celico:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    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, kamor želite izpisati združeni rezultat, in pritisnite Vnesite ključ za pridobitev edinstvenega združenega rezultata, si oglejte posnetek zaslona:

doc concatenate uniques 1

Opombe: V zgornji formuli, A1: A17 je obseg celic, ki ga želite povezati, in vejico ","Je separator, ki ga potrebujete za ločevanje kombiniranih vrednosti, lahko jih spremenite v svoje potrebe.


puščica modra desno mehurček Poiščite edinstvene vrednosti v stolpcu in jih združite v eno celico z orodji Kutools for Excel

Če niste seznanjeni s kodo VBA, Kutools za Excel vam lahko tudi pomaga, lahko kombinirate Izberite podvojene in enolične celice in Združite pripomočke za dosego želenega rezultata.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

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

1. Izberite seznam celic, ki jih želite združiti samo edinstvene vrednosti.

2. Kliknite Kutools > Izberite > Izberite podvojene in enolične celice, si oglejte sliko zaslona:

doc concatenate uniques 2

3. v Izberite podvojene in enolične celice pogovorno okno, izberite Vse edinstvene (vključno z duplikati 1 st) možnost pod Pravilo razdelek, glejte sliko zaslona:

nasveti: Če želite združiti edinstvene vrednosti, razen prvega pojavnega dvojnika, preverite Edinstvene vrednosti možnost.

doc concatenate uniques 3

4. Nato kliknite OK in izbrani so samo edinstvene vrednosti, nato pa pritisnite Ctrl + C jih kopirate in jih prilepite na določeno mesto s pritiskom na Ctrl + V, si oglejte sliko zaslona:

doc concatenate uniques 4

5. Izberite prilepljene edinstvene celice in kliknite Kutools > Združite, si oglejte sliko zaslona:

doc concatenate uniques 5

6. v Združite stolpce ali vrstice izberite pogovorno okno Združite v eno celico pod Združite izbrane celice glede na naslednje možnosti, nato pa določite ločilo za svoje kombinirane podatke, glejte sliko zaslona:

doc concatenate uniques 6

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

doc concatenate uniques 7

Brezplačno prenesete Kutools za Excel zdaj!


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

V drugem primeru imate vrsto podatkov, ki vključujejo dva stolpca, zdaj pa želite navesti samo edinstvene vrednosti in združiti njihove ustrezne vrednosti drugega stolpca, da dobite naslednji rezultat, ali imate kakšne dobre načine za dokončanje tega opravila v Excelu?

doc concatenate uniques 8

Za to opravilo lahko uporabite naslednjo kodo VBA, storite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

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

Sub test()
'updateby Extendoffice 20151228
    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 ključ za zagon te kode in izpisano polje za hitro klicanje, ki vas opomni, da izberete obseg podatkov, ki ga želite združiti glede na edinstvene vrednosti, glejte sliko zaslona:

doc concatenate uniques 9

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

Opombe: V zgornji kodi lahko spremenite rdeče vejice xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) v tem skriptu na vse druge razmejitvene datoteke, ki jih želite ločiti s kombiniranimi podatki.


puščica modra desno mehurček Navedite edinstvene vrednosti in združite ustrezne vrednosti s programom Kutools for Excel

Če imate Kutools za Excel, Z njegovim Napredne kombinacije vrst funkcijo, lahko ta problem hitro in enostavno rešite brez kode.

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

1. Najprej morate narediti kopijo prvotnih podatkov, če želite ohraniti izvirne podatke. Potem izberite obseg podatkov, ki ga želite združiti glede na edinstvene vrednosti.

2. Nato kliknite Kutools > vsebina > Napredne kombinacije vrst, si oglejte sliko zaslona:

doc concatenate uniques 10

3. v Napredne kombinacije vrst v pogovornem oknu kliknite ime stolpca, v katerega želite navesti samo edinstvene vrednosti, in kliknite Primarni ključ, si oglejte sliko zaslona:

doc concatenate uniques 11

4. Nato kliknite drugo ime stolpca, ki ga želite združiti, in kliknite Združite, in izberite enega ločila za ločevanje združenih podatkov, glejte sliko zaslona:

doc concatenate uniques 12

5. In nato kliknite Ok gumba, so bile vrednosti združene glede na edinstvene vrednosti drugega stolpca, kot je prikazano spodaj prikazano sliko:

doc concatenate uniques 13

Brezplačno prenesete Kutools za Excel zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1