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

1. druk op anders + F11 sleutels samen om de te openen Microsoft Visual Basic voor applicaties venster.

2. klikken Invoegen > Moduleen plak vervolgens onder 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. pers F5 toets of klik op de lopen knop om de code uit te voeren.

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

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

2 klikken om alle niet-alfanumerieke tekens te verwijderen door een geweldige tool

We plaatsen de cursor meestal in een cel en verwijderen niet-alfanumerieke tekens een voor een handmatig. Als u bekend bent met VBA of door de gebruiker gedefinieerde functies, kunt u deze coderen en alle niet-alfanumerieke tekens bulksgewijs verwijderen. Maar hier zal ik een geweldige tool aanbevelen, de functie Karakters verwijderen van Kutools voor Excel, die allerlei soorten tekens met slechts 2 klikken kan verwijderen!

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

1. pers anders + F11 sleutels samen om de te openen Microsoft Visual Basic voor applicaties venster.

2. Klikken Invoegen > Module, en plak vervolgens onderstaande code in de module:

Door 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
    

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

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

Kutools for Excel- Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

Als je Kutools voor Excel hebt geïnstalleerd, doe dit dan als volgt:

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

2. Dan een Verwijder tekens dialoogvenster verschijnt, controleer alleen Niet alfanumeriek optie en klik op de Ok knop.

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