excel实现正则一一匹配功能

Function RegExpTest(patrn, col, tocol)
Dim regex, myrange, i, c, matches, match, str ' 建立变量。
Set regex = CreateObject("vbscript.regexp") ' 建立正则表达式。
regex.Pattern = patrn ' 设置模式。
regex.IgnoreCase = True ' 设置不区分字符大小写。
regex.Global = True ' 设置全局可用性。
Set myrange = ActiveSheet.Range(col & ":" & tocol) '获取分析数据

For Each c In myrange
i = c.Row
Column = c.Column

If regex.Test(c.Value) Then
Set matches = regex.Execute(c.Value) ' 执行搜索。

If matches.Count >= 1 Then
Cells(i, Column + 1) = matches(0) '写入第一个值
End If
If matches.Count >= 2 Then
Cells(i, Column + 2) = matches(1) '写入第二个值
End If
If matches.Count >= 3 Then
Cells(i, Column + 3) = matches(2) '写入第三个值
End If
End If

Next

End Function

Private Sub CommandButton1_Click()

s1 = InputBox("输入你的正则表达式。注意，最多三次匹配，在你选择的列的右侧三列返回，请注意不要覆盖掉有用数据")
s2 = InputBox("输入匹配开始单元格，不能跨列，如B3，不区分大小写")
s3 = InputBox("输入匹配结束单元格，不能跨列，如B20，不区分大小写")
Call RegExpTest(s1, s2, s3)

End Sub