为什么匹配对象.Value不能按预期工作?

时间:2019-04-29 10:11:24

标签: regex excel vba

我正在尝试将匹配对象值分配给单元格值,但这给了我编译错误

  

未找到方法或数据成员

我相信我的语法可能错误,但是即使参考了在线教程和示例,我也无法推断出我的代码正确的语法。

我看了网上的其他例子。我发现这个网站显示了对我有用的东西,但即使这样也没有。  https://developer.rhino3d.com/guides/rhinoscript/vbscript-regexp-objects/

这是我的代码。

    Dim rng As Range
    Set rng = Range("a3")

    Dim ObjRegex As RegExp
    Set ObjRegex = New RegExp

    Dim matches As MatchCollection

    With ObjRegex
        .Pattern = "^Total:"
        .Global = True
        .IgnoreCase = True
            Set matches = .Execute(rng)
    End With

    If matches.Count = 1 Then
    Range("b1").Value = matches.Value
    End If

End Sub

最终,如果单元格值与正则表达式模式匹配,那么我想将单元格内容复制到另一个地址。

注意:我已经测试过,并且正则表达式可以正常工作并给出匹配项。 问题出在if语句中

0 个答案:

没有答案
相关问题