提取数字并求和，利用动态数组一步到位

edwin11891

如图，每行单独提取数字并求和，公式下拉没有问题。

如何在不使用M365循环函数（如Map、Scan、Reduce等）的情况下，实现动态数组一步到位，无需下拉公式？

魚。。

1. =SUMPRODUCT(--TEXT(RIGHT(TEXT(MID(SUBSTITUTE(A2&"，","，",REPT(" ",9)),ROW($1:$520),9),),8),"0.00;;;!0"))

复制代码

edwin11891

魚。。 发表于 2024-3-25 11:34

这个没有用数组溢出，还是需要下拉。

无关岁月

定义名称？？？

象山海鲜

1. =MMULT(--TEXT(RIGHT(TEXT(MID(SUBSTITUTE(OFFSET(A2,,,COUNTA(A2:A99))&"，","，",REPT(" ",9)),COLUMN(A:CU),9),),8),"[>=];;;!0"),ROW(1:99)^0)

复制代码

？？

魚。。

edwin11891 发表于 2024-3-25 11:35
这个没有用数组溢出，还是需要下拉。

所以因为下拉累？就要用溢出？

1. =MMULT(--TEXT(RIGHT(TEXT(MID(SUBSTITUTE(A2:A4&"，","，",REPT(" ",9)),COLUMN(A:TM),9),),8),"0.00;;;!0"),V1:V533+1)

复制代码

edwin11891

象山海鲜 发表于 2024-3-25 11:48
？？

象版，而且都是很基本的函数！

edwin11891

魚。。 发表于 2024-3-25 11:52
所以因为下拉累？就要用溢出？

不是，数据量比较大，为避免不熟练人员带来误操作。

swl4561255

自定义函数：

1. Function HeJi(myr As String)
   
2. With CreateObject("vbscript.regexp")
   
3. .Global = True
   
4. .Pattern = "\d+(\.\d+)?"
   
5. Set matches = .Execute(myr)
   
6. End With
   
7. For Each ma In matches
   
8. s = s + Val(ma)
   
9. Next
   
10. HeJi = s
    
11. End Function
    

复制代码

cnmlgb9998

PQ解决这种问题，不香？？？？？？？？？？？？？