Skip to main content

Conas luachanna uathúla in Excel a thabhairt le chéile?

Má tá liosta fada luachanna agam a raibh roinnt sonraí dúblacha iontu, anois, níl uaim ach na luachanna uathúla a fháil agus ansin iad a chur i gcill aonair. Conas a d’fhéadfainn déileáil leis an bhfadhb seo go tapa agus go héasca in Excel?

Faigh luachanna uathúla i gcolún agus déan iad a chomhtháthú i gcill amháin le cód VBA

Faigh luachanna uathúla i gcolún agus déan iad a chomhtháthú i gcill amháin le Kutools le haghaidh Excel

Liostaigh luachanna uathúla agus comhthreomhar le luachanna comhfhreagracha le cód VBA

Liostaigh luachanna uathúla agus luachanna comhfhreagracha comhthráthacha le Kutools for Excel


mboilgeog cheart gorm saighead Faigh luachanna uathúla i gcolún agus déan iad a chomhtháthú i gcill amháin le cód VBA

Seo a leanas Feidhm Sainithe ag an Úsáideoir in ann cabhrú leat ach na luachanna uathúla a chomhchuibhiú in aon chill amháin ó liosta, déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cuir luachanna uathúla i gcill aonair:

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. Ansin téigh ar ais chuig do bhileog oibre, agus iontráil an fhoirmle seo: = ConcatUniq (A1: A17, ",") isteach i gcill bhán inar mian leat an toradh comhtháthaithe a aschur, agus brúigh Iontráil eochair chun an toradh uathúil comhtháthaithe a fháil, féach an pictiúr:

doc comhcheangail uathúla 1

nótaí: San fhoirmle thuas, A1: A17 is é an raon cealla is mian leat a chomhchuibhiú, agus an camóg “,"Is é an deighilteoir atá uait na comhluachanna a scaradh, is féidir leat iad a athrú go do riachtanas.


mboilgeog cheart gorm saighead Faigh luachanna uathúla i gcolún agus déan iad a chomhtháthú i gcill amháin le Kutools le haghaidh Excel

Mura bhfuil tú eolach ar an gcód VBA, Kutools le haghaidh Excel freisin cabhrú leat, is féidir leat an Roghnaigh Cealla Dúblacha & Uathúla agus Chomhcheangail fóntais chun an toradh a theastaíonn uait a bhaint amach.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil :( Íoslódáil saor in aisce Kutools le haghaidh Excel Anois! )

1. Roghnaigh liosta na gcealla nach dteastaíonn uait ach na luachanna uathúla a chur le chéile.

2. Cliceáil Kutools > Roghnaigh > Roghnaigh Cealla Dúblacha & Uathúla, féach ar an scáileán:

3. Sa an Roghnaigh Cealla Dúblacha & Uathúla dialóg, roghnaigh Gach uathúil (lena n-áirítear an chéad dúblach) rogha faoin Riail alt, féach an pictiúr:

Leideanna: Más mian leat na luachanna uathúla a chur le chéile gan dúbailt a thaispeáint den chéad uair, seiceáil Luachanna uathúla amháin rogha.

doc comhcheangail uathúla 3

4. Ansin cliceáil OK cnaipe, agus níor roghnaíodh ach na luachanna uathúla, agus ansin brúigh Ctrl + C chun iad a chóipeáil, agus iad a ghreamú i suíomh ar leith trí bhrú Ctrl + V, féach ar an scáileán:

doc comhcheangail uathúla 4

5. Roghnaigh na cealla uathúla greamaithe, agus ansin cliceáil Kutools > Cumaisc & ScoiltComhcheangail Sraitheanna, Colúin nó Cealla gan Sonraí a chailleadh, féach ar an scáileán:

6. Sa an Comhcheangail Colúin nó Sraitheanna bosca dialóige, roghnaigh Comhcheangail i gcill aonair faoi ​​na Cealla roghnaithe a chur le chéile de réir na roghanna seo a leanas, agus ansin deighilteoir a shonrú le haghaidh do chuid sonraí comhcheangailte, féach an pictiúr:

doc comhcheangail uathúla 6

7. Ansin cliceáil Ok or Cuir iarratas isteach cnaipe, tá na luachanna uathúla eastósctha curtha le chéile in aon chill amháin mar a thaispeántar an scáileán a leanas:

doc comhcheangail uathúla 7

Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!


mboilgeog cheart gorm saighead Liostaigh luachanna uathúla agus comhthreomhar le luachanna comhfhreagracha le cód VBA

I gcás eile, tá raon sonraí agat a chuimsíonn dhá cholún, agus anois, níl uait ach na luachanna uathúla a liostáil agus a luachanna comhfhreagracha de cholún eile a chomhtháthú chun an toradh seo a leanas a fháil, an bhfuil aon bhealaí maithe agat chun an post seo a chríochnú in Excel?

doc comhcheangail uathúla 8

Anseo, is féidir leat an cód VBA seo a leanas a chur i bhfeidhm chun déileáil leis an bpost seo, déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Liostaigh luachanna uathúla agus comhthreomhar le sonraí comhfhreagracha

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a chomhtháthú a roghnú bunaithe ar na luachanna uathúla, féach an scáileán:

doc comhcheangail uathúla 9

4. Cliceáil OK, baineadh na luachanna uathúla agus tá a luachanna comhfhreagracha i gcolún eile curtha le chéile i mbileog oibre nua.

nótaí: Sa chód thuas, is féidir leat an camóg dearg a athrú xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) sa script seo chuig aon teorantóirí eile a theastaíonn uait na sonraí comhcheangailte a scaradh.


mboilgeog cheart gorm saighead Liostaigh luachanna uathúla agus luachanna comhfhreagracha comhthráthacha le Kutools for Excel

Má tá tú Kutools le haghaidh Excel, Lena Sraitheanna Comhcheangail Casta gné, is féidir leat an fhadhb seo a réiteach go tapa agus go héasca gan aon chód.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil :( Íoslódáil saor in aisce Kutools le haghaidh Excel Anois! )

1. Ar dtús, ba cheart duit cóip de do bhunsonraí a dhéanamh más mian leat na sonraí bunaidh a choinneáil. Agus ansin roghnaigh an raon sonraí a theastaíonn uait a chomhchuibhiú bunaithe ar na luachanna uathúla.

2. Ansin cliceáil Kutools > Cumaisc & Scoilt > Sraitheanna Comhcheangail Casta, féach ar an scáileán:

3. Sa an Sraitheanna Comhcheangail Casta bosca dialóige, cliceáil ainm an cholúin nach dteastaíonn uait ach na luachanna uathúla a liostáil, agus cliceáil Eochair Bhunscoile, féach ar an scáileán:

doc comhcheangail uathúla 11

4. Ansin cliceáil ainm colúin eile ar mhaith leat comhthrá a dhéanamh air, agus cliceáil Chomhcheangail, agus roghnaigh teorantóir amháin chun do shonraí comhcheangailte a dheighilt, féach an pictiúr:

doc comhcheangail uathúla 12

5. Agus ansin cliceáil Ok cnaipe, tá na luachanna comhchuibhithe bunaithe ar luachanna uathúla colún eile mar a leanas an pictiúr a thaispeántar:

doc comhcheangail uathúla 13

Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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