提取特定单元格内数字求和

295672500

1. Sub sy()
   
2. Dim arr()
   
3. Set regx = CreateObject("vbscript.regexp")
   
4.   With regx
   
5.     .Global = True
   
6.     .Pattern = "合计.+"
   
7.     For Each Rng In [a1:a13]
   
8.      If .test(Rng) Then
   
9.        n = n + 1
   
10.        ReDim Preserve arr(1 To n)
    
11.        arr(n) = Rng
    
12.      End If
    
13.     Next
    
14.      n = 0
    
15.     .Pattern = "\d+"
    
16.     For Each Rn In arr
    
17.       Set mat = .Execute(Rn)
    
18.      For Each m In mat
    
19.       n = n + m
    
20.      Next
    
21.     Next
    
22.   End With
    
23.   MsgBox n
    
24.   End Sub
    

复制代码

不足之处请各位大神多多批评指正！