Sut i gael gwared ar nodau neu eiriau dyblyg mewn llinyn o gell?
Gan dybio bod nodau neu eiriau dyblyg ym mhob cell, a'ch bod am gael gwared ar y dyblygu a gadael cymeriadau neu eiriau unigryw yn unig. Sut allech chi ddatrys y broblem hon yn Excel?
Tynnwch nodau dyblyg llinyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr
Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi â Swyddogaeth Diffiniedig Defnyddiwr
Tynnwch nodau dyblyg llinyn testun gyda Swyddogaeth Diffiniedig Defnyddiwr
Os oes gennych chi restr o linyn testun, nawr, mae angen i chi gael gwared ar y nodau dyblyg fel y llun a ganlyn a ddangosir. Yma, gallaf siarad am god VBA i ddelio ag ef.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnwch nodau dyblyg llinyn testun mewn cell
Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
xChar = VBA.Mid(xValue, i, 1)
If xDic.Exists(xChar) Then
Else
xDic(xChar) = ""
xOutValue = xOutValue & xChar
End If
Next
RemoveDupes1 = xOutValue
End Function
3. Yna arbed a chau'r cod hwn, ewch yn ôl i'r daflen waith, a nodi'r fformiwla hon = removedupes1 (A2) (A2 yw'r gell ddata rydych chi am dynnu dyblygu ohoni) i mewn i gell wag ar wahân i'ch data, gweler y screenshot:
4. Ac yna llusgwch y handlen llenwi drosodd i'r celloedd amrediad rydych chi am gymhwyso'r fformiwla hon, mae'r holl nodau dyblyg wedi'u tynnu o bob cell ar unwaith.
Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi â Swyddogaeth Diffiniedig Defnyddiwr
Os oes rhai geiriau sydd wedi'u gwahanu gan farciau atalnodi penodol mewn cell, gallwch hefyd gael gwared ar y geiriau dyblyg fel y dymunwch. Gwnewch y camau canlynol:
1. Dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Tynnwch eiriau dyblyg wedi'u gwahanu gan atalnodi cell
Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
Dim x
'Updateby Extendoffice
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For Each x In Split(txt, delim)
If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
Next
If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
End With
End Function
3. Yna arbed a chau'r cod hwn, dychwelyd i'r daflen waith, a nodi'r fformiwla hon = RemoveDupes2 (A2, ",") i mewn i gell wag wrth ymyl eich data, gweler y screenshot:
4. Yna copïwch y fformiwla i'ch celloedd angenrheidiol, ac mae'r holl eiriau dyblyg wedi'u tynnu o bob cell. Gweler y screenshot:
Nodyn: Yn y fformiwla uchod, A2 yn nodi'r gell rydych chi am ei defnyddio, ac mae'r coma (,) yn sefyll am y marc atalnodi sy'n gwahanu'r geiriau mewn cell, gallwch ei newid i unrhyw atalnodau eraill i'ch angen.
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!