Recimo, da so v vsaki celici podvojeni znaki ali besede, zato želite odstraniti dvojnike in pustiti samo edinstvene znake ali besede. Kako lahko to težavo rešite v Excelu?
Odstranite podvojene znake besedilnega niza z uporabniško določeno funkcijo
Z uporabniško določeno funkcijo odstranite podvojene besede, ločene z ločili
Odstranite podvojene znake besedilnega niza z uporabniško določeno funkcijoČe imate seznam besedilnega niza, morate zdaj odstraniti podvojene znake, kot je prikazano na spodnji sliki zaslona. Tu lahko govorim o kodi VBA, da se z njo spoprimem.
1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: v celici odstranite podvojene znake besedilnega niza
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. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo = odstrani dupe1 (A2) (A2 je podatkovna celica, iz katere želite odstraniti dvojnike) v prazno celico poleg vaših podatkov, glejte posnetek zaslona:
4. In nato povlecite ročico za polnjenje do celic obsega, za katere želite uporabiti to formulo, vsi podvojeni znaki so bili takoj odstranjeni iz vsake celice.
Z uporabniško določeno funkcijo odstranite podvojene besede, ločene z ločiliČe je v celici nekaj besed, ki so ločene z ločili, lahko tudi podvojene besede odstranite, kot želite. Naredite naslednje:
1. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: odstranite podvojene besede, ločene s ločili celice
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. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo = RemoveDupes2 (A2, ",") v prazno celico poleg vaših podatkov si oglejte posnetek zaslona:
4. Nato kopirajte formulo v potrebne celice in vse podvojene besede so bile odstranjene iz vseh celic. Oglejte si posnetek zaslona:
Opombe: V zgornji formuli, A2 označuje celico, ki jo želite uporabiti, vejica (,) pa pomeni ločilo, ki ločuje besede v celici, jo lahko spremenite v katero koli drugo ločilo po svoji potrebi.
