Excel自定义函数使用正则表达式详解

我喜欢杀生丸

于 2019-02-21 14:12:26 发布

阅读量3.2k

点赞数

本文链接：https://blog.csdn.net/qq_43685474/article/details/87859957

版权

本文详细介绍了如何在Excel中使用自定义函数ExStr配合正则表达式进行字符串替换、判断和提取操作。提供了常见正则表达式实例，并链接到微软官方教程进一步学习。同时推荐了一篇人工智能教程，适合初学者入门。

摘要由CSDN通过智能技术生成

http://www.111cn.net/office/excel/52912.htm

函数ExStr功能，根据正规表达式，替换或判断或提取字符串
'参数 str 源字符串
'参数 Parttern 正则表达式字符串
'参数 ActionID 函数功能 1正则方法一，替换符合正规表达式的字符
?正则方法二判断是否有符合正规表达式
?正则方法三,提取符合正规表达式的字符
'参数 Repstr 指定替换的字符，可选项，默认为空

代码如下

复制代码

Function ExStr(Str As String, Parttern As String, ActionID As Integer, Optional RepStr As String = "")
    Dim regex As Object
    Set regex = CreateObject("vbscript.regexp")
    With regex
        .Global = True
        .IgnoreCase = True
        .MultiLine = True
        .Pattern = Parttern
    End With
    Select Case ActionID
        Case 1:
            ExStr = regex.Replace(Str, RepStr)
        Case 2:
            ExStr = regex.test(Str)
        Case 3:
            Dim matches As Ob