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

打开Excel，ALT+F11 打开VB

在sheet1 右键

新建模块

贴入代码：

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

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

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