提取字串中的字符，一个函数搞定

dingboy_VBA

为了提取字串中的各种要求的字符，写了一个简单的函数RegFind来搞定。
提供的例子：
RegFind函数示例.rar (14.95 KB, 下载次数: 5)

2020-1-10 14:07 上传

点击文件名下载附件

如果函数使用时发现“类型没有定义”之类问题，请在VBA编辑器中打开"工具“菜单下的”“引用...”，勾选Microsoft VBscript Regular Express 5.5,默认可能没有勾选的.


函数代码如下：
Public Function RegFind(查找字串 As String, 提取的正则式 As String, Optional 匹配索引 As Integer =1)  As String
    Dim RegEx As VBScript_RegExp_55.RegExp
    Dim mh As VBScript_RegExp_55.MatchCollection

    RegFind = ""
    Set RegEx = CreateObject("vbscript.regexp")
    RegEx.Global = True
    RegEx.Pattern = 提取的正则式
    Set mh = RegEx.Execute(查找字串)
    If mh.Count = 0 Then
        RegFind = "NOT_FOUND"
        GoTo ExitFunction
    End If

    If mh.Count < 匹配索引 Then
        RegFind = "INDEX_OUT_RANGE"
        GoTo ExitFunction
    End If
    If mh.Count >= 匹配索引 Then
        RegFind = mh.Item(匹配索引 - 1)
        GoTo ExitFunction
    End If

ExitFunction:
    Set mh = Nothing
    Set RegEx = Nothing
End Function


如果你需要经常使用这个函数，不想每次复制这个代码到文档中，可以使用加载宏。
将以下文件复制到EXCEL加载项的目录中，如
C:\Users\用户名\AppData\Roaming\Microsoft\AddIns再在加载项中勾选“正则查找函数工具箱”即可使用。（当然，你得允许在宏安全性中允许使用宏）
正则查找函数工具箱.rar (11.04 KB, 下载次数: 2)

2020-1-10 14:09 上传

点击文件名下载附件

这个函数的最大好处是, 利用了正则表达式处理文本字串的强大能力,而且不需要你去设计复杂的公式来处理.只要稍微对正则表达式有些了解就可以使用,十分简便.