Hoe verwijdert u niet-alfanumerieke tekens in Excel?

Met de volgende korte VBA-code verwijdert u eenvoudig alle niet-alfanumerieke tekens. Zo gaat u te werk:

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications 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 toets F5 of klik op de knop Uitvoeren om de code uit te voeren.

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

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

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

Meestal plaatsen we de cursor in een cel en verwijderen handmatig, één voor één, de niet-alfanumerieke tekens. Als u bekend bent met VBA of door de gebruiker gedefinieerde functies, kunt u deze coderen om alle niet-alfanumerieke tekens in één keer te verwijderen. Maar hier geef ik u een geweldige tool: de Specifieke tekens verwijderen-functie van Kutools voor Excel, waarmee u allerlei tekens verwijdert met slechts twee klikken!

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

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications 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
    

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

Met de bovenstaande twee methoden moet u de codes kennen, maar als Excel-beginner kunt u die meestal niet gebruiken. Daarom geef ik u hier een eenvoudige oplossing.

Kutools voor Excel – Biedt meer dan 300 handige tools voor Excel. Probeer de volledige functionaliteit gratis gedurende 30 dagen, zonder creditcard!Nu downloaden

Als u Kutools voor Excel hebt geïnstalleerd, voert u de volgende stappen uit:

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

2. Er verschijnt dan een dialoogvenster Tekens verwijderen. Schakel alleen de optie Niet-alfanumeriek in en klik op de knop OK.

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