[已解决]函数解决：公式按条件累加求和问题，希望大师帮帮忙

花小剑

有附件，里面详细说明：函数解决：公式按条件累加求和问题，希望大师帮帮忙

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-11-29 14:09

1. Function esum(rng As Range)
   
2.     Dim arr, reg As Object
   
3.     Dim str As String, he#, n%
   
4.     arr = rng
   
5.     n = UBound(arr, 2)
   
6.     Set reg = CreateObject("vbscript.regexp")
   
7.     With reg
   
8.         .Pattern = "[^0-9\*+-/（()）]"
   
9.         .Global = True
   
10.     End With
    
11.     For i = 1 To UBound(arr)
    
12.         If arr(i, n) <> "" Then
    
13.             str = reg.Replace(arr(i, 1), "")
    
14.             he = he + evaluate(str)
    
15.         End If
    
16.     Next
    
17.     esum = he
    
18. End Function

复制代码

跳转到最佳答案楼层

砂海

如果 光是 F4 这种
0.4*（46.67-4.67）
用EVALUATE 即可


===============
去除文本 再计算 , 就要 Vba 正则 处理了

苏子龙

如果是wps，可以直接用函数evaluate

花小剑

苏子龙 发表于 2016-11-28 08:48
如果是wps，可以直接用函数evaluate

是要累加公式一步到位呢，可以麻烦你写出公式吗？谢谢！

花小剑

有附件，里面详细说明：函数解决：公式按条件累加求和问题，希望大师帮帮忙

花小剑

坐等大神解答

花小剑

砂海 发表于 2016-11-28 07:44
如果 光是 F4 这种
0.4*（46.67-4.67）
用EVALUATE 即可

是要累加公式一步到位呢，可以麻烦你写出公式吗？谢谢！

苏子龙

花小剑 发表于 2016-11-28 21:36
有附件，里面详细说明：函数解决：公式按条件累加求和问题，希望大师帮帮忙

用定义名称+sum求和，这样清楚明了

花小剑

苏子龙 发表于 2016-11-29 11:59
用定义名称+sum求和，这样清楚明了

谢谢您，有没有一部到位的方法？

苏子龙

花小剑 发表于 2016-11-29 13:20
谢谢您，有没有一部到位的方法？

函数一步到位，我不会，要么自定义函数，或者vba代码了