remove English letter in cells
Try this UDF (User Defined function). From workbook launch VBE using Alt+F11.
From menu Insert a Module and paste the below function.Close and get back to
workbook and try the below formula.
Col A Col B
1209N =CROPALPHA(A1)
WS123 =
B10-0909C =
0908M =
Function CropAlpha(strData As String)
For intTemp = 1 To Len(strData)
If UCase(Mid(strData, intTemp, 1)) Like "[A-Z]" = False Then _
CropAlpha = CropAlpha & Mid(strData, intTemp, 1)
Next
End Function
If this post helps click Yes
---------------
Jacob Skaria
"Wu" wrote:
I have the data in different cells contain number and English letter,
For example:
1209N
WS123
B10-0909C
0908M
Result:
1209
123
10-0909
0908
How can I just remove the English letter in these cells?
|