在excel中如何在一段文字和数字混合的单元格中提取数字求和？

Question

一个表中有很多个这样的单元格都需要求和，所以用分割提取数字再求和太麻烦，不太现实，之前在网上看到过一个VB代码如下，但是有小数点求和结果就不对了，不知哪位大神能给修改下代码，或者有其他更好的办法。代码如下
Public Function ZFCQH(zf)
'字符串之中的数值求和
'包括正数负数小数整数
'自定义公式用法:= zfszqh(zf)
Dim d As Object, Mr, Nr
Set d = CreateObject("vbscript.regexp")
d.Global = True
d.Pattern = "(-?\d+\.?\d*)"
Set Nr = d.Execute(zf)
For Each Mr In Nr
' ZFCQH = CLng(zfszqh) + Mr
ZFCQH = CLng(ZFCQH) + Mr
Next
End Function

Answer 1

Excel怎样批量提取文本中数字求和

Answer 2

ZFCQH = CLng(ZFCQH) + Mr
改为
ZFCQH = ZFCQH + Val(Mr)
试试呢

追问

完美解决我的问题，太感谢啦