Hoe alfabetische tekens uit cellen in Excel te verwijderen?

Stel dat je alle alfabetische tekens uit een bereik in Excel moet verwijderen, bijvoorbeeld een gegeven in een cel kan zijn “lucase 13654698745”, en je wilt dat het wordt “13654698745”. Hoe kun je snel alle alfabetische tekens uit de cellen verwijderen? Zijn er goede ideeën om dit probleem op te lossen?

Verwijder alle alfabetische tekens uit cellen met VBA-code

Alle alfabetische tekens verwijderen met Kutools voor Excel in één klik

Verwijder alle alfabetische tekens uit cellen met VBA-code

Het is moeilijk om alfabetische tekens te verwijderen door een functie in Excel te gebruiken, dus kun je VBA-code gebruiken om het probleem op te lossen. Je kunt alle alfabetische tekens als volgt verwijderen met VBA.

1. Klik op Ontwikkelaar>Visual Basic of druk op Alt+F11 om een nieuw Microsoft Visual Basic for Applications-venster te openen, klik op Invoegen > Module, en voer de volgende code in:

VBA: Verwijder alfabetische tekens:

Sub RemoveAlphas()
'Updateby20131129
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.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Klik dan op om de code uit te voeren. Er verschijnt een pop-up dialoogvenster waarin je een bereik kunt selecteren om mee te werken, zie screenshot:

.

4. Klik op OK, en alle alfabetische tekens zijn verwijderd.

Alle alfabetische tekens verwijderen met Kutools voor Excel in één klik.

Kutools voor Excel: met meer dan 300 handige Excel-add-ins, gratis te proberen zonder beperking gedurende 30 dagen. Haal het nu hier

Pas dit hulpmiddel toe door te klikken op Kutools > Tekst > Verwijder Karakters, zie screenshot:

Stap 1. Selecteer het bereik waarmee je wilt werken.

Stap 2. Klik op Kutools > Tekst Tools in Bewerkingsgroep > Verwijder Karakters, en vink Alfabetisch aan in het pop-up venster Verwijder Karakters, zie screenshot:

Stap 3. Klik op Oké of Toepassen om alle alfabetische tekens in het bereik te verwijderen.

Dit hulpmiddel kan ook numerieke tekens, niet-numerieke tekens, niet-afdrukbare tekens enzovoort verwijderen.

Voor meer gedetailleerde informatie over Verwijder Karakter van Kutools voor Excel, bezoek dan: Verwijder Karakters.

Gerelateerde artikelen:

Verwijder niet-numerieke tekens uit cellen

Verwijder numerieke tekens uit cellen

Verwijder niet-afdrukbare tekens uit cellen

Verwijder niet-alfabetische tekens uit cellen

Verwijder niet-alfanumerieke tekens