Conas luachanna uathúla a chomhcheangal i Excel?
Má tá liosta fada luachanna agam a bhfuil roinnt sonraí dúblacha iontu, anois, ní theastaíonn uaim ach na luachanna uathúla a fháil agus ansin iad a chomhcheangal i gcill amháin. Conas is féidir liom déileáil leis an bhfadhb seo go tapa agus go héasca i 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 comhcheangail i gcill amháin iad Kutools for Excel
Liostaigh luachanna uathúla agus comhthreomhar le luachanna comhfhreagracha le cód VBA
Liostaigh luachanna uathúla agus comhcheangail luachanna comhfhreagracha le Kutools for Excel
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:
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.
Faigh luachanna uathúla i gcolún agus comhcheangail i gcill amháin iad Kutools for Excel
Mura bhfuil tú eolach ar an gcód VBA, Kutools for 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 for Excel : le níos mó ná 300 handy Excel breiseáin, saor chun triail a bhaint as gan aon teorainn i 30 lá. |
Tar éis a shuiteáil Kutools for Excel, déan mar a leanas le do thoil :( Free Download Kutools for 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.
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:
5. Roghnaigh na cealla uathúla greamaithe, agus ansin cliceáil Kutools > Cumaisc & Scoilt > Comhcheangail 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:
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:
Free Download Kutools for Excel Anois!
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 tú ag iarraidh ach na luachanna uathúla a liostáil agus a luachanna comhfhreagracha de cholún eile a chomhcheangal chun an toradh seo a leanas a fháil, an bhfuil bealaí maith agat chun an post seo a chríochnú isteach Excel?
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:
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.
Liostaigh luachanna uathúla agus comhcheangail luachanna comhfhreagracha le Kutools for Excel
Má tá tú Kutools for 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 for Excel, déan mar a leanas le do thoil :( Free Download Kutools for 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:
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:
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:
Free Download Kutools for Excel Anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Oifig Tacaíochta/Excel 2007-2021 agus 365 | Ar fáil i 44 Teanga | Éasca le Díshuiteáil go hiomlán
Kutools for Excel Tá breis is 300 gné ann, A chinntiú nach bhfuil uait ach cliceáil ar shiúl...
Supercharge Do Excel scileanna: Éifeachtúlacht Taithí Mar Riamh Roimhe Le Kutools for Excel (Triail Iomlán 30-Lá Saor in Aisce)
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre i bhfad níos éasca
- Cumasaigh eagarthóireacht agus léamh tabáilte isteach Word, Excel, Pointe cumhachta, 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éaduithe ar do tháirgiúlacht faoi 50%, agus laghdaítear na céadta cad a tharlaíonn nuair luiche duit gach lá! (Triail Iomlán 30-Lá Saor in Aisce)
