求助，如何用正则表达式求表格里中括号里数字之和

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.22
   
2.     Set reg = CreateObject("VBScript.RegExp")
   
3.     With reg
   
4.         .Global = True
   
5.         .Pattern = "\[(.*?)\]"
   
6.         r = Cells(Rows.Count, 1).End(3).Row
   
7.         Arr = Range("A1:d" & r)
   
8.         On Error Resume Next
   
9.         For i = 2 To UBound(Arr)
   
10.             s = Arr(i, 1)
    
11.             If .test(s) Then
    
12.                 Set mh = .Execute(s)
    
13.                 Sum = 0
    
14.                 st = ""
    
15.                 For Each k In mh
    
16.                     Sum = Sum + Val(k.submatches(0))
    
17.                     st = st & "+" & k.submatches(0)
    
18.                 Next
    
19.                 Arr(i, 3) = Sum
    
20.                 Arr(i, 4) = Mid(st, 2) & "=" & Sum
    
21.             End If
    
22.         Next
    
23.         Range("A1:d" & r) = Arr
    
24.     End With
    
25. End Sub
    

复制代码

LIUZHU

JSA参与下

1. function 求和(){
   
2.         let res=Range("a2:a3").Value2.map(x=>[x[0].match(/(?<=\[)\d+(?=])/g).reduce((a,b)=>a+Number(b),0)]);
   
3.         Range("c2").Resize(res.length,res[0].length).Value2=res;
   
4. }

复制代码

LIUZHU

请用WPS测试

松永

ykcbf1100 发表于 2024-3-22 15:14
附件供参考。。。

谢谢老师的指导，解决了我的难题

松永

LIUZHU 发表于 2024-3-22 16:14
请用WPS测试

谢谢老师的指导，非常感谢

swl4561255

1. Function JiSuan(myr As String)
   
2. With CreateObject("vbscript.regexp")
   
3.    .Global = True
   
4.    .Pattern = "\[(\d+)\]"
   
5.    Set matches = .Execute(myr)
   
6. End With
   
7. For Each ma In matches
   
8.    r = Mid(ma, 2, Len(ma) - 2)
   
9.    s = s + Val(r)
   
10. Next
    
11. JiSuan = s
    
12. End Function
    

复制代码

sunya_0529

松永 发表于 2024-3-22 13:55
如何用正则表达式求表格里中括号里数字之和？谢谢

WPS里的JSA练习一下——

松永

sunya_0529 发表于 2024-3-23 12:20
WPS里的JSA练习一下——

谢谢，又一个新方法