用于在VBA中测试一个或多个空格以在Excel单元格中查找匹配项的表达式

Question

我正在尝试在宏中为Excel文档使用正则表达式。

这是我到目前为止所做的：

dim regex
regex.pattern = "\s+"
for p = 3 to totalparamcount
    if (regex.test(Worksheets("table").Cells(p,1)) then
        msgbox ("blah blah")
    end if
next

我想要匹配的模式是一个或多个空格，制表符，换行符，我看到它由"\s"表示。

“if (regex.test(Worksheets("table").Cells(p,1)) then”行收到此错误：

Run-time error '424':

Object required

我在Excel中使用VBA 7.0。

Answer 1

您需要创建正则表达式对象，即

Dim regex
Set regex = CreateObject("vbscript.regexp")
regex.Pattern = "\s+"