Sut i gymharu gwerthoedd wedi'u gwahanu gan goma mewn dwy gell a dychwelyd gwerthoedd dyblyg neu unigryw yn Excel?
Fel y dangosir yn y sgrinlun isod, mae dwy golofn - Colofn1 a Colofn2, ac mae pob cell yn y golofn yn cynnwys rhifau wedi'u gwahanu gan goma. I gymharu'r rhifau sydd wedi'u gwahanu gan goma yng Ngholofn 1 â chynnwys y gell yn yr un rhes o Golofn2 a dychwelyd yr holl werthoedd dyblyg neu unigryw, beth allech chi ei wneud?
Mae'r tiwtorial hwn yn darparu dau ddull i'ch helpu i gyflawni'r dasg hon.
Cymharwch werthoedd wedi'u gwahanu gan goma mewn dwy gell a dychwelyd gwerthoedd dyblyg neu unigryw gyda fformiwlâu
Mae'r adran hon yn darparu dwy fformiwla i helpu i gymharu'r gwerthoedd wedi'u gwahanu gan goma mewn dwy gell a dychwelyd y gwerthoedd dyblyg neu unigryw rhyngddynt.
Nodyn: Mae'r fformiwlâu canlynol yn gweithio yn unig Excel ar gyfer 365. Os ydych yn defnyddio fersiynau eraill o Excel , ceisiwch ddefnyddio'r dull VBA isod.
Cymerwch y ddwy golofn uchod fel enghraifft, i gymharu'r rhifau sydd wedi'u gwahanu gan goma yng Ngholofn 1 â'r rhifau wedi'u gwahanu gan atalnodau yn yr un rhes o Golofn 2 a dychwelyd gwerthoedd dyblyg neu unigryw, gwnewch fel a ganlyn.
Dychwelyd gwerthoedd dyblyg
1. Dewiswch gell i allbynnu'r rhifau dyblyg rhwng y ddwy gell benodedig gyda rhifau wedi'u gwahanu gan goma, yn yr achos hwn, rwy'n dewis cell D2, yna nodwch y fformiwla isod a gwasgwch y Rhowch cywair. Dewiswch y gell fformiwla a llusgwch ei Trin AutoFill i lawr i gael y rhifau dyblyg rhwng celloedd yn y rhesi eraill.
=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, "")))
Dychwelyd gwerthoedd unigryw
I ddychwelyd y rhifau unigryw rhwng y ddwy gell benodedig gyda rhifau wedi'u gwahanu gan goma yn yr un rhes, gall y fformiwla ganlynol helpu.
1. Dewiswch gell i allbynnu'r rhifau unigryw, yn yr achos hwn, rwy'n dewis cell E2, yna nodwch y fformiwla isod a gwasgwch y Rhowch cywair. Dewiswch y gell fformiwla a llusgwch ei Trin AutoFill i lawr i gael y rhifau unigryw rhwng celloedd yn y rhesi eraill.
=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))
Nodiadau:
Cymharwch ddwy golofn gyda gwerthoedd wedi'u gwahanu gan goma a dychwelwch werthoedd dyblyg neu unigryw gyda VBA
Mae'r swyddogaeth a ddiffinnir gan y defnyddiwr a ddarperir yn yr adran hon yn helpu i gymharu'r gwerthoedd wedi'u gwahanu gan goma mewn dwy gell benodol a dychwelyd y gwerthoedd dyblyg neu'r gwerthoedd unigryw rhyngddynt. Gwnewch fel a ganlyn.
Cymerwch yr un enghraifft â'r uchod, i gymharu'r rhifau sydd wedi'u gwahanu gan goma yng Ngholofn 1 â'r rhifau wedi'u gwahanu gan goma yn yr un rhes o Golofn2 a dychwelyd gwerthoedd dyblyg neu unigryw, rhowch gynnig ar y swyddogaeth a ddiffinnir gan y defnyddiwr yn yr adran hon.
1. Yn y llyfr gwaith agoriadol, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, a chopïwch y cod VBA canlynol yn y Modiwl (Cod) ffenestr.
Cod VBA: Cymharwch werthoedd wedi'u gwahanu gan goma mewn dwy gell a dychwelyd gwerthoedd dyblyg/unigryw
Private Function COMPARE(Rng1, Rng2 As Range, Op As Boolean)
'Updated by Extendoffice 20221019
Dim R1Arr As Variant
Dim R2Arr As Variant
Dim Ans1 As String
Dim Ans2 As String
Dim Separator As String
Dim d1 As New Dictionary
Dim d2 As New Dictionary
Dim d3 As New Dictionary
Application.Volatile
Separator = ", "
R1Arr = Split(Rng1.Value, Separator)
R2Arr = Split(Rng2.Value, Separator)
Ans1 = ""
Ans2 = ""
For Each ch In R2Arr
If Not d2.Exists(ch) Then
d2.Add ch, "1"
End If
Next
If Op Then
For Each ch In R1Arr
If d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans1 = Ans1 & ch & Separator
End If
End If
Next
If Ans1 <> "" Then
Ans1 = Mid(Ans1, 1, Len(Ans1) - Len(Separator))
End If
COMPARE = Ans1
Else
For Each ch In R1Arr
If Not d1.Exists(ch) Then
d1.Add ch, "1"
End If
Next
For Each ch In R1Arr
If Not d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
For Each ch In R2Arr
If Not d1.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
If Ans2 <> "" Then
Ans2 = Mid(Ans2, 1, Len(Ans2) - Len(Separator))
End If
COMPARE = Ans2
End If
End Function
3. ar ôl gludo y cod yn y Modiwl (Cod) ffenestr, ewch i glicio offer > Cyfeiriadau i agor y Cyfeiriadau - VBAProject ffenestr, gwiriwch y Amser Rhedeg Sgriptio Microsoft blwch ac yna cliciwch ar OK botwm.
4. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
5. Nawr mae angen i chi gymhwyso dwy swyddogaeth ar wahân i ddychwelyd y gwerthoedd dyblyg ac unigryw o ddwy gell gwerth wedi'u gwahanu gan goma.
Dychwelyd gwerth dyblyg
Dewiswch gell i allbynnu'r rhifau dyblyg, yn yr enghraifft hon, rwy'n dewis cell D2, yna nodwch y fformiwla isod a gwasgwch y Rhowch allwedd i gael y rhifau dyblyg rhwng cell A2 a B2.
Dewiswch y gell fformiwla a llusgwch ei AutoFill Handle i lawr i gael y rhifau dyblyg rhwng celloedd yn y rhesi eraill.
=COMPARE(A2,B2,TRUE)
Dychwelyd gwerthoedd unigryw
Dewiswch gell i allbynnu'r rhifau unigryw, yn yr enghraifft hon, dewisaf gell E2, yna nodwch y fformiwla isod a gwasgwch y Rhowch allweddol i gael y rhifau unigryw rhwng cell A2 a B2.
Dewiswch y gell fformiwla a llusgwch ei AutoFill Handle i lawr i gael y rhifau unigryw rhwng celloedd yn y rhesi eraill.
=COMPARE(A2,B2,FALSE)
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!