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

松永

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

松永

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

liulang0808

Sub test()
    arr = [a1].CurrentRegion
    With CreateObject("vbscript.regexp")
        .Pattern = "\[(\d+)\]"
        .Global = True
        For j = 2 To UBound(arr)
            If .test(arr(j, 1)) Then
                str1 = ""
                For Each m In .Execute(arr(j, 1))
                    str1 = str1 & "+" & m.submatches(0)
                Next
                arr(j, 1) = Mid(str1, 2) & "=" & Application.Evaluate(Mid(str1, 2))
            Else
                arr(j, 1) = ""
            End If
        Next j
    End With
    [h1].Resize(UBound(arr)) = arr
End Sub

liulang0808

附件内容供参考。。。。

松永

liulang0808 发表于 2024-3-22 14:08
附件内容供参考。。。。

谢谢老师的帮助，非常感谢

松永

liulang0808 发表于 2024-3-22 14:08
附件内容供参考。。。。

老师，要是不要过程只要结果，怎么VBA？谢谢

松永

如附件。谢谢

cnmlgb9998

用PQ 一句代码的事！

liulang0808

松永 发表于 2024-3-22 14:18
老师，要是不要过程只要结果，怎么VBA？谢谢

arr(j, 1) =Application.Evaluate(Mid(str1, 2))
这段赋值修改下看看

limonet

关键字：$1