有奖练习：提取字符串中的数字并求和

放浪形骸

要好好学习下

zxzyer009

什么都没有！

HTHX

好难啊

swszlm

kkkkkkkkkkkk

龙城飞将III

忍不住用正则混个经验：

1. =mySum(A2)

复制代码

1. Function mySum(rng As Range)
   
2.     With CreateObject("vbscript.regexp")
   
3.         .Global = True
   
4.         .Pattern = "[^\d.]+"
   
5.         mySum = Evaluate(.Replace(rng, "+") & "+0")
   
6.     End With
   
7. End Function

复制代码

HTHX

哪个是标准答案？？