对单元格内含加、减、小数的数据提取并求和

lixsh

问题：A2：1.小王加2.5分（其中语文加3分，数学减0.5分）。2.小李减1分。3.小孙加0.02分。4.小赵减0.01分。B2：提取A2中的分数并合计（2.5-1+0.02-0.01）。谢谢

liulang0808

Sub 按钮1_Click()
    str1 = [a2]
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\（.*?\）"
        str1 = .Replace(str1, "")
        .Pattern = "[加减]\d+(\.\d+)?"
        str2 = ""
        For Each m In .Execute(str1)
            str2 = str2 & m.Value
        Next m
        [b2] = Application.Evaluate(Replace(Replace(str2, "减", "-"), "加", "+"))
    End With
End Sub

liulang0808

附件内容供参考。。。。。。

lixsh

liulang0808 发表于 2020-2-13 09:18
附件内容供参考。。。。。。

谢谢。另请教用公式如何解决？搜了相关资料，一些公式相加没有问题，但对于其中有减（-）的就有问题了。