,,

<li id="egago"></li>

[點晴永久免費OA]正則表達式如何直接在EXCEL中使用？

當前位置：點晴教程→點晴OA辦公管理信息系統 →『經驗分享&問題答疑』

freeflydom

2025年2月16日 11:58 本文熱度 643

正則表達式，相信大家都不陌生。但在我們最常用的辦公軟件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