正则表达式自定义函数

为了方便使用正则表达式，可自定义函数如下：

Public Function searchk(ByVal pat As String, ByVal str As String, Optional ByVal group As Integer = 0) As String

Set regexp = CreateObject("VBScript.regexp")

With regexp

.Global = True

.IGNORECASE = False

.Pattern = pat

If .test(str) Then

searchk = .Execute(str)(group)

Else

searchk = ""

End If

End With

End Function

在Excel里直接当函数使用了，如要将 A1 A2 A3的苹果奶2392ml，重量540g，体重147斤重 数据中的带单位数值提取出来，可以在B1单元格中输入=SEARCHk("\d+(ml|g|k|斤)",A1)，往下拉即可出结果。