Note: The other languages of the website are Google-translated. Back to English

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. 

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:

doc supprimer les caractères non numériques 5

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.
onglet kte 201905

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!
bas de cabine
Commentaires (13)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
exemple de code pour les commentaires
Ce commentaire a été minimisé par le modérateur sur le site
merci a bien fonctionné
Ce commentaire a été minimisé par le modérateur sur le site
ne serait pas préférable de remplacer la méthode de la zone de saisie en définissant simplement WorkRng comme ceci : Set WorkRng = Intersect(ActiveSheet.UsedRange, Selection) de cette façon si l'utilisateur sélectionne une colonne entière, cela ne générera aucune erreur.
Ce commentaire a été minimisé par le modérateur sur le site
Génial a super bien fonctionné !!!!!!!!
Ce commentaire a été minimisé par le modérateur sur le site
Ouah. qui a fonctionné, exactement ce dont j'avais besoin. Merci,
Ce commentaire a été minimisé par le modérateur sur le site
J'ai reçu une erreur lorsque j'ai cliqué sur le bouton > exécuter dans le développeur : Erreur de compilation : attendue : fin d'instruction et le mot "non" en non numérique est mis en surbrillance
Ce commentaire a été minimisé par le modérateur sur le site
Utilisez cette formule pour remplacer le caractère existant par le nouveau =SUBSTITUTE(text,old_text,new_text,[instance_num]) for ex-=SUBSTITUTE(TRIM(G1),"/","")
Ce commentaire a été minimisé par le modérateur sur le site
Merci les gars pour un si beau travail. Le script est génial et il a fonctionné. Continuez comme ça les gars.
Ce commentaire a été minimisé par le modérateur sur le site
Je voulais juste vous faire savoir que si la chaîne commence par zéro (s), ou commence par des lettres, suivies de zéro (s), suivies du reste de la chaîne, cela supprimera tous les zéros de début. C'est bizarre car cela ne supprime pas les zéros s'ils se trouvent entre d'autres nombres non nuls dans la chaîne, uniquement s'ils commencent la chaîne ou sont les premiers chiffres après les lettres initiales d'une chaîne. Exemple. 0060100 sortirait comme 60100 PFF057726 sortirait comme 57726. Faites-moi savoir si vous avez une explication à cela et pouvez penser à une solution. Merci.
Ce commentaire a été minimisé par le modérateur sur le site
Envoyez-le moi sur mon identifiant email
Ce commentaire a été minimisé par le modérateur sur le site
Salut, je veux utiliser cette macro mais je veux prédéfinir une plage. Pouvez-vous s'il vous plaît laissez-moi savoir comment prédéfinir la gamme. Merci Samit
Ce commentaire a été minimisé par le modérateur sur le site
Le VBA fonctionne très bien. Je l'ai modifié pour toujours travailler sur une colonne, comme indiqué:

Pour chaque cellule dans la plage ("B2: B" & ActiveSheet.UsedRange.Rows.Count)

xSortie = ""

Pour i = 1 Vers Len(Cell.Value)

xTemp = Mid(Cell.Value, je, 1)

Si xTemp Comme "[0-9]" Alors

xStr = xTemp

autre

xStr = ""

Si fin

xOut = xOut & xStr

Suivant i

Cellule.Valeur = xOut

Suivant

J'ai également utilisé ceci pour trier une colonne par le dernier chiffre, en changeant la dernière partie en Cell.Value = Right(xOut, 1) puis en la triant numériquement.
Ce commentaire a été minimisé par le modérateur sur le site
HI Merci pour le codage, j'obtiens l'erreur de syntaxe surlignée sur For i = 1 To Len(Rng.Value) et le débogage Sub RemoveNotNum() est surligné en jaune.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL