VBA求Word表格中任意两个单元格的数值加和

搬砖狗

daibao88 发表于 2019-10-14 15:58
是的，代码是在一个文档中一个表格或一段文本中用的

一个表格中两个不连续的数值，能用吗？好像不可以啊？

搬砖狗

daibao88 发表于 2019-10-14 15:58
是的，代码是在一个文档中一个表格或一段文本中用的

您可以举个例子看看怎么操作吗？

daibao88

Sub 求和2()
    Dim rg As Range, str As String, Item As Double, Matches, Match, dj
    Set dj = New DataObject
    Selection.Copy
    dj.GetFromClipboard
    str = dj.GetText
    With CreateObject("VBSCRIPT.REGEXP")
        .Global = True
        .Pattern = "(\-|\+)?\d+(\.\d+)?"
        Set Matches = .Execute(str)
        For Each Match In Matches
            Item = Item + Match.Value
        Next
        MsgBox "合计：" & Item
    End With
    dj.SetText Item
    dj.PutInClipboard
    Set dj = Nothing
End Sub