一、什么是正则表达式？

正则表达式（Regular Expression） 是一种用于描述字符模式的语言，它通过特定语法规则，能够快速匹配、查找或替换文本中的复杂字符组合。就像为Excel装上一把智能“字符扫描枪”，可以精准识别电话号码、邮箱、特定格式编码等目标内容。

与普通字符串匹配的区别
传统方法（如InStr或循环判断）需要逐个字符处理，代码冗长且难以应对复杂模式。而正则表达式通过模式语法，能用一行规则描述多种匹配条件，例如：

• 匹配所有数字：\d
• 匹配连续3个字母：[A-Za-z]{3}
• 提取日期格式：\d{4}-\d{2}-\d{2}

二、VBA中如何使用正则表达式？

1. 启用正则功能

在VBA编辑器中，点击【工具】→【引用】，勾选 Microsoft VBScript Regular Expressions 5.5。

2. 核心对象与属性

• RegExp对象：主控制器，设置匹配规则
• Pattern属性：定义匹配模式（核心规则）
• Global属性：True表示全局搜索，False仅找第一个
• IgnoreCase属性：是否忽略大小写

Dim regEx As New RegExp
regEx.Global = True      '全局搜索
regEx.Pattern = "\d"     '匹配数字
regEx.IgnoreCase = True  '根据需要，是否忽略大小写

3. 核心方法

• Test()：检测是否存在匹配（返回Boolean）
• Execute()：执行匹配，返回所有结果的集合

三、正则表达式的优势

1. 代码简洁性对比

传统方法：循环遍历 + 逐个字符判断，当需要处理的字符串很长或者非常多时，效率是非常慢的！

Function SumDigitsManual(s As String, n As Integer) As Integer
    Dim sum As Integer, i As Integer
    For i = 1 To n
        If Mid(s, i, 1) Like "#" Then
            sum = sum + CInt(Mid(s, i, 1))
        End If
    Next
    SumDigitsManual = sum
End Function

正则方法：模式匹配一步到位

Function SumDigitsRegex(s As String, n As Integer) As Integer
    Dim regEx As New RegExp, matches As Object, sum As Integer
    regEx.Global = True
    regEx.Pattern = "\d"
    Set matches = regEx.Execute(Left(s, n))
    For Each Match In matches
        sum = sum + CInt(Match.Value)
    Next
    SumDigitsRegex = sum
End Function

2. 处理复杂模式的能力

若需匹配“数字+字母交替出现”的模式（如A1B2C3），正则只需：
([A-Za-z]\d)+，而传统方法需要多层嵌套判断。

3. 执行效率

在大文本处理中，正则引擎的优化算法比逐字符循环快3-5倍。

四、实战案例：计算字符串前N位中的数字和

需求：计算字符串 MA240628000537E623 前14位中的数字之和。

步骤分解

• 截取前N位

1. Dim sourceStr As String, targetStr As String sourceStr = "MA240628000537E623" targetStr = Left(sourceStr, 14) '得到 "MA240628000537"

• 正则匹配所有数字

1. regEx.Pattern = "\d" '匹配单个数字 Set matches = regEx.Execute(targetStr) '获取所有数字的集合

• 遍历求和

1. Dim sum As Integer, m As Match For Each m In matches sum = sum + CInt(m.Value) '将字符串数字转为整型累加 Next MsgBox "数字和为：" & sum '输出结果37

完整代码整合

Sub CalculateDigitSum()
    '配置正则表达式
    Dim regEx As New RegExp, sourceStr As String, targetStr As String
    regEx.Global = True
    regEx.Pattern = "\d"
    
    '截取前N位字符串
    sourceStr = "MA240628000537E623"
    targetStr = Left(sourceStr, 14)
    
    '执行匹配并求和
    Dim matches As Object, sum As Integer, m As Match
    Set matches = regEx.Execute(targetStr)
    For Each m In matches
        sum = sum + CInt(m.Value)
    Next
    
    '输出结果
    MsgBox "前14位中数字之和为：" & sum
End Sub

五、正则表达式实用技巧

• 匹配特定位置字符

1. 开头字符：^A（以A开头）
2. 结尾字符：Z$（以Z结尾）

• 量词控制匹配次数

1. \d{3}：连续3个数字
2. \d{2,5}：2到5个数字

• 排除特定字符
  [^0-9]：匹配非数字字符

通过本文，您不仅掌握了VBA正则表达式的基础原理，还能快速实现从字符串中精准提取和计算数字的需求。这种技能可拓展至发票号解析、身份证校验等场景，让数据处理效率倍增。