Comment extraire des nombres de chaînes de texte alphanumériques mixtes dans Excel?
Ce didacticiel propose trois méthodes pour vous aider à extraire des nombres d'une chaîne de texte alphanumérique mixte dans Excel.
Extraire des nombres de chaînes de texte alphanumériques mixtes avec une formule
Extraire des nombres de chaînes de texte alphanumériques mixtes avec le code VBA
Extrayez facilement des nombres à partir de chaînes de texte alphanumériques mixtes avec un outil incroyable
Extraire des nombres de chaînes de texte alphanumériques mixtes avec une formule
Vous pouvez appliquer la formule ci-dessous pour extraire des nombres de n'importe où dans une chaîne de texte dans Excel.
1. Sélectionnez une cellule vide pour sortir les nombres extraits, entrez la formule ci-dessous et appuyez sur le bouton Entrer clé. Faites ensuite glisser la poignée de remplissage automatique vers le bas pour appliquer la formule à d'autres cellules.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
Notes: Dans la formule, A1 est la cellule qui contient la chaîne de texte que vous souhaitez extraire des nombres. Veuillez le modifier en fonction de vos besoins.
Ensuite, les nombres sont extraits de n'importe où dans une chaîne de texte dans des cellules spécifiées, comme illustré ci-dessus.
Ne conserver que les nombres dans des 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 à ne conserver que les nombres dans les cellules. Veuillez faire comme suit.
Notes: Comme le code exécute directement la plage d'origine, veuillez conserver une copie de la plage d'origine en cas de perte de données.
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: supprimez tous les caractères non numériques des cellules
Sub GetNumbers()
'Updated by Extendoffice 20210125
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 Sub3. appuie sur le F5 clé pour exécuter le code. Puis un Kutools for Excel boîte de dialogue apparaît, veuillez sélectionner la plage qui contient les chaînes de texte alphanumériques mixtes que vous ne conserverez que les nombres, et cliquez sur le OK .
Désormais, tous les caractères non numériques de la plage sélectionnée ont été supprimés immédiatement et seuls les nombres sont conservés. Voir la capture d'écran:
Extrayez facilement des nombres à partir de chaînes de texte alphanumériques mixtes avec Kutools for Excel
Cette section recommande l'utilitaire Extraire le texte de Kutools for Excel. Avec cet utilitaire, extraire des nombres d’une chaîne de texte peut être facile à gérer.
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
1. Cliquez Kutools > Texte > Extrait du texte pour activer la fonctionnalité.
2. dans le Extrait du texte boîte de dialogue, veuillez effectuer les paramètres ci-dessous.
bouton pour sélectionner la plage de cellules dont vous extrairez le texte;
Remarque: Vérifiez la Insérer comme formule dans le coin inférieur gauche de la boîte de dialogue insérera le résultat sous forme de formule dans les cellules de résultat. Lorsque la valeur de la cellule référencée change, le résultat est mis à jour automatiquement.
3. dans le Extrait du texte boîte de dialogue, sélectionnez une cellule vide pour sortir le texte extrait, puis cliquez sur D'ACCORD.
Ensuite, les nombres de n'importe quelle position dans une chaîne de texte sont extraits. Voir la capture d'écran:
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
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!
