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:

doc supprimer les caractères non numériques 1 copie

3. Ensuite, tous les caractères non numériques de la plage sélectionnée sont supprimés.

doc supprimer les caractères non numériques 2

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:

doc supprimer les caractères non numériques 3

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.

Aller au téléchargement
Essai gratuit 30 jours Je m'abonne!
PayPal / Mon commerce

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.

doc supprimer les caractères non numériques 4

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

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles Liés:

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.

Lire la suite... Téléchargement Gratuit... Achat...

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!

Lire la suite... Téléchargement Gratuit... Achat...

Commentaires (13)

Pas encore de notes. Soyez le premier à évaluer!