首页 > 代码库 > 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
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
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。