word中自帶正則表達式，不過Excel中卻沒有內置。可以在VBA中定義一個正則表達式函數，然后Excel中就可以調用了。VBA代碼如下（VBA高亮無效，湊合著看）：

1.Function ExStr(Str As String, Parttern As String, ActionID As Integer, Optional RepStr As String = "")
2. Dim regex As Object
3. Set regex = CreateObject("vbscript.regexp")
4. With regex
5. .Global = True
6. .IgnoreCase = True
7. .MultiLine = True
8. .Pattern = Parttern
9. End With
10. Select Case ActionID
11. Case 1: '替換
12. ExStr = regex.Replace(Str, RepStr)
13. Case 2: '判斷
14. ExStr = regex.test(Str)
15. Case 3: '提取
16. Dim matches As Object
17. Set matches = regex.Execute(Str)
18. For Each Match In matches
19. ExStr = ExStr & Match.Value
20. Next
21. End Select
22.End Function

'正則表達式 V2

'增加：完善注釋

'函數ExStr功能，根據正則表達式，替換或判斷或提取字符串

'參數 str 源字符串

'參數 Parttern 正則表達式字符串

'參數 ActionID

'函數功能

'1正則方法一，替換符合正則表達式的字符,可選參數RepStr為替換值

'2正則方法二 判斷是否有符合正則表達式，有返回“TRUE”，無返回“FALSE”

'3正則方法三,提取符合正則表達式的字符

'參數 Repstr 指定替換的字符，可選項，默認為空

'附常用幾個正則表達式

'第二個參數Parttern為正則表達式，按規則使用即可。使用該函數會自動得到匹配結果

'例如，要提取4位數，如下調用即可：=exStr(A1,"\d{4}",3)

'替換：=ExStr(B2,"\d{4}",1,"0713")

'判斷：=ExStr(C2,"\d{4}",2)

?

'匹配4位數 \d{4}

'

'匹配中文字符 [\u4e00-\u9fa5]

'匹配雙字節字符(包括漢字在內)：[^\x00-\xff]

'匹配空白行的正則表達式：\n\s*\r

'匹配HTML標記的正則表達式：<(\s*?)[^>]*>.*?|<.*?>

'匹配首尾空白字符的正則表達式：^\s*|\s*$ 可以用來刪除行首行尾的空白字符(包括空格、制表符、換頁符等等)，非常有用的表達式

'匹配Email地址的正則表達式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*

'匹配網址URL的正則表達式：[a-zA-z]+://[^\s]*

'匹配帳號是否合法(字母開頭，允許5-16字節，允許字母數字下劃線)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$

'匹配國內電話號碼：\d{3}-\d{8}|\d{4}-\d{7} 匹配形式如 0511-4405222 或 021-87888822

'匹配騰訊QQ號：[1-9][0-9]{4,}

'匹配中國郵政編碼：[1-9]\d{5}(?!\d)

'匹配身份證：\d{15}|\d{18}

'匹配ip地址：\d+\.\d+\.\d+\.\d+