Comment supprimer les caractères alpha des cellules dans Excel?

Supposons que vous deviez supprimer tous les caractères alpha d'une plage dans Excel, par exemple une donnée dans une cellule peut être "lucase 13654698745", Et vous voulez que ce soit"13654698745», Comment supprimer rapidement tous les caractères alpha des cellules? Y a-t-il de bonnes idées pour résoudre ce problème?

Supprimez tous les caractères alpha des cellules avec le code VBA

Pour supprimer tous les caractères alpha avec Kutools for Excel en un seul clic

Supprimez tous les caractères alpha des cellules avec le code VBA

Il est difficile de supprimer les caractères alphabétiques en utilisant la fonction dans Excel, vous pouvez donc utiliser le code VBA pour le résoudre. Vous pouvez supprimer tous les caractères alpha avec VBA comme suit.

1. Cliquez Développeur >Visual Basic ou appuyez sur Alt + F11 ouvrir un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer > Moduleet saisissez le code suivant:

VBA: supprimer les caractères alpha:

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. Puis clique  bouton pour exécuter le code. Et une boîte de dialogue contextuelle vous permet de sélectionner une plage à travailler, voir capture d'écran:

.

4. Cliquez OK, et tous les caractères alpha ont été supprimés.

Pour supprimer tous les caractères alpha avec Kutools for Excel en un seul clic.

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Obtenez-le maintenant

Veuillez appliquer cet utilitaire en cliquant sur Kutools > Texte > Supprimer les caractères, voir capture d'écran:

Étape 1. Sélectionnez la plage avec laquelle vous souhaitez travailler.

Étape 2. Cliquez sur Kutools > Outils de texte dans le groupe Édition > Supprimer les caractèreset vérifiez Alpha dans la fenêtre contextuelle Supprimer les caractères dialogue, voir capture d'écran:

Étape 3. Cliquez sur Ok or Appliquer pour supprimer tous les alpha de la plage.

Cet utilitaire peut également supprimer des caractères numériques, des caractères non numériques, des caractères non imprimables, etc.

Pour plus d'informations sur Supprimer le caractère de Kutools pour Excel, veuillez visiter : Supprimer les caractères.

Articles relatifs:

Supprimer les caractères non numériques des cellules

Supprimer les caractères numériques des cellules

Supprimer les caractères non imprimables des cellules

Supprimer les caractères non alpha des cellules

Supprimer les caractères non alphanumériques