识别加数并求和

天地一相

感谢帮助！详见截图附件。

DevilW

wanao2008

正则无疑是最好的方法，但有难度啊！
试试我的方法，把所有非数据的字符全部替换为“+”号，
代码如下，希望能够帮助到你：
Sub byWanao()
    Dim myStr$, i&, ascNum&
    myStr = [i4]
    For i = 1 To Len(myStr)
        ascNum = Asc(Mid(myStr, i, 1))
        If ascNum < &H30 Or ascNum > &H39 Then
            Mid(myStr, i, 1) = "+"
        End If
    Next
    [j4] = Evaluate(myStr)
End Sub

捞屎人

捞屎人

捞屎人 发表于 2022-11-21 19:20

忘了绑定正则  你自己前期绑定一下吧