[已解决]金额=饭补单元格中的数字和。即自动提取饭补中的钱数并求和计算。

平子_43

饭补

饭补	金额
早饭5元，午饭20元，晚饭25元
早饭5元，午饭20元
早饭5元，晚饭25元
午饭20元，晚饭25元
早饭5元
午饭20元
晚饭25元

最佳答案

月排行榜 / 总排行榜

蓝粆

2014-6-11 00:33

{:02:} 这样好些  

跳转到最佳答案楼层

xdragon

1. =SUM(IFERROR(--MIDB(A8,{5;14;24},2),))

复制代码

建议楼主分早、中、晚餐三列去统计金额，规范数据。。。

ppp710715

1. Sub 饭钱汇总()
   
2. Set regx = CreateObject("vbscript.regexp")
   
3. Set rg = Cells(Rows.Count, 1).End(3)
   
4. With regx
   
5.     .Global = True
   
6.     .Pattern = "\d{1,}"
   
7.     For Each Rng In Range([a2], rg)
   
8.     Set mat = .Execute(Rng)
   
9.         n = 0
   
10.         For Each m In mat
    
11.                 n = n + m
    
12.         Next
    
13.         Cells(Rng.Row, 2) = n
    
14.     Next
    
15. End With
    
16. End Sub

复制代码

蓝粆

{:02:} 这样好些  

平子_43

非常感谢回复我的问题，因特殊原因，我来晚了。再次谢谢。

平子_43

再次谢谢，小宝贝。小花猫。美少女三位，    我采纳这个01.=SUM(IFERROR(--MIDB(A8,{5;14;24},2),))
VBA 函数不太懂。