Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment extraire des nombres de chaînes de texte alphanumériques mixtes dans Excel?

Parfois, vous devrez peut-être extraire les nombres uniquement à partir d'une liste de chaînes alphanumériques. Vous pouvez le faire avec les méthodes suivantes.

Extraire des nombres de chaînes de texte alphanumériques mixtes avec le code VBA

Extrayez facilement des nombres de chaînes de texte alphanumériques mixtes avec Kutools for Excel


Extraire facilement des nombres à partir d'une chaîne alphanumérique mixte dans Excel

Le bouton Kutools for Excel's EXTRACTNUMBERS utilitaire vous permet d'extraire facilement tous les nombres d'une chaîne de texte alphanumérique mixte dans Excel. Voir ci-dessous capture d'écran:

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Lire la suite Téléchargez l'essai gratuit maintenant


Extraire des nombres de chaînes de texte alphanumériques mixtes avec le code VBA


Le code VBA suivant peut vous aider à supprimer tous les caractères non numériques de la plage spécifiée et conserver uniquement les nombres dans les cellules. S'il vous plaît faire comme suit.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans la fenêtre Module.

Code VBA: supprime tous les caractères non numériques des cellules

Sub GetNumbers()
    Dim xRegEx As Object
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRegEx = CreateObject("VBScript.RegExp")
    With xRegEx
        .Pattern = "\D+"
        .IgnoreCase = True
        .Global = True
    End With
    xRg.NumberFormat = "@"
    For Each xCell In xRg
        xCell.Value = xRegEx.Replace(xCell.Value, "")
    Next
    Set xRegEx = Nothing
End Sub

3. Puis un Kutools for Excel La boîte de dialogue s'affiche, sélectionnez la plage avec des chaînes de texte alphanumériques mixtes dont vous devez conserver uniquement les numéros, puis cliquez sur OK .

Maintenant, tous les caractères non numériques de la gamme sélectionnée ont été supprimés immédiatement et seuls les nombres ont été conservés. Voir la capture d'écran:


Extrayez facilement des nombres de chaînes de texte alphanumériques mixtes avec Kutools for Excel

Le code ci-dessus va détruire les données d'origine, si vous souhaitez conserver les données d'origine, ici je peux vous recommander un outil utile - Kutools for Excel. Avec son EXTRACTNUMBERS fonction, vous pouvez rapidement extraire des nombres à partir de chaînes alphanumériques sans vous souvenir de la formule ou du code VBA en cours d'exécution.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, gratuit pour essayer sans limitation dans 60 jours.

1. Sélectionnez une cellule vide pour placer le numéro extrait, puis cliquez sur Kutools > Les fonctions > Texte > EXTRACTNUMBERS. Voir la capture d'écran:

2. dans le Arguments de fonction boîte de dialogue, cliquez sur le bouton pour sélectionner la cellule (dit A2) qui contient la chaîne de texte alphanumérique, vous extrayez le numéro, puis cliquez sur le OK .


Maintenant tous les nombres dans la cellule A2 sont extraits. Vous pouvez faire glisser la poignée de remplissage vers le bas pour extraire tous les nombres des cellules de gauche.

Extrayez facilement des nombres de chaînes de texte alphanumériques mixtes avec Kutools for Excel

Kutools for Excel comprend plus de 300 outils maniables Excel. Gratuit pour essayer sans limitation dans les jours 60. Téléchargez l'essai gratuit maintenant!



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.