Function to extract numbers from an alphanumeric cell

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?


"diana" wrote:

> 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.
>

On Fri, 10 Mar 2006 06:17:27 -0800, diana <[email protected]>
wrote:

>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.

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


--
Kind regards,

Niek Otten

"diana" <[email protected]> wrote in message news:[email protected]...
> 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.
>

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.

"Niek Otten" wrote:

> 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
>
>
> --
> Kind regards,
>
> Niek Otten
>
> "diana" <[email protected]> wrote in message news:[email protected]...
> > 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.
> >
>
>
>