Med følgende korte VBA-kode kan du også fjerne de ikke-alfanumeriske tegnene. Du kan gjøre det slik:

1. Pressen andre + F11 nøkler sammen for å åpne Microsoft Visual Basic for applikasjoner vinduet.

2. klikk innfelt > Moduler, og lim deretter inn under VBA-koden i modulen:

VBA: Fjern alle ikke-alfanumeriske tegn

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. trykk F5 tasten eller klikk på Kjør knappen for å utføre koden.

4. Velg deretter et område du vil fjerne alle ikke-alfanumeriske tegn i popup-dialogen, og klikk på OK knapp.

Nå er alle de ikke-alfanumeriske tegnene slettet fra det valgte området. Se skjermbilde:

2 klikk for å fjerne alle ikke-alfanumeriske tegn med et fantastisk verktøy

Vi setter vanligvis markøren inn i en celle og fjerner deretter ikke-alfanumeriske tegn én etter én manuelt. Hvis du er kjent med VBA eller brukerdefinerte funksjoner, kan du kode den og fjerne alle ikke-alfanumeriske tegn i bulk. Men her vil jeg anbefale et fantastisk verktøy, Fjern tegn-funksjonen til Kutools for Excel, som kan fjerne alle slags tegn med bare 2 klikk!

Du kan også definere en egendefinert funksjon for å fjerne alle ikke-alfanumeriske tegn fra celler i Excel.

1. trykk andre + F11 nøkler sammen for å åpne Microsoft Visual Basic for applikasjoner vinduet.

2. Klikk innfelt > Moduler, og lim deretter inn koden nedenfor i modulen:

Brukerdefinert funksjon: Fjern alle ikke-alfanumeriske tegn

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. Gå nå tilbake til regnearket, velg en tom celle og skriv inn formelen =Slett Ikke-alfanumerisk(B3), og dra deretter nedlastingen av Autofyll-håndtaket for å bruke denne formelen på andre celler.

Med de to metodene ovenfor, må du kjenne kodene, men som Excel-nybegynnere kan de fleste av oss ikke bruke koden, så her vil jeg gi deg en enkel måte å gjøre det på.

Kutools for Excel- Inkluderer mer enn 300 nyttige verktøy for Excel. Full funksjon gratis prøveversjon 30 dager, ingen kredittkort kreves! Get It Now

Hvis du har installert Kutools for Excel, vennligst gjør det som følgende trinn:

1. Velg området du vil fjerne ikke-alfanumeriske tegn fra, og klikk Kutools > tekst > Fjern tegn.

2. Så en Slett tegn dialogboksen vises, bare sjekk Ikke-alfanumerisk alternativet, og klikk på Ok knapp.

Nå er alle de ikke-alfanumeriske tegnene slettet fra tekststrengene.