Conas dhá liosta a chur le chéile gan dúbailtí in Excel?

Tá dhá liosta i do bhileog oibre, agus dúblaigh iad cuid de na luachanna sna liostaí, agus ba mhaith leat an dá liosta seo a chur le chéile agus gan ach na luachanna uathúla a fhágáil, mar a thaispeántar sna scáileáin scáileáin thíos, conas is féidir leat a dhéanamh?

Comhcheangail liostaí gan dúbailtí le Bain Duplicates in Excel

Comhcheangail liostaí gan dúbailt le VBA

Comhcheangail liostaí gan dúbailtí le Kutools le haghaidh Excel

---

Comhcheangail liostaí gan dúbailtí le Bain Duplicates in Excel

Chun dhá liosta a chur le chéile agus luachanna dúblacha a bhaint in Excel, is féidir leat déanamh mar a leanas:

1. Cóipeáil ceann amháin den dá liosta agus greamaigh é ag bun an liosta eile, féach an scáileán:

2. Roghnaigh an liosta agus cliceáil Dáta > Bain Dúblaigh, féach ar an scáileán:

3. Sa Bain Dúblaigh dialóg, mura bhfuil ceanntásc ag do cholún, díthiceáil Tá ceanntásca ar mo chuid sonraí, Agus ansin cliceáil OK. Féach an pictiúr:

4. Ansin taispeánann dialóg ar an scáileán chun a rá leat gur scriosadh na dúblacha, cliceáil OK. Féach an pictiúr:

Is féidir leat an toradh a fheiceáil:

---

Comhcheangail liostaí gan dúbailt le VBA

In Excel, is féidir le VBA cabhrú leat an dá liosta a chomhcheangal gan dúbailtí.

1. Coinnigh ALT cnaipe agus brúigh F11 ar an méarchlár chun a Microsoft Visual Basic le haghaidh Feidhmchláir fhuinneog.

2. cliceáil Ionsáigh > Modúil, agus cóipeáil an VBA isteach sa mhodúl.

VBA: Comhcheangail liostaí gan dúbailtí

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

 

3. cliceáil Rith cnaipe nó brúigh F5 chun an VBA a reáchtáil.

4. Dialóg ar taispeáint ar an scáileán, agus is féidir leat an raon a theastaíonn uait a chur le chéile a roghnú. Féach an pictiúr:

5. cliceáil OK, ansin tháinig dialóg eile suas chun cill a roghnú chun an toradh comhcheangailte a aschur. Féach an pictiúr:

6. cliceáil OK. Feiceann tú gur cuireadh na liostaí le chéile.

Leid: Ní féidir leis an toradh formáidiú na gcealla a chur in áirithe tar éis an VBA thuas a rith.

---

Comhcheangail liostaí gan dúbailtí le Kutools le haghaidh Excel

Le suiteáilte Kutools le haghaidh Excel, is féidir leat é a úsáid Roghnaigh dúbailtí & cealla uathúla feidhm chun an fhadhb a chomhcheanglaíonn dhá liosta a réiteach gan dúbailtí.

Kutools le haghaidh Excel Cuimsíonn sé níos mó ná 300 uirlis áisiúil Excel. Saor chun triail a dhéanamh gan aon teorannú i 30 lá. Faigh é anois

1. Cóipeáil ceann amháin den dá liosta agus greamaigh é ag bun an liosta eile, roghnaigh an liosta nua, ansin cliceáil Kutools > Roghnaigh Uirlisí > Roghnaigh dúbailtí & cealla uathúla. Féach an pictiúr:

2. Sa Roghnaigh dúbailtí & cealla uathúla dialóg, seiceáil Gach uniques (1ú dúblach san áireamh), Cliceáil Ok.

3. Ansin tagann dialóg suas chun a insint duit cé mhéad luach uathúil a roghnaíodh, cliceáil OK agus Cealaigh chun dhá dialóg a dhúnadh. Féach an pictiúr:

4. Agus cóipeáil na luachanna uathúla roghnaithe agus greamaigh iad chuig colún nua. Féach an pictiúr:

Cliceáil anseo chun níos mó eolais a fháil ar Roghnaigh dúbailtí & cealla uathúla.

---

Ailt Choibhneasta:

• Faigh luachanna uathúla idir dhá cholún
• Faigh luachanna dúblacha in dhá cholún