当前位置：首页>Excel>别只用 Excel 公式!一招解锁「正则表达式」

别只用 Excel 公式!一招解锁「正则表达式」

2026-04-04 07:32:19

在处理 Excel 报表时，是否遇到过这种令人抓狂的情况：

想从一堆杂乱的地址中提取邮编，却发现LEFT和RIGHT函数根本不够用？
想校验手机号格式，结果公式写了三行长，自己都看不懂？
想提取括号里的内容，却在FIND和MID的嵌套里迷失自我？

很多时候，不得不感叹：「Excel 为何就没有内置正则（Regex）功能呢？」

今天，就分享这个压箱底的「黑科技」。只需一段简单的 VBA 代码，就能让你的 Excel 瞬间进化，直接在单元格里调用全能的「正则表达式」！

何为正则表达式？

简单来说，「正则表达式」就是一种文字匹配的「万能模版」。无论数据多乱，只要有规律，它就能精准地把你要的东西「钓」出来。

核心秘籍：自定义 REGEXP 函数

通过以下代码，可自定义一个名为REGEXP的函数，用法和SUM一样简单。

1. 代码实现

请按下Alt + F11进入 VBA 编辑器，插入一个「模块」，然后粘贴以下代码：

'''''' Excel 正则表达式自定义函数 (REGEXP)' 功能：在 Excel 单元格内直接进行正则匹配提取'''''Function REGEXP(ByVal Target As String, _ ByVal RegPattern As String, _ Optional ByVal SubMatchIndex As Integer = -1, _ Optional ByVal IsNumbering As Boolean = False) As Variant Dim reg As Object Dim matches As Object Dim result As Variant ' 设置默认返回值为 #N/A REGEXP = CVErr(xlErrNA) ' 基础校验 If Target = "" Or RegPattern = "" Then Exit Function ' 创建正则表达式对象 (后期绑定，无需手动勾选引用) Set reg = CreateObject("VBScript.RegExp") With reg .Pattern = RegPattern ' 设置正则规则 .IgnoreCase = True ' 忽略大小写 .Global = True ' 全局搜索 End With ' 执行匹配 Set matches = reg.Execute(Target) ' 如果找到匹配项 If matches.Count > 0 Then ' 情况 A：如果指定了子匹配索引 (SubMatchIndex >= 0) If SubMatchIndex >= 0 Then If matches(0).SubMatches.Count > SubMatchIndex Then result = matches(0).SubMatches(SubMatchIndex) Else Exit Function  End If ' 情况 B：未指定索引，则返回整个匹配到的字符串 Else result = matches(0).Value End If ' 格式转换：如果要求转为数值，且结果确实是数字 If IsNumbering And IsNumeric(result) Then REGEXP = CDbl(result) Else REGEXP = result End If End IfEnd Function

职场常用正则公式大集合

装好代码后，直接在单元格输入公式（假设数据在A2）：

需求	正则表达式	示例公式
提取手机号	`1[3-9]\d{9}`	`=REGEXP(A2, "1[3-9]\d{9}")`
提取金额	`\d+(\.\d+)?`	`=REGEXP(A2, "\d+(\.\d+)?", -1, TRUE)`
只留中文	`[\u4e00-\u9fa5]+`	`=REGEXP(A2, "[\u4e00-\u9fa5]+")`
提取括号内容	`\((.*?)\)`	`=REGEXP(A2, "\((.*?)\)", 0)`
提取邮箱	`[\w.-]+@[\w.-]+\.[a-z]{2,}`	`=REGEXP(A2, "[\w.-]+@[\w.-]+\.[a-z]{2,}")`
身份证号	`\d{17}[\dXx]`	`=REGEXP(A2, "\d{17}[\dXx]")`