首先打开Excel自带的VBA开发环境

导入一个库

选择 工具 > 引用

导入下面选中的库,第一次导入需要使劲往下翻,界面特别蛋疼

 

 

然后粘贴下面的代码

Public Function REGEXSUBSTRING(str As String, pat As String, ignoreCase As Boolean, def As String) As String

'Define the regular expression object

Dim RegEx As New RegExp

'Set up regular expression properties

With RegEx

.Global = False 'All occurences are not necessary since a single occurence is enough

.ignoreCase = ignoreCase  'No case-sensitivty

.MultiLine = True 'Check all lines

.Pattern = pat 'pattern

End With


Dim Ms

Set Ms = RegEx.Execute(str)

If Ms.Count <> 0 Then
    REGEXSUBSTRING = Ms.Item(0).Value
Else
    REGEXSUBSTRING = def
End If

End Function

第一个参数是一个待匹配的字符串,也可以是一个单元格,第二个参数是正则表达式,第三个参数是是否忽略大小写,第四个参数是假如没有匹配项返回的默认字符串

我这边测试保存在个人宏工作簿中无法在其他表格中引用或者说找到自定义公式,其实可以另存为成加载宏,然后在别的表格中加载这个表格,这样公式栏中就会自动补全公式了

例如

 

 

 

 

使用示例