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

兰色幻想

         这是一个老题，难度不算太高，但在字符串处理中算是较高难度的了。也是考察你耐心的一个题目。大家都做一下吧。提供正确答案奖励15-30经验值。
         题目：
             提取A列字符串的数字（可能含小数），然后进行求和。具体如下图所示：
            

        本题设置仅作者可见，两天后公开。回贴不需要设置回贴可见。
         

JLxiangwei

回复 兰色幻想 的帖子

1. =SUM(TEXT(LEFT(TEXT(MID(A2&"A",ROW($1:$26),COLUMN(A:Z)),),COLUMN(A:Z)-1),"0.00;0;0;!0")*ISERR(-MID(A2,ROW($1:$26)-1,2)))

复制代码

殘剑

1. Function Msum(str As String)
   
2. Dim matchs, match
   
3. With CreateObject("vbscript.regexp")
   
4.     .Global = True
   
5.     .Pattern = "\d+\.?\d*"
   
6.     Set matchs = .Execute(str)
   
7.     For Each match In matchs
   
8.         Msum = Msum + Val(match)
   
9.     Next
   
10. End With
    
11. End Function

复制代码

函数不会，让兰校长见笑了

蝶·舞

=SUMPRODUCT(TEXT(LEFT(TEXT(MID(A2&"A",ROW($1:$99),COLUMN($A:$P)),),COLUMN($A:$P)-1),"0%;-0%;0;!0")*ISERR(-MID(A2,ROW($1:$99)-1,2)))

lisachen

wjh619993018

=SUM(TEXT(MID(A2&"a",ROW($1:$25),COLUMN(B:Z)),"!0;;0;!1")*TEXT(MID(A2&"a",ROW($1:$25),COLUMN(A:Y)),"G/通用格式;;0;!0")*TEXT(0&MID("a"&A2,ROW($1:$25),1),"!0;;0;!1"))

wuxingai

{:011:}{:011:}

chunlin1wang

=SUM(MOD(LARGE(TEXT(MID(A2,IF((MID(A2&"a",ROW($1:$99),1)<="9")*(MID("a"&A2,ROW($1:$99),1)>"9"),ROW($1:$99),99),COLUMN(A:J)),"G/通用格式;0;0;\0")+ROW($1:$99)/1%%%,ROW($1:$99)*10-9),10^6))

兰色幻想

仅作者可见已解开

liuts

标记学习{:011:}