VBA实例:Excel增加正则表达式函数

0
1116

Excel 自带的文本函数无法满足字符的处理,可以用VBA来引入正则表达式,让Excel处理数据更有效率。

Function GetStr(rng As Range, str As String)
'第一个参数rng为区域保持不变, 添加第二个参数str(作为正则表达式)
    With CreateObject("VBscript.regexp")
        .Global = True
        .Pattern = str '表达式,直接从用户函数的第二个参数中调用
        If .Execute(rng).Count = 0 Then
            GetStr = ""
        Else
            GetStr = .Execute(rng)(0)
        End If
    End With
End Function
上一篇不必在工作中追求价值感和成就感
下一篇Apple ID家长控制方法

留言

留言不能为空
怎么称呼您?

验证码 *