代码：
Function zhengze3(ze1 As String, ze2 As String, Rng1 As Range, Rng2 As Range)
Set regx1 = CreateObject("vbscript.regexp") ‘需要执行多个正则表达式时，只需要创建多个regx对象，然后分别执行正则即可
Set regx2 = CreateObject("vbscript.regexp")
With regx1
.Global = False
.Pattern = ze1 ‘写正则表达式
Set m1 = .Execute(Rng1)
End With
With regx2
.Global = False
.Pattern = ze2 ‘写正则表达式
Set m2 = .Execute(Rng2)
End With
zhengze3 = m2(0) & m1(0) ‘m1和m2为列表，即使只有一个值，也需要以数组格式复制，如果省略括号的0，则报错
End Function
excel VBA一个fuction同时执行多个正则表达式，实现方法
原文：https://www.cnblogs.com/xwenwu/p/13696790.html