vba中如何取字符串之后的数字

'写了个函数 直接用这个函数就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