[点晴永久免费OA]正则表达式如何直接在EXCEL中使用？ │excel中的正则函数

[点晴永久免费OA]正则表达式如何直接在EXCEL中使用？

当前位置：点晴教程→点晴OA办公管理信息系统 →『经验分享&问题答疑』

freeflydom

2025年2月16日 11:58 本文热度 477

正则表达式，相信大家都不陌生。但在我们最常用的办公软件EXCEL中，目前没有可直接使用正则表达式的函数（至少10版本的EXCEL没有），那么今天我就分享下如何在EXCEL中自定义正则函数。

一、提需求

比如，我要拆分下面的字符串：

显然这样的需求，用正则表达式再合适不过了。

二、解决步骤

下面我们使用的这个方法，定义出的函数将长期有效：

1、新建一个EXCEL文件，我这里命名为RE，随后按ALT+F11打开宏编辑器，选中任意一个sheet，右键，选择插入模块：

2、双击模块1，编辑如下VBA自定义函数代码：

 1 Function RE(OriText As String, ReRule As String, ReplaceYesOrNo As Boolean)
 2 '''
 3 'OriText：待匹配的字符串
 4 'ReRule：正则表达式
 5 'ReplaceYesOrNo：是否采用替换方法，1表示替换，0表示不替换，默认为不替换
 6 '''
 7 
 8 '创建一个正则表达式实例对象
 9 Set ReObject = CreateObject("vbscript.regexp")
10 
11 With ReObject
12 
13     '是否区分大小写，一般需求是不用区分大小写，因此这里为True
14     .IgnoreCase = True
15     
16     '是否匹配所有，一般需求也都是匹配所有，这里也就默认是True,如果为False表示只匹配第一次出现的
17     .Global = True
18     
19     '匹配时所用到的正则表达式
20     .Pattern = ReRule
21     
22     If ReplaceYesOrNo Then
23         
24         '如果使用替换方法，则将正则表达式匹配到的项替换为空
25         RE = .Replace(OriText, "")
26         
27     Else
28         '否则，返回可迭代对象的第一项
29         RE = .Execute(OriText)(0)
30 
31     End If
32     
33 End With
34 
35 End Function