'写了个函数 直接用这个函数就OK了
'调用方法,列 temp=截取数字("aaa123aaa") 得到的结果temp的值为123
'函数功能 寻找字符串中出现的第一个数字与从第一个数字开始的最后一个数字将他们截取出来
'截取数字("123aaa") 截取数字("aaa123a111aa") 这些取值的结果都是123
Function 截取数字(char) As Variant
s = 1
For s = 1 To Len(char)
temp = Mid(char, s, 1)
If IsNumeric(temp) Then
Exit For
End If
Next
For e = s To Len(char)
temp = Mid(char, e, 1)
If Not IsNumeric(temp) Then
Exit For
End If
Next
截取数字 = Mid(char, s, e - s)
End Function
温馨提示:答案为网友推荐,仅供参考