VBA-正则表达式

最新推荐文章于 2025-05-21 23:55:27 发布

原创最新推荐文章于 2025-05-21 23:55:27 发布 · 9.5k 阅读

23 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

31 篇文章

订阅专栏

1.写好正则表达式，在数据截取处理中是十分有优势的，以下举几个例子来学习一下正则表达式的用法

Option Explicit
Public Function getnum2(str As String)
With CreateObject("VBScript.RegExp")
    .Global = False '全局匹配
    .Pattern = "\d+" '正则表达式，匹配数字
    If .Test(str) Then '先进行测试，匹配的话就执行，不匹配的话就返回空值
        getnum2 = .Execute(str)(0)
    Else
        getnum2 = ""
    End If
 End With

End Function
Public Function getnum3(str As String)
With CreateObject("VBScript.RegExp")
    .Global = False '全局匹配
    .Pattern = "[a-zA-Z]+" '正则表达式，匹配字母
    If .Test(str) Then '先进行测试，匹配的话就执行，不匹配的话就返回空值
        getnum3 = .Execute(str)(0)
    Else
        getnum3 = ""
    End If
 End With

End Function
Public Function getnum4(str As String)
With CreateObject("VBScript.RegExp")
    .Global = False '全局匹配
    .Pattern = "[\u4e00-\u9fa5]+" '正则表达式，匹配汉字
    If .Test(str) Then '先进行测试，匹配的话就执行，不匹配的话就返回空值
        getnum4 = .Execute(str)(0) '正则表达式
    Else
        getnum4 = ""
    End If
 End With

End Function
Public Function getnum4(str As String)
With CreateObject("VBScript.RegExp")
    .Global = False '全局匹配
    .Pattern = "\w+@[a-zA-Z]+\.[a-zA-Z]{2,3}" '正则表达式，匹配邮箱
    If .Test(str) Then '先进行测试，匹配的话就执行，不匹配的话就返回空值
        getnum4 = .Execute(str)(0) '正则表达式
    Else
        getnum4 = ""
    End If
 End With

End Function

2.我们来测试一下上面的函数，在Excel表中使用该函数即可，其效果如下面所示