求教大侠，如何把一串既含有文字又有数字中的数字提取出来并求和

自己先顶一下吧，谢谢了

函数就想不到了vba就想到你用不用？

代
Option Explicit
Function MSum(ByVal MyStr As String) As Double
Dim I%
Dim MyVal As Double
With CreateObject("Vbscript.Regexp")
.Global = True
.Pattern = "\d+"
If .test(MyStr) Then
For I = 1 To .Execute(MyStr).Count
MyVal = MyVal + Val(.Execute(MyStr)(I - 1))
Next
End If
End With
MSum = MyVal
End Function

上面VBA版，我整函数版
=SUMPRODUCT(--(0&MID(RIGHT(LEFT(A1,ISERR(-MID(A1,ROW(2:52),1))*ROW(1:51)),FREQUENCY(ROW(1:50),ISERR(-MID(A1,ROW(2:51),1))*ROW(1:50))),2,7)))

求解析。
@轻舟上逆

=-LOOKUP(1,-MID(A1,MIN(FIND(ROW($1:$10)-1,A1&1234567890)),ROW($1:$99)))----数组公式
=-LOOKUP(1,-RIGHT(LEFT(A1,LOOKUP(1,-MID(A1,ROW($1:$99),1),ROW($1:$99))),ROW($1:$99)))----一般公式
如果最后固定式1个字元(如㎡,M…)
=-LOOKUP(,-RIGHT(LEFT(A1,LEN(A1)-1),ROW($1:$99)))----一般公式

计算小数，一个简单的办法是中间套一层SUBSTITUTE，把“.”换成0。
=SUMPRODUCT(--(0&MID(RIGHT(LEFT(A1,ISERR(-MID(SUBSTITUTE(A1,".",0),ROW(2:52),1))*ROW(1:51)),FREQUENCY(ROW(1:50),ISERR(-MID(SUBSTITUTE(A1,".",0),ROW(2:51),1))*ROW(1:50))),2,9)))
肯定有便捷公式，我没勇气再想了。
至于8楼的小兔，你千万别叫我解释，没等解释明白我自己先绕死。

=SUMPRODUCT(TEXT(LEFT(TEXT(MID(A1,ROW($1:$99),COLUMN(A:E)),),COLUMN(A:E)-1),"0;;0;!0")*ISERR(-MID(A1,ROW($1:$99)-1,2)))

假设A1单元格的文字为：
12减去100.25等于-88.25，所有数字相加为14
按上面所有公式套进去都没有得到38的答案

楼上各位都想复杂了。。。
先把此列复制一列，再把冒号和㎡用“替换”全部替换成半角逗号","，然后选本列，数据——分列——下一步——分隔符号选逗号——下一步——完成，然后数字就分出来了，把数字的2列求和就好了。

=SUMPRODUCT(TEXT(LEFT(TEXT(MID(A1&"A",ROW($1:$99),COLUMN($A:$S)),),COLUMN($A:$S)-1),"G/通用格式;-G/通用格式;0;!0")*ISERR(-MID(A1,ROW($1:$99)-1,2)))
这是按照胡须客 的公式改的，好象可以

只能先马克一下再学习了