remove text from cell

S

Sam

I need to remove text from cell and show only numbers
example number 510-889.

Each cell contains different amount of text.

Thanks!!
 
A

Alan

Can you provide more information Sam? Whilst the string length varies
do the numbers always come at the front or the end or do they appear
somwhere in the middle?

Is the format of the numbers always the same 123-456?

Do the numbers appear as a single substring or are they spread
throughout your text?
 
M

Marcelo

hi,

copy this module (ALT+F11) and use a function =digitsonly(a2)

hth
regards from Brazil
Marcelo

***************************************************
Public Function DigitsOnly(sStr As String) As Variant
Dim oRegExp As Object

Set oRegExp = CreateObject("VBScript.RegExp")

With oRegExp
.IgnoreCase = True
.Global = True
oRegExp.Pattern = "\D"

DigitsOnly = oRegExp.Replace(sStr, vbNullString)
End With
End Function
************************************************



"Sam" escreveu:
 
Top