作者：iamlaosong
一个简单的函数，从包含有数字信息的字符串中取出这个数据，利用VAL函数将字符串转换为数值，该函数或略数字字符串后面的字母和汉字信息，所以，只要把数字前面的字母和汉字信息去掉就行了。
‘函数，从字符串“ABC123456.78DEF”中取出数据
Function mydata(mystring As String) As Double
Dim i, k As Integer
i = 1
k = Len(mystring)
Do Until Val(Mid(mystring, i, 1)) > 0 Or i > k
i = i + 1
Loop
If i <= k Then
mydata = Val(Right(mystring, Len(mystring) - i + 1))
Else
mydata = 0
End If
End Function
VBA从字符串中取出数据信息的函数,布布扣,bubuko.com
VBA从字符串中取出数据信息的函数
原文：http://blog.csdn.net/iamlaosong/article/details/25726053
