Function to extract numbers from an alphanumeric cell

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a function that will read the numbers only of an alphanumeric cell:
Cell that contains a word and number.
Appreciate anybody's help in this respect.
 
There may be many ways to do this, but more info would help:

Are the numbers all together or intermixed with alphas? Are they all at the
beginning of the string, at the end, or in the middle. Are the strings of
consistent length?
 
Is there a function that will read the numbers only of an alphanumeric cell:
Cell that contains a word and number.
Appreciate anybody's help in this respect.
Click to expand...

Here's one way that will also give you a bunch of other useful functions.

Download and install Longre's free morefunc.xll add-in from
http://xcell05.free.fr

Then use this formula:

=REGEX.SUBSTITUTE(A1,"[^0-9]")

With this "regular expression" anything that is not a number will be replaced
with nothing. So the numbers can be any place in the alpha numeric string.

[^0-9] matches anything in the string that is not in the range of 0-9.

If your needs are different, the expression can be (usually) easily modified to
accomplish that.


--ron
 
You could use this UDF. It returns a string, so you would use it as

=Value(StripTxt(A1))

If you're new to VBA, read this first:

http://www.mvps.org/dmcritchie/excel/getstarted.htm


The Function:

Function StripTxt(a As String) As String
' Strips all non-numeric characters from a string
' Returns a string, not a number!
Dim i As Long
Dim b As String
For i = 1 To Len(a)
b = Mid$(a, i, 1)
If ((Asc(b) > 47 And Asc(b) < 58) Or b = Application.DecimalSeparator) Then StripTxt = StripTxt + b
Next i
End Function
 
I was off for the week-end. Hope you check in to find out if I have answered
Niek.
Your UDF works like Magic. Many thanks.
 
Back
Top