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 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 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 > Outils de texte dans le groupe Édition > 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 of Kutools for 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
Meilleurs outils de productivité bureautique
Boostez vos compétences Excel avec Kutools for Excelet faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel Offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab Apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
