用于测试 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+"