1.文档保存为启用宏的工作簿
2.然后打开工作i簿，ALT+F11组合键打开VBA编辑窗口，点击 菜单栏--插入--模块，复制代码到新建模块的代码编辑区
3.保存，返回工作表，和使用其他函数一样，输入：=sfind(N23)
Option Explicit
Function sfind(ByVal str As Variant)
Dim mc As Variant
With CreateObject("vbscript.regexp")
.Global = False
.Pattern = "[0-9]{6}"
If Not .test(str) Then
sfind = "null": Exit Function
End If
Set mc = .Execute(str)
End With
sfind = mc.Item(0)
Set mc = Nothing
End Function"
参考链接：https://zhidao.baidu.com/question/1950611345817243908.html
