求和的函数公式

ms967967

难道无法实现吗？期待答案中

ms967967

如果使用VBA是否可以实现

ms967967

通过本贴的查看次数可以看出，有很多人需要这个答案，小弟在网上找到了一个类似问题的答案，请需要者参考一下，顺便函帮兄弟改写一下自定义的设置，做出答案。

CheryBTL

这样行不行：

1. =SUM(--MID(SUBSTITUTE(SUBSTITUTE(TRIM(A1),CHAR(10),"-"),"-",REPT(" ",10)),ROW(1:3)*28-10,10))
   
2. =SUM(--MID(SUBSTITUTE(SUBSTITUTE(A1,CHAR(10),"-"),"-",REPT(" ",10)),ROW(1:3)*28-10,10))
   

复制代码

ms967967

CheryBTL 发表于 2012-11-18 13:57
这样行不行：

感谢帮助，没能达到我的要求，参考一下一楼的例子，是否能找到些灵感。

CheryBTL

ms967967 发表于 2012-11-18 14:45
感谢帮助，没能达到我的要求，参考一下一楼的例子，是否能找到些灵感。

1. =SUM(--(0&TRIM(MID(SUBSTITUTE(SUBSTITUTE(A1,CHAR(10),"-"),"-",REPT(" ",10)),ROW($1:$3)*28-10,10))))

复制代码

1032446692

看来有点难啊  要仔细研究研究

ZZCUEEI

tgydslr

雪舞子

如果数据量大可以用vba,简明快速

1. Sub 求和()
   
2. Dim regx As Object, arr, brr(), mat
   
3.     Set regx = CreateObject("vbscript.regexp")
   
4.     arr = Range("a1").CurrentRegion.Value
   
5.     ReDim brr(1 To UBound(arr), 1 To 10)  '10为单元格中数据最大行数
   
6.     With regx
   
7.         .Global = True
   
8.         .Pattern = "-\d+\b"
   
9.         For i = 1 To UBound(arr)
   
10.             n = 1
    
11.             Set mat = .Execute(arr(i, 1))
    
12.             For Each m In mat
    
13.                 brr(i, n) = brr(i, n) + Abs(m)
    
14.             Next
    
15.             n = n + 1
    
16.         Next
    
17.         End With
    
18.     Range("b1").Resize(UBound(arr), 1) = brr
    
19. End Sub
    

复制代码