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
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:
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.
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.
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:
5. Izberite prilepljene edinstvene celice in kliknite Kutools > Spoji in razdeli > Združ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:
7. Nato kliknite Ok or Uporabi gumb, so izvlečene edinstvene vrednosti združene v eno samo celico, kot je prikazano na sliki spodaj:
Brezplačno prenesite Kutools za Excel zdaj!
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?
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:
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.
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:
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:
5. In nato kliknite Ok , so vrednosti združene na podlagi edinstvenih vrednosti drugega stolpca, kot je prikazano na sliki spodaj:
Brezplačno prenesite Kutools za Excel zdaj!
Najboljša pisarniška orodja za produktivnost
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...
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!