Excel VBA 利用正则表达式实现取字符串中数字并求和的方法。

工具/原料

  • <p>&nbsp;Excel</p>
  • <p>&nbsp;VBA</p>

方法/步骤

  1. 1

     ALT+F11打开VBE编辑器，单击菜单：工具-引用。

  2. 2

     弹出引用-VBAProject对话框，勾选Microsoft VBScript Regular EXpressions 1.0，点确定。

  3. 3

     新建一个模块，输入如下代码：

    Sub tsszstrqh()

    Dim reg As New RegExp

    Dim str As String, t, s, arr

    str = Range("a1").Value

    With reg

     .Global = True

     .Pattern = "[^0-9.]"

     arr = "=" & Right(.Replace(str, "+"), Len(.Replace(str, "+")) - 1)

     .Pattern = "\++"

     Range("b1") = .Replace(arr, "+")

    End With

    End Sub

  4. 4

     按ALT+F8，运行tsszstrqh宏，演示结果如下图：

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。