Send mo Actual File sakin Brad. Gawan natin ng formula pero sa new sheet yung result
Function StripChar(aText As String)
Dim I As Integer
StripChar = ""
For I = 1 To Len(aText)
aChar = Mid(aText, I, 1)
Select Case aChar
Case "0" To "9"
StripChar = StripChar & aChar
End Select
Next
End Function
Function StripChar(aText As String)
Dim I As Integer
StripChar = "0"
For I = 1 To Len(aText)
aChar = Mid(aText, I, 1)
Select Case aChar
Case "0" To "9"
StripChar = Val(StripChar & aChar)
End Select
Next
End Function