Remove Text From AlphaNumeric
How about this simple UDF:
Public Function Numerals(rng As Range) As String
'
' gsnuxx
'
Dim sStr As String, i As Long, sStr1 As String
Dim sChar As String
sStr = rng.Value
For i = 1 To Len(sStr)
sChar = Mid(sStr, i, 1)
If sChar Like "[0-9]" Then
sStr1 = sStr1 & sChar
End If
Next
Numerals = sStr1
End Function
--
Gary''s Student - gsnu201002
"Bam" wrote:
Hi All,
I have a colmun of Codes, of varying lengths that contains Letters at the
end of each Code.
The letters range from 1 single letter up to a word, again of varying lengths.
I need to strip out all alpha letters and retain only the numeric numbers.
Either a fomula or Macro.
Many Thanks,
Bam.
|