Add this UDF to a general module in your workbook.

Function RemAlpha(str As String) As String
'Remove Alphas from a string
Dim re As Object
Set re = CreateObject("vbscript.regexp")
re.Global = True
re.Pattern = "\D"
RemAlpha = re.Replace(str, "")
End Function

usage is =RemAlpha(cell)

Copy down as far as you need.


Gord

On Tue, 15 May 2012 22:41:13 +0000, mytyab
wrote:


Does anyone know of a quick and easy way to remove text characters from
within a number? My numbers look like 186R1114F0010, 186011T3F0233 and
18H01135F0557. I have about 3,000 cells to convert to an all numeric
number per day. Currently I am using the find/replace function on every
letter in the alphabet. This works well but is a little tedious.

thank you for any help you can give