利用VBA自定义函数提取指定的文本信息

ilpj

[Visual Basic] 纯文本查看 复制代码

Function gettext(rng, sg As Integer) As String
      Dim obj As Object, txt, mx
      Set obj = CreateObject("VBSCRIPT.REGEXP")
        With obj
            .Global = True
            Select Case sg '类型用数字方便在excel中用公式取值
            Case 1 '去汉字
              .Pattern = "[一-﨩]"
              gettext = .Replace(rng, "")
            Case 2 '去字母
              .Pattern = "[a-zA-Z]"
              gettext = .Replace(rng, "")
            Case 3   '去数字
              .Pattern = "[0-9]"
              gettext = .Replace(rng, "")
            Case 4    '取汉字
               .Pattern = "[^一-﨩]"
               gettext = .Replace(rng, "")
            Case 5   '取字母
              .Pattern = "[^a-zA-Z]"
              gettext = .Replace(rng, "")
            Case 6     '取数字
              .Pattern = "[^0-9]"
               gettext = .Replace(rng, "")
            Case 7 '取以字母或数字开头和结尾的字符串
            .Pattern = "\w.*\w"
              Set txt = .Execute(rng.Value)
               For Each mx In txt
                      gettext = gettext & mx
               Next
            End Select
        End With
End Function

最近遇到一个需求，需要提取excel数据中以数字或字母为开头和结尾的字符串，没找到现成的，遂参考网友的方法做了一个自定义函数，主要使用VBA的正则表达式匹配的，贴出来探讨下。
提取文本.zip (14.91 KB, 下载次数: 83)

2021-8-11 22:54 上传

点击文件名下载附件

cszcszv163

我的也支持“中文式”表达式，不过我的思路是用两个数组去对应替换，这样代码里会少很多

cszcszv163

继续加油，这是我自定义的增强版正则函数，接收9个参数（2个必选，7个可选）：

CSZ_Regexp(单元格或选区, 查找表达式, Optional 替换内容 = "", Optional 提取模式 = 0, Optional 启用运算 = 0, Optional 显示格式 = "", Optional 循环匹配 = 0, Optional 子查找对象 = 0, Optional 子替换内容 = 0)

除了正则本身查找，替换功能（支持多种提取模式）。
另：
①运算功能，对找到的文本数值可以进行加减乘除、三角函数或其他函数的运算。（不限提取模式）
②子替换功能，如：可进一步把字符串中的多个字符替换成指定字符。（不限顺序）
③文本格式显示设置，比如查找后的日期格式，是可以直接在参数里设置的。
④循环匹配，对匹配到的文本还可以“递归式”进一步匹配，这在嵌套标签中很好用。

lgh978

楼主辛苦了！

miocaro507

谢谢分享，挺不错的！

龍謹

学习了，谢谢楼主！

gzh820101

nice，暂时用不上，不过先收藏了

bachelor66

先收藏，指不定哪天就用上了                                   

yang85vip

感谢分享

衣征尘

收藏了，说不定会用到