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å Körning 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. Fullversion gratis provperiod 30 dagar, 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.