求助：计算单元格内特定符号后的数字之和

fairy1004

求助各位高手。
附每个月手动计算B列日期后面的加班小时数，记录的方式都一样。
单元格内“（”后面的加班时间合计能用公式计算吗？

刚才发到函数板块，建议转到这里来。
麻烦各位了。谢谢

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "\(([^\)]+)\)"
   
8.     Set mh = .Execute(Range("b5"))
   
9.   End With
   
10.   With Worksheets("sheet1")
    
11.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
12.     arr = .Range("b2:b" & r)
    
13.     ReDim brr(1 To UBound(arr), 1 To 1)
    
14.     For i = 1 To UBound(arr)
    
15.       Set mh = reg.Execute(arr(i, 1))
    
16.       For j = 0 To mh.Count - 1
    
17.         brr(i, 1) = brr(i, 1) + Val(mh(j).SubMatches(0))
    
18.       Next
    
19.     Next
    
20.     .Range("c2").Resize(UBound(brr), 1) = brr
    
21.   End With
    
22.       
    
23. End Sub
    

复制代码

chxw68

正则的基本运用。

fairy1004

mikezhan 发表于 2018-9-13 11:12
楼主，你贴子瞎重发！ 在函数版块，我已给你解决方案了，你不知道先看一下？

纯小白。不好意思