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",)," ",),".",),"(",),")",),"-",),"+",),"=",),"!",),"@",),"#",),"$",),"%",),"^",),"&",),"*",),"_",),"[",),"]",),"{",),"}",),"\",),"|",),":",),";",),"""",),"<",),">",),",",),"?",)

  • Impression des fichiers Excel marges forçage
  • Aller à la dernière ligne avec les données, Excel 2007
  • L'ouverture d'un classeur Excel 2003 dans Excel 2010 32 bits provoque des références circulaires fausses et des blocages
  • Comment réparer un fichier Excel corrompu
  • En utilisant les valeurs de texte d'une colonne pour conduire à la sortie dans une autre
  • Mise en forme conditionnelle d'Excel pour mettre en surbrillance la ligne entière si une date n'est pas égale à une autre date dans cette ligne
  • Excel: Modification et mise à jour d'une valeur future en fonction de l'occurrence passée et de la recherche dans une table
  • Comment puis-je obtenir une cellule dans Excel pour ajuster automatiquement sa taille pour s'adapter au contenu du texte enveloppé?
  • Excel grande fonction avec des doublons
  • Raccourcis clavier lent Excel 365
  • Référencement d'une seule ligne sur plusieurs lignes dans Excel
  • Soyons le génie de l'ordinateur et du réseau.