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 orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
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 z miško!
