Med följande korta VBA-kod kan du också ta bort de icke-alfanumeriska tecknen. Du kan göra det så här:

1. Tryck andra + F11 nycklar tillsammans för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulernaoch klistra sedan in under VBA-koden i modulen:

VBA: Ta bort alla icke-alfanumeriska tecken

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. Tryck F5 eller klicka på run för att köra koden.

4. Välj sedan ett intervall som du vill ta bort alla icke-alfanumeriska tecken i popup-dialogrutan och klicka på OK knapp.

Nu har alla icke-alfanumeriska tecken raderats från det valda intervallet. Se skärmdump:

2 klick för att ta bort alla icke-alfanumeriska tecken med ett fantastiskt verktyg

Vi sätter vanligtvis markören i en cell och tar sedan bort icke-alfanumeriska tecken en efter en manuellt. Om du känner till VBA- eller användardefinierade funktioner kan du koda det och ta bort alla icke-alfanumeriska tecken i bulk. Men här kommer jag att rekommendera ett fantastiskt verktyg, Ta bort teckenfunktion i Kutools för Excel, som bara kan ta bort alla typer av tecken med två klick!

Du kan också definiera en anpassad funktion för att ta bort alla icke-alfanumeriska tecken från celler i Excel.

1. Tryck andra + F11 nycklar tillsammans för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra sedan in koden nedan i modulen:

Användardefinierad funktion: Ta bort alla icke-alfanumeriska tecken

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å nu tillbaka till kalkylbladet, välj en tom cell och ange formeln = DeleteNonAlphaNumeric (B3)och dra sedan nedladdningen för AutoFyll-handtaget för att tillämpa denna formel på andra celler.

Med ovanstående två metoder behöver du känna till koder, men som nybörjare i Excel kan de flesta av oss inte använda koden, så här ger jag dig ett enkelt sätt att göra det.

Kutools för Excel- Innehåller mer än 300 praktiska verktyg för Excel. Fullständig gratis provperiod 30-dag, inget kreditkort krävs! Hämta den nu

Om du har installerat Kutools för Excel, gör det på följande sätt:

1. Välj det intervall som du behöver ta bort icke-alfanumeriska tecken från och klicka Kutools > text > Ta bort tecken.

2. Då en Ta bort tecken dialogrutan visas, bara markera Icke-alfanumerisk alternativet och klicka på Ok knapp.

Nu har alla icke-alfanumeriska tecken raderats från textsträngarna.