【VBA研究】VBA从字符串中取出数据信息的函数

作者：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