excel使用正则表达式

Sub testRegexp()
Dim a, b, c
Dim regexp As Object
Dim d As String
Set regexp = CreateObject("vbscript.regexp")
With regexp
.Global = True
.IgnoreCase = True
.Pattern = ".* .{2} \d{8} (\d{18}|\d{17}[xX])"
End With
For Each a In Range("D2:D4")
Set b = regexp.Execute(a.Value)
Rem b.Count大于0就是匹配成功
If b.Count > 0 Then
For Each c In b
Rem SubMatches.Count大于0就是捕获成功
If c.SubMatches.Count > 0 Then
Rem vbCrLf是单元格内换行符
d = d + c.SubMatches(0) + vbCrLf
End If
Next c
End If
Worksheets("Sheet1").Cells(a.Row, a.Column + 1).Value = d
d = ""
Next a
End Sub