Preskoči na glavno vsebino

Kako odstraniti ne-alfanumerične znake v Excelu?

Recimo, da obstaja vrsta podatkov, kot je JAMES0898 # 4% ^ {}, ki vsebuje ne-alfanumerične znake na delovnem listu, zdaj pa želite samo odstraniti ne-alfanumerične znake in ohraniti alfanumerične znake. Na primer JAMES0898 # 4% ^ {} > JAMES0898. Kako v Excelu hitro izbrišete tiste ne-alfanumerične znake?


Odstranite ne-alfanumerične znake s kodo VBA

Z naslednjo kratko kodo VBA lahko odstranite tudi ne-alfanumerične znake. To lahko storite tako:

1. Pritisnite druga + F11 tipke, da odprete Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin nato v kodo prilepite spodnjo kodo VBA:

VBA: Odstranite vse ne-alfanumerične znake

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Pritisnite F5 ali kliknite Run za izvedbo kode.

4. Nato v pojavnem pogovornem oknu izberite obseg, za katerega želite odstraniti vse ne-alfanumerične znake, in kliknite OK gumb.

Zdaj so bili vsi ne-alfanumerični znaki izbrisani iz izbranega obsega. Oglejte si posnetek zaslona:

Dva klika odstranijo vse ne-alfanumerične znake z neverjetnim orodjem

Kazalec običajno vstavimo v celico in nato ročno odstranimo ne-alfanumerične znake. Če poznate funkcije VBA ali uporabniško določene funkcije, jih lahko kodirate in v celoti odstranite vse ne-alfanumerične znake. Ampak tukaj bom priporočil neverjetno orodje, Odstrani znake, funkcijo Kutools za Excel, ki lahko odstrani vse vrste znakov samo z 2 klikom!


Odstranite ne-alfanumerične znake z uporabniško določeno funkcijo

Določite lahko tudi funkcijo po meri za odstranjevanje vseh ne-alfanumeričnih znakov iz celic v Excelu.

1. Pritisnite druga + F11 tipke, da odprete Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin nato v modul prilepite spodnjo kodo:

Uporabniško določena funkcija: Odstranite vse ne-alfanumerične znake

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Zdaj se vrnite na delovni list, izberite prazno celico in vnesite formulo = DeleteNonAlphaNumeric (B3)in nato povlecite ročico za samodejno izpolnjevanje, da to formulo uporabite v drugih celicah.


Z Kutools za Excel odstranite ne-alfanumerične znake

Z zgoraj navedenima dvema metodama morate poznati kode, toda kot začetniki programa Excel večina od nas ne more uporabiti kode, zato vam bom tukaj na enostaven način.

Kutools za Excel- Vključuje več kot 300 priročnih orodij za Excel. 30-dnevna brezplačna preizkusna različica brez kreditne kartice! Get It Now

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite obseg, iz katerega želite odstraniti ne-alfanumerične znake, in kliknite Kutools > Besedilo > Odstrani znake.

2. Potem a Izbriši znake prikaže se pogovorno okno, samo potrdite Ne-alfanumerično in kliknite na Ok gumb.

Zdaj so bili vsi nealfanumerični znaki izbrisani iz besedilnih nizov.


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

zavihek kte 201905


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do you remove the characters while keeping the space separator?
This comment was minimized by the moderator on the site
VBA method worked, but only works on the selected range. You cannot specify the output into a different range of cells than the input. So you must copy the source data into the target range, select the data, run the script and allow it to output to the default range. Also, the period (.) is not considered a special character, so if you want to remove those too, you'll need to search and replace.
This comment was minimized by the moderator on the site
Thanks for sharing, but still don't like the input-box method... :D
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations