Extraire les nombres de cellules contenant des chaînes alphanumériques mixtes

J'ai une colonne qui ressemble à ceci:

A 1 om2222prakash 2 kumar83566 3 222gsrana 4 k4566hhhh23 

Comment ne puis-je trouver que des données numériques en A1, A2, A3 et A4? J'utilise Microsoft Excel 2007 et j'aimerais que la sortie ressemble à ceci:

  A 1 2222 2 83566 3 222 4 456623 

4 Solutions collect form web for “Extraire les nombres de cellules contenant des chaînes alphanumériques mixtes”

Eh bien, ouvrez VBE (Visual Basic Editor) avec ALT + F11 . Dans le VBA Project Explorer, cliquez avec le bouton droit de la souris et ajoutez un Module .

Copiez et collez le code ci-dessous et appuyez sur F5 pour exécuter la macro.

 Option Explicit Sub GetNumbers() Dim uColumn As String ' if your data is in a different column then change A to some other letter(s) uColumn = "A" Dim i As Long, j As Long, r As Range For i = 1 To Range(uColumn & Rows.Count).End(xlUp).Row Set r = Range(uColumn & i) Dim tmpStr As String tmpStr = vbNullString For j = 1 To Len(r) If IsNumeric(Right(Left(r, j), 1)) Then tmpStr = tmpStr & Right(Left(r, j), 1) Next j r.NumberFormat = "@" r = tmpStr Next i End Sub 

Il existe une variable nommée uColumn . Il a A actuellement assigné comme colonne. Si vos données se trouvent dans une colonne différente, passez de A à votre (vos) lettre (s) de colonne

J'espère que cela t'aides

Voici une formule qui devrait fonctionner.

 =1*MID(A1,MATCH(TRUE,ISNUMBER(1*MID(A1,ROW($1:$9),1)),0),COUNT(1*MID(A1,ROW($1:$9),1))) 

La référence dans ROW () doit être modifiée pour inclure toutes les lignes de données que vous souhaitez considérer (référencées deux fois dans la formule). Donc, par exemple, si votre dernière rangée de données est 200, elle lireait ROW ($ 1: $ 2000).

Si vos données alphanumériques sont en A1 placez cette formule dans B1 et appuyez sur shift + enter (c'est une formule de tableau).
Cela ne prendra que les nombres de A1 et les placera en B1. Faites glisser le coin de B1 vers le bas de vos données pour remplir automatiquement le reste de vos données.

Vous devriez voir vos données alphanumériques dans la colonne A et seuls les nombres de ces données dans la colonne B vous permettent de faire comme vous le souhaitez.

 =SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(AR81,"0",""),"1",""),"2",""),"3",""),"4",""),"5",""),"6",""),"7",""),"8",""),"9","") 

Remplace les caractères spécifiés par une chaîne avec des caractères alternatifs. Dans l'exemple numeric sont remplacés par des blancs, il devrait fonctionner avec d'autres choses comme des caractères spéciaux.

En suivant la logique de remplacement, vous utilisez les éléments suivants pour supprimer des lettres et des symboles. Si j'ai manqué, tout ce dont vous avez besoin est une modification rapide suivant le même modèle.

Vous devrez changer la cellule de départ (c'est A2 dans l'échantillon ci-dessous).

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(UPPER(A2),"A",),"B",),"C",),"D",),"E",),"F",),"G",),"H",),"I",),"J",),"K",),"L",),"M",),"N",),"O",),"P",),"Q",),"R",),"S",),"T",),"U",),"V",),"W",),"X",),"Y",),"Z",)," ",),".",),"(",),")",),"-",),"+",),"=",),"!",),"@",),"#",),"$",),"%",),"^",),"&",),"*",),"_",),"[",),"]",),"{",),"}",),"\",),"|",),":",),";",),"""",),"<",),">",),",",),"?",)

  • Copier un texte multiligne dans une seule cellule dans Excel
  • Bouton Ajout / Soustraction Excel VBA
  • Recherche Excel pour la chaîne dans plusieurs cellules, comparez et affichez la chaîne avec la plupart des comptes
  • Comment forcer excel pour arrêter de penser que votre cellule contient une formule
  • Comment transposer des groupes répétitifs dans Excel
  • Excel superbe, comment puis-je augmenter les performances?
  • Comment mettre à jour un fichier Excel (Data Actualiser et mettre à jour les formules) SANS ouvrir le fichier?
  • Blocs de codage couleur des lignes utilisant le formatage conditionnel
  • Contenu de la somme dans la colonne à partir du démarrage de la cellule vers le bas sans définir un dernier index explicite des cellules
  • Les cellules ne se mettent pas à jour automatiquement
  • Renvoyer des ensembles de données dans Excel (les deux avec des clés uniques)
  • Soyons le génie de l'ordinateur et du réseau.