提取文字中的数字，并自动求和

hwei0819

大家新年快乐！请教一下各位，D列清单中每个文本字段后面都有附有数字，在E列，即合计可以提前文字后面的数字并实现自动相加吗？
例如：D1单元格为信息表1、中期协1、身份证复印件1，则E1中合计为3（即1+1+1=3）

opqazxc

..如果数字都是个位数
且D列单元格字符串个数少于99个可以
如果多于99则将99改为更大的数即可

1. =SUM(MMULT(COUNTIF(D2,REPT("?",ROW($1:$99))&COLUMN(A:I)&"*"),ROW($1:$9)))

复制代码

但如果数字并非都是个位数则公式不能得到正确的结果。。

mxqchina

e2
=SUMPRODUCT((LEN(D2)-LEN(SUBSTITUTE(D2,ROW($1:$9),"")))*ROW($1:$9))

评分均为个位数

红旗雪

1. =SUMPRODUCT(--TEXT(MID(D2,ROW($1:99),1),"0;;;\0"))

复制代码

gycecho

求学习指导

lss001

字符串之中的数值求和使用自定义函数较简单！
Public Function zfszqh(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
             zfszqh = CLng(zfszqh) + Mr
        Next
End Function

mrzhang007988

=SUMPRODUCT(IFERROR(--MID(D2,ROW($1:$99),1),0))

mrzhang007988

又试了一下，可以处理里边有2位数字的情况

hwei0819

谢谢你，完美解决我的问题。

hwei0819

mrzhang007988 发表于 2018-2-16 21:00
又试了一下，可以处理里边有2位数字的情况

谢谢你，完美解决我的问题。