excel VBA一个fuction同时执行多个正则表达式，实现方法

 

代码：

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