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 Sub
2. 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 pour Excel's Supprimer les caractères L'utilitaire peut le faire en un seul clic.
Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools pour 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 for 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
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
- Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
- Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!













