Excel使用正则表达式
1、使用正则表达式提取子字符串
Function GetStr(ran As range, pattern As String)
With CreateObject("VBScript.regexp")
.Global = True
.IgnoreCase = True
.pattern = pattern
If .Execute(ran).Count = 0 Then
GetStr = "No match"
Else
GetStr = .Execute(ran)(0)
End If
End With
End Function
