Hoe verwijdert u niet-alfanumerieke tekens in Excel?

Met de volgende korte VBA-code kunt u ook de niet-alfanumerieke tekens verwijderen. U kunt het als volgt doen:

1. Druk tegelijk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak vervolgens de onderstaande VBA-code in de Module:

VBA: Verwijder alle niet-alfanumerieke tekens

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. Druk op de F5-toets of klik op de Uitvoeren -knop om de code uit te voeren.

4Selecteer vervolgens een bereik waaruit u alle niet-alfanumerieke tekens wilt verwijderen in het pop-updialoogvenster en klik op de OK knop.

Nu zijn alle niet-alfanumerieke tekens verwijderd uit het geselecteerde bereik. Zie screenshot:

2 klikken om alle niet-alfanumerieke tekens te verwijderen met een geweldig hulpmiddel

We plaatsen vaak de cursor in een cel en verwijderen dan handmatig één voor één de niet-alfanumerieke tekens. Als u bekend bent met VBA of door de gebruiker gedefinieerde functies, kunt u code schrijven en alle niet-alfanumerieke tekens in bulk verwijderen. Maar hier wil ik u een geweldig hulpmiddel aanbevelen, de functie Specifieke tekens verwijderen van Kutools voor Excel, waarmee u met slechts 2 klikken allerlei tekens kunt verwijderen!

U kunt ook een aangepaste functie definiëren om alle niet-alfanumerieke tekens uit cellen in Excel te verwijderen.

1. Druk tegelijk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak vervolgens de onderstaande code in de Module:

Door de gebruiker gedefinieerde functie: Verwijder alle niet-alfanumerieke tekens

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
    

3Ga nu terug naar het werkblad, selecteer een lege cel en voer de formule in =DeleteNonAlphaNumeric(B3), en sleep vervolgens de AutoVullen-handgreep omlaag om deze formule toe te passen op andere cellen.

Met bovenstaande twee methoden moet u de codes kennen, maar als Excel-beginners kunnen de meesten van ons de code niet gebruiken, dus hier geef ik u een eenvoudige manier om het te doen.

Kutools voor Excel - Bevat meer dan 300 handige tools voor Excel. Volledige functionaliteit gratis proefperiode 30-dag, geen creditcard vereist! Haal het nu

Als u Kutools voor Excel heeft geïnstalleerd, volg dan de volgende stappen:

1Selecteer het bereik waaruit u niet-alfanumerieke tekens wilt verwijderen en klik op Kutools > Tekst > Specifieke tekens verwijderen.

2Er verschijnt een Tekens verwijderen dialoogvenster, vink alleen Niet-alfanumeriek optie aan en klik op de Oké knop.

Nu zijn alle niet-alfanumerieke tekens verwijderd uit de tekstreeksen.