excel一个有文字的单元格里的数字求和

Question

如何将备注的数字明细汇总求和到前面呢？
如图所示，求公式。（第一张图已经得到公式，并解决了）

Answer 1

代码如下：

Function SumValueInText(TargetRange As Range) As Double

Dim mRegExp As Object       '正则表达式对象

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

Dim mMatch As Object        '匹配字符串

Set mRegExp = CreateObject("Vbscript.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

来源于：网页链接

Answer 2

写代码提取来计算。公式恐怕做不了

Answer 3

这个得用代码来实现了，比较复杂。