Try this:
Function numit2(r As Range) As String
Dim s As String, s2 As String, C As String
s2 = ""
s = r.Value
l = Len(s)
For i = 1 To l
C = Mid(s, i, 1)
If C Like "#" Then
s2 = s2 & C
End If
Next
numit2 = s2
End Function
Or this:
Function stripNumbers(rng As Range)
Dim i As Integer
For i = 1 To Len(rng.Value)
If Mid(rng.Value, i, 1) = "0" And Mid(rng.Value, i, 1) <= "9" Then
strNum = strNum & Mid(rng.Value, i, 1)
End If
Next
stripNumbers = CDbl(strNum)
End Function
Regards,
Ryan---
--
RyGuy
"Teethless mama" wrote:
Download and install the free add-in Morefunc.xll from:
http://xcell05.free.fr/english/
...then use this formula
=REGEX.SUBSTITUTE(A1,"[A-Za-z]","")
"Hardeep_kanwar" wrote:
Hi! Everybody
i have number of alphanumric list
For ex. asde1258rfgtt125
iqewr1258erer1258
kpijs780025dfdfd789
And so on
how can i extract only numbers
For example-1258125
12581258
780025789
Thanks in Advance
Hardeep kanwar