Comment supprimer les caractères non numériques des cellules dans Excel?
Supposons que vous ayez une feuille de calcul avec beaucoup de telles données ABCD4578124YUIOH, et vous souhaitez uniquement supprimer les caractères non numériques ABCDYUIOH mais gardez les caractères numériques dans les cellules. Bien sûr, vous pouvez supprimer ces caractères un par un, mais ici, vous pouvez vous débarrasser rapidement des caractères non numériques des cellules comme suit:
Supprimer les caractères non numériques avec le code VBA
Un outil pratique pour supprimer les caractères non numériques en un seul clic
Supprimer les caractères non numériques avec le code VBA
Pour supprimer les caractères non numériques d'une plage avec un code VBA, procédez comme suit:
1. Cliquez Développeur > Visual Basic ouvrir le Microsoft Visual Basic pour les applications fenêtre. dans le Microsoft Visual Basic pour les applications fenêtre, cliquez sur insérer > Module, puis copiez et collez les codes suivants dans le module:
VBA: supprimer tous les caractères non numériques
Sub RemoveNotNum()
'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 = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub2. Puis cliquez sur le 
bouton pour exécuter le code, dans la fenêtre contextuelle KutoolsforExcel boîte de dialogue, sélectionnez une plage contenant les caractères non numériques à supprimer, puis cliquez sur le bouton OK bouton. Voir la capture d'écran:
3. Ensuite, tous les caractères non numériques de la plage sélectionnée sont supprimés.
Si les nombres avec des points décimaux, vous pouvez utiliser le VBA suivant:
Sub RemoveNotNum()
'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 = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Vous pouvez voir les résultats comme ci-dessous la capture d'écran montrée:
Un outil pratique pour supprimer les caractères non numériques en un seul clic
Pour supprimer des caractères non numériques dans une plage, Kutools for Excel's Supprimer les caractères L'utilitaire peut le faire en un seul clic.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, veuillez faire comme ci-dessous:
1. Mettez en surbrillance la plage dans laquelle vous souhaitez supprimer les caractères non numériques. Cliquez sur Kutools > Texte > Supprimer les caractères.
2. Dans le Supprimer les caractères boîte de dialogue, vérifiez le Non numérique option dans la Supprimer les caractères section, puis cliquez sur le OK or Appliquer bouton. Et les caractères non numériques sont immédiatement supprimés de la sélection. Voir la capture d'écran:
Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!
Pour plus d'informations sur Supprimer les caractères de Kutools pour Excel, veuillez visiter Supprimer la description des caractéristiques des caractères.
Démo: supprimez les caractères numériques, alphabétiques, non imprimables ou alphanumériques des cellules
Articles Liés:
- Supprimer les caractères alpha 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
Améliorez vos compétences Excel avec Kutools for Excel et 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!
