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!

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