excel如何准确的提取文字中的数字

excel如何准确的提取文字中的数字

自定义一个函数。用自定义的函数来提取数字

在通用窗口输入代码：

Function SumValueInText(TargetRange As Range) As Double

Dim mRegExp As RegExp

Dim mMatches As MatchCollection      '匹配字符串集合对象

Dim mMatch As Match        '匹配字符串

Set mRegExp = New RegExp

With mRegExp

.Global = True                              'True表示匹配所有, False表示仅匹配第一个符合项

.IgnoreCase = True                          'True表示不区分大小写, False表示区分大小写

.Pattern = "([0-9])?[.]([0-9])+|([0-9])+"   '匹配字符模式

Set mMatches = .Execute(TargetRange.Text)   '执行正则查找，返回所有匹配结果的集合，若未找到，则为空

For Each mMatch In mMatches

SumValueInText = SumValueInText + CDbl(mMatch.Value)

Next

End With

Set mRegExp = Nothing

Set mMatches = Nothing

End Function

网页链接

标签：excel,提取,准确