让Excel 支持正则表达式

1. 在Excel 打开“开发工具”菜单
   

2. 点击录制宏，选择“个人宏工作簿” ，点击确定
   

3. 点击停止录制
   

4. 点击 Visul Basic 按钮，进入VBA编辑界面，将下面得代码复制到“模块1”中，保存
   

Function RegEx(Str As String, pattern As String) As String
  dim reg
  Set reg= CreateObject("VBScript.RegExp")
  With RegEx
    .pattern = pattern    
  End With

  Set matches = reg.Execute(Str)
    Dim r As String
    For Each Match In matches
       RegEx = Match.Value
       Exit For
    Next Match 
End Function

5. 效果如图
   

6. vba 正则表达式选项

Pattern: 匹配模式字符串.
IgnoreCase: 忽略大小写.
Global:全局匹配,True 会匹配多个，False仅匹配一个就结束.
Multi-Line: 多行

7. vba 正则表达式方法

Test: 字符串是否有比配.
Execute: 对字符串就行匹配.
Replace: 将匹配得字符串，用新字符串替换.