Excel 正则表达式 VB 提取字符串

打开Excel，ALT+F11 打开VB

在sheet1 右键

新建模块

贴入代码：

Function zz(rng As Range)
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
With reg
.Global = True
.Pattern = "biz=([^&]+)&"
zz = .Execute(rng)(0)
End With
End Function

进入excel，sheet1中，调用 函数即可。

Function zz(rng As Range)
Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
With reg
.Global = True
.Pattern = "h[a-zA-z]+://[^\s]*"
zz = .Execute(rng)(0)
End With
End Function