【Excel 扩展正则的能力】工作中赋予处理单元格文本的强大正则表达提取能力
文本提取处理领域，正则表达式是最为强大的存在，工作中Excel 是常用的小型数据采集，处理，分析的工具但本身不具备正则的能力，让Excel拥有正则的能力无疑是如虎添翼的能力。
方案
让正则作为函数内容的一部分，给这类业务正则直接命名一个函数名称，调用时直接访问和Excel 系统函数一样简单
函数自定义
RegexExtract(rng As Range, ByVal Pattern As String, Optional MatchIndex As Integer = 0, Optional IgnoreCase As Boolean = True)
| 参数名称 | 简介 |
|---|---|
| rng | 需要提取文本的单元格 |
| Pattern | 正则表达式规则字符串，备注：用户根据场景自定义，比如\d+,表示提取连续字符串 |
| MatchIndex | 单元格中匹配成立的字符串集合中，取第几个，起始索引为 0，默认为 0 |
| IgnoreCase | 匹配规则属性设置，是否区分大小写，True 区分，False 不区分 |
Function Code
' 提取字符串中符合正则规则的内容
Function RegexExtract(rng As Range, ByVal Pattern As String, Optional MatchIndex As Integer = 0, Optional IgnoreCase As Boolean = True) As String' on error resume nextDim regEx As Object, matches As ObjectSet regEx = CreateObject("VBScript.RegExp")With regEx.Pattern = Pattern.IgnoreCase = IgnoreCase.Global = TrueEnd WithSet matches = regEx.Execute(rng.Value)If matches.Count > 0 ThenIf MatchIndex < 0 Or MatchIndex >= matches.Count ThenRegexExtract = "Index out of range"ElseRegexExtract = matches(MatchIndex).ValueEnd IfElseRegexExtract = "No match"End IfSet regEx = NothingEnd Function代码运行过程演示
