数据清洗的时候往往需要从表格中提取特定的字符串,而少量数据用Excel就能完成。
下面Excel VBA自定义函数来提取 字符串中符合正则表达式的字符串
先上效果图:
以下从一个单元格字符串中提取出连续出现的数字,并且空格分割,后面只需分列以下就提取到不同单元格了。
函数代码:
Function REFIND(str, re)
Dim Reg As New RegExp
With Reg
.Global = True
.Pattern = re
Set matchs = .Execute(str)
For Each Match In matchs
y = y & " " & Match
Next
End With
'MsgBox y
REFIND = y
End Function
注意:需要是office的VBA环境,sheet名字右键查看代码或者开发工具进入VBA界面。在插入中插入模块,编写代码,保存;然后就可以在表格中使用了。
如果出现用户自定义类型未定义,那是因为RegExp类型需要从工具栏中引用添加 Microsoft VBScript Regular Expressions 5.5