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

cjc209 · 发表于 2018-8-15 17:03

6楼才是正解哈

WYS67 · 发表于 2019-3-20 06:33

lss001 发表于 2018-2-16 18:10
字符串之中的数值求和使用自定义函数较简单！
Public Function zfszqh(zf)
'字符串之中的数值求和

数字字符串求和.zip (12.43 KB, 下载次数: 8)

老师：6楼的代码好像不能求和计算啊？

sucx007 · 发表于 2019-3-20 07:58

WYS67 发表于 2019-3-20 06:33
老师：6楼的代码好像不能求和计算啊？

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

复制代码

老师可能一时疏忽，改下就好

WYS67 · 发表于 2019-3-20 08:26

sucx007 发表于 2019-3-20 07:58
老师可能一时疏忽，改下就好

是我粗心引起的错误，谢谢老师指正！

lss001 · 发表于 2019-3-20 08:28

WYS67 发表于 2019-3-20 08:26
是我粗心引起的错误，谢谢老师指正！

非数组公式！

WYS67 · 发表于 2019-3-20 08:30

lss001 发表于 2019-3-20 08:28
非数组公式！

感谢老师的回复和提醒！

jivy1212 · 发表于 2019-3-20 08:47

本帖最后由 jivy1212 于 2019-3-20 08:52 编辑

=SUMPRODUCT(TEXT(LEFT(TEXT(MID(D2&"a",COLUMN(A:FF),ROW($1:$5)),),ROW($1:$5)-1),"0;0;0;!0")*ISERR(-MID(D2,COLUMN(A:FF)-1,2))) 下拉

1322597142 · 发表于 2021-11-19 15:33

jivy1212 发表于 2019-3-20 08:47
=SUMPRODUCT(TEXT(LEFT(TEXT(MID(D2&"a",COLUMN(A:FF),ROW($1:$5)),),ROW($1:$5)-1),"0;0;0;!0")*ISERR(-MI ...

你好我想问一下怎么获取多个单元格数据来合计呢，还有过万的怎么合计不了呢。谢谢！

jivy1212 · 发表于 2021-11-19 15:37

1322597142 发表于 2021-11-19 15:33
你好我想问一下怎么获取多个单元格数据来合计呢，还有过万的怎么合计不了呢。谢谢！

麻烦上实际附件，并模拟结果

1322597142 · 发表于 2021-11-19 15:51

本帖最后由 1322597142 于 2021-11-19 15:58 编辑

jivy1212 发表于 2021-11-19 15:37
麻烦上实际附件，并模拟结果

麻烦大佬看看怎么解决

		自动登录	找回密码
密码			免费注册

[已解决] 提取文字中的数字，并自动求和

最新热点 /1