Note: The other languages of the website are Google-translated. Back to English

Sut i gyd-fynd â gwerthoedd unigryw yn Excel?

Os oes gen i restr hir o werthoedd a oedd yn cynnwys rhywfaint o ddata dyblyg, nawr, rwyf am ddod o hyd i'r gwerthoedd unigryw yn unig ac yna eu cyd-fynd yn un gell. Sut allwn i ddelio â'r broblem hon yn gyflym ac yn hawdd yn Excel?

Dewch o hyd i werthoedd unigryw mewn colofn a'u cyd-fynd yn un gell â chod VBA

Dewch o hyd i werthoedd unigryw mewn colofn a'u cyd-fynd yn un gell â Kutools ar gyfer Excel

Rhestrwch werthoedd unigryw a chyd-fynd â gwerthoedd cyfatebol â chod VBA

Rhestrwch werthoedd unigryw a chyd-fynd â gwerthoedd cyfatebol â Kutools ar gyfer Excel


swigen dde glas saeth Dewch o hyd i werthoedd unigryw mewn colofn a'u cyd-fynd yn un gell â chod VBA

Mae'r canlynol Swyddogaeth Diffiniedig Defnyddiwr yn gallu'ch helpu chi i gyd-fynd â'r gwerthoedd unigryw yn unig mewn un gell o restr, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Concatenate gwerthoedd unigryw i mewn i un gell:

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. Yna ewch yn ôl i'ch taflen waith, a nodi'r fformiwla hon: = ConcatUniq (A1: A17, ",") i mewn i gell wag lle rydych chi am allbwn y canlyniad cydgysylltiedig, a gwasgwch Rhowch allwedd i gael y canlyniad cydgysylltiedig unigryw, gweler y screenshot:

doc concatenate unigryw 1

Nodyn: Yn y fformiwla uchod, A1: A17 yw'r amrediad celloedd rydych chi am gyd-daro, a'r coma “,”Yw'r gwahanydd sydd ei angen arnoch i wahanu'r gwerthoedd cyfun, gallwch eu newid i'ch angen.


swigen dde glas saeth Dewch o hyd i werthoedd unigryw mewn colofn a'u cyd-fynd yn un gell â Kutools ar gyfer Excel

Os nad ydych chi'n gyfarwydd â'r cod VBA, Kutools ar gyfer Excel hefyd yn gallu eich helpu chi, gallwch chi gyfuno'r Dewiswch Gelloedd Dyblyg ac Unigryw ac Cyfunwch cyfleustodau i gyflawni'r canlyniad sydd ei angen arnoch.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr! )

1. Dewiswch y rhestr o gelloedd rydych chi am gyfuno'r gwerthoedd unigryw yn unig.

2. Cliciwch Kutools > dewiswch > Dewiswch Gelloedd Dyblyg ac Unigryw, gweler y screenshot:

3. Yn y Dewiswch Gelloedd Dyblyg ac Unigryw blwch deialog, dewiswch Pob un unigryw (Gan gynnwys dyblygu cyntaf) opsiwn o dan y Rheol adran, gweler y screenshot:

Awgrymiadau: Os ydych chi am gyfuno'r gwerthoedd unigryw heb gynnwys ymddangos yn ddyblyg gyntaf, gwiriwch Gwerthoedd unigryw yn unig opsiwn.

doc concatenate unigryw 3

4. Yna cliciwch OK botwm, a dim ond y gwerthoedd unigryw sydd wedi'u dewis, ac yna pwyswch Ctrl + C i'w copïo, a'u pastio i leoliad penodol trwy wasgu Ctrl + V, gweler y screenshot:

doc concatenate unigryw 4

5. Dewiswch y celloedd unigryw sydd wedi'u pastio, ac yna cliciwch Kutools > Uno a HolltiCyfuno Rhesi, Colofnau neu Gelloedd heb Golli Data, gweler y screenshot:

6. Yn y Cyfuno Colofnau neu Rhesi blwch deialog, dewiswch Cyfunwch i mewn i un gell O dan y Cyfuno celloedd dethol yn ôl yr opsiynau canlynol, ac yna nodwch wahanydd ar gyfer eich data cyfun, gweler y screenshot:

doc concatenate unigryw 6

7. Yna cliciwch Ok or Gwneud cais botwm, mae'r gwerthoedd unigryw a dynnwyd wedi'u cyd-fynd yn un gell fel y dangosir y llun a ganlyn:

doc concatenate unigryw 7

Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr!


swigen dde glas saeth Rhestrwch werthoedd unigryw a chyd-fynd â gwerthoedd cyfatebol â chod VBA

Mewn achos arall, mae gennych ystod o ddata sy'n cynnwys dwy golofn, ac yn awr, rydych chi am restru'r gwerthoedd unigryw yn unig a chyd-fynd â'u gwerthoedd cyfatebol mewn colofn arall i gael y canlyniad canlynol, a oes gennych chi unrhyw ffyrdd da o orffen y swydd hon. yn Excel?

doc concatenate unigryw 8

Yma, gallwch gymhwyso'r cod VBA canlynol i ddelio â'r swydd hon, gwnewch fel a ganlyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Rhestrwch werthoedd unigryw a chyd-fynd â data cyfatebol

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei gyd-fynd yn seiliedig ar y gwerthoedd unigryw, gweler y screenshot:

doc concatenate unigryw 9

4. Cliciwch OK, mae'r gwerthoedd unigryw wedi'u tynnu ac mae eu gwerthoedd cyfatebol mewn colofn arall wedi'u cyd-fynd gyda'i gilydd i mewn i daflen waith newydd.

Nodyn: Yn y cod uchod, gallwch newid y coma coch xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) yn y sgript hon i unrhyw amffinyddion eraill yr ydych am wahanu'r data cyfun.


swigen dde glas saeth Rhestrwch werthoedd unigryw a chyd-fynd â gwerthoedd cyfatebol â Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Rhesi Cyfuno Uwch nodwedd, gallwch ddatrys y broblem hon yn gyflym ac yn hawdd heb unrhyw god.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn :( Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr! )

1. Yn gyntaf, dylech wneud copi o'ch data gwreiddiol os ydych chi am gadw'r data gwreiddiol. Ac yna dewiswch yr ystod ddata rydych chi am ei chyd-daro yn seiliedig ar y gwerthoedd unigryw.

2. Yna cliciwch Kutools > Uno a Hollti > Rhesi Cyfuno Uwch, gweler y screenshot:

3. Yn y Rhesi Cyfuno Uwch blwch deialog, cliciwch enw'r golofn rydych chi am ei rhestru dim ond y gwerthoedd unigryw, a chliciwch Allwedd Cynradd, gweler y screenshot:

doc concatenate unigryw 11

4. Yna cliciwch enw colofn arall yr ydych am ei gyd-daro, a chlicio Cyfunwch, a dewis un amffinydd ar gyfer gwahanu'ch data cyfun, gweler y screenshot:

doc concatenate unigryw 12

5. Ac yna cliciwch Ok botwm, mae'r gwerthoedd wedi'u cyd-daro yn seiliedig ar werthoedd unigryw colofn arall fel y dangosir y llun a ganlyn:

doc concatenate unigryw 13

Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr!


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch! Mae swyddogaeth wych a syml yn gweithio'n berffaith i mi! https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roeddwn i'n defnyddio'r swyddogaeth VBA yn llwyddiannus ond mae rhywbeth wedi mynd o'i le - dim ond #VALUE ydw i! dychwelwyd gwall yn awr mewn mannau lle'r oedd yn gweithio o'r blaen. Rwyf wedi cribo fy nata am wallau ac wedi ceisio tynnu ac ail-greu'r modiwl VBA, ac ailenwi'r swyddogaeth, nid yw'n ymddangos bod unrhyw beth yn gweithio. Byddai unrhyw help yn cael ei werthfawrogi, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Erthygl ragorol!
Mae gen i cwestiwn.
Sut byddai dileu bylchau o'r dechrau a'r diwedd i osgoi dyblygu (a achosir gan fylchau) yn swyddogaeth ConcatUniq?
Diolch yn fawr iawn!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir