remove text from cell
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:
I need to remove text from cell and show only numbers
example number 510-889.
Each cell contains different amount of text.
Thanks!!
|