Kako odstraniti podvojene znake ali besede v nizu celice?
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.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!