excel vba 自定义函数 使用正则表达式提取字符串

数据清洗的时候往往需要从表格中提取特定的字符串，而少量数据用Excel就能完成。

下面Excel VBA自定义函数来提取 字符串中符合正则表达式的字符串

 

先上效果图：

以下从一个单元格字符串中提取出连续出现的数字，并且空格分割，后面只需分列以下就提取到不同单元格了。

 

函数代码：

Function REFIND(str, re)
    Dim Reg As New RegExp
    With Reg
    .Global = True
    .Pattern = re
    Set matchs = .Execute(str)
        For Each Match In matchs
            y = y & " " & Match
        Next
    End With
    'MsgBox y
    REFIND = y
End Function

 

注意：需要是office的VBA环境，sheet名字右键查看代码或者开发工具进入VBA界面。在插入中插入模块，编写代码，保存；然后就可以在表格中使用了。

如果出现用户自定义类型未定义，那是因为RegExp类型需要从工具栏中引用添加 Microsoft VBScript Regular Expressions 5.5