Excel-VBA：根据正则表达式提取文本（字符串、内容）

最新推荐文章于 2025-12-14 19:00:00 发布

原创最新推荐文章于 2025-12-14 19:00:00 发布 · 8.9k 阅读

19 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#正则 #表达式 #提取 #字符串 #内容

收录于

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章

订阅专栏

VBA

42 篇文章

订阅专栏

本文介绍了一种使用Visual Basic Scripting(VBS)中的正则表达式从特定格式字符串中提取所需部分的方法。通过一个具体示例，演示了如何定义正则表达式模式并应用到字符串上，从而实现精准的数据抽取。

'测试：将“abc@@eee”中的@@提取出来
Sub test()
    MsgBox GetValueByRegex("abc@@eee", "abc(.*?)eee")
End Sub

Function GetValueByRegex(ByVal OrgStr As String, ByVal PatternStr As String)
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = PatternStr
    re.Global = True
    re.IgnoreCase = False
    Set matchs = re.Execute(OrgStr)
    If matchs.Count > 0 Then
        GetValueByRegex = matchs(0).submatches(0)
    Else
        GetValueByRegex = ""
    End If
End Function