本文介绍了一个VBScript函数GetStr，该函数利用正则表达式从源数据中提取特定格式的字符串。示例展示了如何从包含尺寸信息的文本中准确地抽取所需内容。
快捷键 Alt +F11 打开代码视图
代码：
Function GetStr(rng As Range)
With CreateObject("VBscript.regexp")
.Global = True
.Pattern = "\d+\*\d+\+{0,1}\d{0,}" '表达式
If .Execute(rng).Count = 0 Then
GetStr = ""
Else
GetStr = .Execute(rng)(0)
End If
End With
End Function
函数 GetStr 就编写完成了，使用方法截图如下：
本例是从源数据中提取字符串
测试数据如下：
扫一扫
715
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
