Comment supprimer les caractères numériques des cellules dans Excel ?

Supposons que vous ayez une feuille de calcul contenant beaucoup d'informations comme "James987den", où les données incluent à la fois des caractères alphabétiques et numériques, et que vous souhaitiez conserver les caractères alphabétiques tout en supprimant les caractères numériques pour toutes ces données. Par exemple, convertir "James987den" en "Jamesden". Existe-t-il des moyens rapides pour y parvenir ?

Supprimer les caractères numériques avec un code VBA

Supprimer rapidement les caractères numériques avec Kutools pour Excel

 Supprimer les caractères numériques avec un code VBA

Si vous êtes familiarisé avec le code VBA, vous pouvez utiliser cette méthode en suivant les étapes ci-dessous :

1. Cliquez sur "Développeur" > "Visual Basic" ou utilisez les raccourcis ("ALT" + "F11") dans Excel pour activer la fenêtre Microsoft Visual Basic pour applications, puis cliquez sur "Insérer" > "Module".

2. Entrez le code suivant dans le module :

Sub RemoveNum()
'Updateby Extendoffice
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 "[0-9.]" Then
            xStr = ""
        Else
            xStr = xTemp
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

4. Ensuite, cliquez sur le bouton "Exécuter" pour appliquer le code. Une boîte de dialogue apparaît à l'écran, vous pouvez sélectionner une plage pour supprimer tous les caractères numériques. Voir capture d'écran :

5. Cliquez sur "OK", tous les caractères numériques ont été supprimés.

 Supprimer rapidement les caractères numériques avec Kutools pour Excel

L'outil "Supprimer des caractères" de "Kutools pour Excel" est un outil puissant pour supprimer plusieurs types de caractères.

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

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

Étape 2. Cliquez sur "Kutools" > "Texte" > "Supprimer des caractères", dans la boîte de dialogue, cochez "Numérique", voir capture d'écran :

Étape 3. Cliquez sur "OK" ou "Appliquer" pour supprimer les caractères numériques dans les plages.