[已解决]坐求函数公式解决。再次发帖，麻烦各位大神了，先谢了

花小剑

F列的公式是随意编辑的且单元格的行数随编辑会增加，但是文字都是在[]里。，详细见附件，谢谢

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2016-11-30 20:16

自定义函数，自己慢慢用吧

1. Option Explicit
   
2. 
   
3. Function getSum(rng As Range) As Double
   
4.     Dim regx As Object
   
5.     Dim strText$
   
6.     Set regx = CreateObject("vbscript.regexp")
   
7.     With regx
   
8.         .Global = True
   
9.         .Pattern = "\[.*?\]"
   
10.         strText = Replace(Replace(.Replace(rng, ""), "（", "("), "）", ")")
    
11.     End With
    
12.     getSum = Evaluate(strText)
    
13. End Function
    

复制代码

跳转到最佳答案楼层

花小剑

再次发帖，麻烦各位大大神了，希望能用函数一次到位，谢谢了，F列的公式是随意编辑的且单元格的行数随编辑会增加，但是文字都是在[]里

Excel学徒123

自定义函数，自己慢慢用吧

1. Option Explicit
   
2. 
   
3. Function getSum(rng As Range) As Double
   
4.     Dim regx As Object
   
5.     Dim strText$
   
6.     Set regx = CreateObject("vbscript.regexp")
   
7.     With regx
   
8.         .Global = True
   
9.         .Pattern = "\[.*?\]"
   
10.         strText = Replace(Replace(.Replace(rng, ""), "（", "("), "）", ")")
    
11.     End With
    
12.     getSum = Evaluate(strText)
    
13. End Function
    

复制代码

花小剑

Excel学徒123 发表于 2016-11-30 20:16
自定义函数，自己慢慢用吧

你好，首先谢谢你哈，这个怎么应用上去呢？那个单元格要等于什么呢？麻烦你上传下附件可以吗？谢谢哈

Excel学徒123

花小剑 发表于 2016-12-2 10:45
你好，首先谢谢你哈，这个怎么应用上去呢？那个单元格要等于什么呢？麻烦你上传下附件可以吗？谢谢哈

按alt+f11  然后新建模块，把代码复制进去，最后在单元格里面输入=getSum(单元格） ，单元格自己选取，就和你用其他公式一样