1

我在 Excel 2012 中使用 VBA 将单元格中的内容与正则表达式匹配，但它不起作用。

我正在运行以下代码：

Dim r1 As New RegExp
r1.Pattern = "(.)(\s+)?((?:[a-z][a-z]+))(\s+)(\d+)?"
r1.IgnoreCase = True

For i = 1 To 5
    If r1.Test(Sheet3.Cells.Item(i, 5)) = True Then
        MsgBox ("MATCH: " & Sheet3.Cells.Item(i, 5))
    Else
        MsgBox ("NOT MATCH: " & Sheet3.Cells.Item(i, 5))
    End If
Next i

所以它应该匹配字符串：“A Person 01”但不匹配：“A Person abc 01”

但它匹配两者，因为可以在字符串的后半部分找到表达式。你如何让它只匹配整个字符串？因此，仅当单元格的全部内容为：单个字母、空格、单词、空格、数字时才匹配

非常感谢任何帮助！

4

1 回答 1

2

你可以使用这个正则表达式

^[a-zA-Z]\s+\w+\s+\d+$

如果要完全匹配，则必须指定 start( ^) 和 end( $)..

[a-zA-Z]匹配单个字母

\s+匹配 1 到多个空格

\w+匹配一个单词..它类似于[a-zA-Z0-9_]+

\d+匹配 1 到多个数字

于 2013-02-21T17:40:43.327 回答