请问有无办法从EXCEL表格中提取除数字外的字符?

例如:2ab245s请帮忙 实施结果:除数字外的字符 abs请帮忙 --------------------编程问答-------------------- 判断字符不就行了么？
if x>='9' and x<='0' then
   str1=str1 & x
end if
--------------------编程问答--------------------
Private Sub Command1_Click()
  x=cellS(1,1) 'excel单元格
  Dim str1 As String,n as integer
  n = Len(x)
  For i = 1 To n
   If Not IsNumeric(Mid(x, i, 1)) Then str1 = str1 & Mid(x, i, 1)
  Next
  Print str1
End Sub
--------------------编程问答-------------------- thank you

补充：VB ,  基础类