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 Object3. Set regex = CreateObject("vbscript.regexp")4. With regex5. .Global = True6. .IgnoreCase = True7. .MultiLine = True8. .Pattern = Parttern9. End With10. Select Case ActionID11. Case 1: '替换12. ExStr = regex.Replace(Str, RepStr)13. Case 2: '判断14. ExStr = regex.test(Str)15. Case 3: '提取16. Dim matches As Object17. Set matches = regex.Execute(Str)18. For Each Match In matches19. ExStr = ExStr & Match.Value20. Next21. End Select22.End Function
'正则表达式 V2
文章内容来源于网络，由WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。
'增加：完善注释
'函数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*?)[^>]*>.*?</\1>|<.*? />
'匹配首尾空白字符的正则表达式：^\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+
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
