Excel VBA中正则表达式复合组合失败问题求助

核心错误点 #

你的正则表达式存在三个关键问题，导致组合后匹配失败：

1. 量词语法错误：正则中表示重复次数范围必须用逗号,，而非减号-。你写的[0-9]{1-3}是无效写法，VBScript正则引擎会将其解析为字面量匹配{1-3}，根本无法匹配1-3位数字序列。
2. 缺少字符串结束锚点$：两个单独的正则都没加$，导致Test方法仅检查字符串中是否存在匹配的子串，而非验证整个字符串的格式。比如测试" +47 "时，实际是匹配了开头和结尾的空格，中间的+47完全没被正则覆盖，但Test仍返回True。
3. 组合后匹配逻辑冗余：你添加的\s*?非贪婪匹配属于多余操作，反而干扰了空格的正常匹配逻辑。

修正后的正则表达式 #

oRegEx.Pattern = "^\s*(\(?\+[0-9]{1,3}\)?)?\s*(?:\s*[0-9]{2}){4}\s*$"

正则各部分说明 #

• ^：锚定字符串开头
• \s*：匹配开头任意数量的空格
• (\(?\+[0-9]{1,3}\)?)?：可选的区号部分，支持带括号（如(+47)）或不带括号（如+47）的格式，后跟1-3位数字，整个区号部分可省略
• \s*：匹配区号与号码主体之间的任意空格
• (?:\s*[0-9]{2}){4}：号码主体，匹配4组两位数字，每组前可带任意空格（兼容12345678或12 34 56 78格式）
• \s*：匹配结尾任意数量的空格
• $：锚定字符串结尾，确保整个字符串都符合格式要求

测试验证 #

使用修正后的正则测试以下案例均会返回True：

• sNumber = " +47 12345678 "
• sNumber = " (+47) 12 34 56 78 "
• sNumber = " 12345678 "
• sNumber = " +1 12 34 56 78"

内容的提问来源于stack exchange，提问作者Jo-Helge Rorvik