Excel表正则表达式提取数据信息

作者: YGBKS 发布: 2022年8月26日 1,611阅读 0评论

Excel表里有这样一列数据，其中要提取mid=后边的一串数字，可以用VBA代码。

Alt+F8打开Visual Basic 编辑器，宏名随便输入->创建，接着将下面的代码粘贴进去。

代码：

Function getstr(rng As Range)
    Application.Volatile
    Set regx = CreateObject("vbscript.regexp")
    With regx
      .Global = True
      .Pattern = "&mid=([0-9]+)"
       Set mat = .Execute(rng)
    End With
    getstr = mat.Item(0)
End Function

在单元格中输入=getstr(A1)就能匹配出来需要的内容（如下图）。