Cu următorul cod VBA scurt, puteți elimina și caracterele nealfanumerice. Puteți face acest lucru:

1. presa Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. clic Insera > Moduleși apoi lipiți mai jos codul VBA în modul:

VBA: eliminați toate caracterele non-alfanumerice

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. presa F5 tasta sau faceți clic pe Alerga pentru a executa codul.

4. Apoi selectați un interval pe care doriți să îl eliminați din toate caracterele non-alfanumerice din fereastra pop-up și faceți clic pe OK butonul.

Acum, toate caracterele non-alfanumerice au fost șterse din intervalul selectat. Vedeți captura de ecran:

2 clicuri pentru a elimina toate caracterele non-alfanumerice printr-un instrument uimitor

De obicei punem cursorul într-o celulă și apoi eliminăm caracterele non-alfanumerice unul câte unul manual. Dacă sunteți familiarizat cu VBA sau cu funcțiile definite de utilizator, îl puteți codifica și elimina toate caracterele non-alfanumerice în bloc. Dar aici, voi recomanda un instrument uimitor, Eliminați caractere caracteristică a Kutools pentru Excel, care poate elimina tot felul de caractere doar cu 2 clicuri!

De asemenea, puteți defini o funcție personalizată pentru a elimina toate caracterele non-alfanumerice din celule în Excel.

1. presa Alt + F11 tastele împreună pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Module, și apoi lipiți codul de mai jos în modul:

Funcție definită de utilizator: eliminați toate caracterele non-alfanumerice

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. Acum reveniți la foaia de lucru, selectați o celulă goală și introduceți formula = DeleteNonAlphaNumeric (B3)și apoi trageți descărcarea mânerului de completare automată pentru a aplica această formulă altor celule.

Cu două metode de mai sus, trebuie să cunoașteți codurile, dar, în calitate de începători Excel, majoritatea dintre noi nu putem folosi codul, așa că aici vă voi oferi o modalitate ușoară de a o face.

Kutools pentru Excel- Include mai mult de 300 de instrumente la îndemână pentru Excel. Versiune completă de încercare gratuită de 30 de zile, nu este necesar un card de credit! Ia-L Acum

Dacă ați instalat Kutools pentru Excel, faceți acest lucru după cum urmează:

1. Selectați intervalul de care trebuie să eliminați caractere non-alfanumerice și faceți clic pe Kutools > Text > Eliminați caractere.

2. Apoi o Ștergeți caractere va apărea caseta de dialog, bifați numai Nealfanumeric și faceți clic pe Ok butonul.

Acum toate caracterele non-alfanumerice au fost șterse din șirurile de text.