请教一下正则表达式

hai167

请教一下正则表达式，刚学正则式，试了几种写法还没能准确判断出这个，请教一下高手，非常感谢。

主要是5段内容，第1段内容是第1个斜线前，有2位空格，再有1位数字；第2段内容是第2个斜线前，有2位数字，当如果是1位数字时，前面有1个空格；第3段内容是第3个斜线前，和第2个斜线前内容一样，2位数字，当是1位数时前面有1个空格；第4段内容是第3个斜线后面，有3位数，当是1位数时前面有2个空格，当是2位数时前面有1个空格。第4段内容紧接是2位空格，2位空格之后的第5段内容aa bb cc不关心，当是一串没规则的字符即可。

0/ 1/ 1/   1  aaa bb cc

0/ 1/ 1/ 11  aaa bb cc

0/ 1/ 1/111  aaa bb cc

0/ 1/11/111  aaa bb cc

0/11/11/111  aaa bb cc

龙城飞将III

笨方法：
Function Test(rng As Range)
    With CreateObject("vbscript.regexp")
        .Pattern = "^  \d/(\d{2}| \d)/(\d{2}| \d)/(\d{3}| \d{2}|  \d)  .*$"
        Test = .Test(rng)
    End With
End Function

龙城飞将III

参考附件：

hai167

龙城飞将III 发表于 2016-3-31 21:55
笨方法：
Function Test(rng As Range)
    With CreateObject("vbscript.regexp")

非常感谢，不错，可以用。学习了。

龙城飞将III

hai167 发表于 2016-3-31 22:12
非常感谢，不错，可以用。学习了。

还是笨方法好。