Excel 正则表达式提取值_excel regexextract

作者：AllinToyou | 2024-04-02 21:30:17

踩

excel regexextract

快捷键 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 就编写完成了，使用方法截图如下：

本例是从源数据中提取字符串

测试数据如下：

60*112mm, ,胶袋

无品牌,Kurio X Screen Protector,130*74mm,无保护贴,胶袋

75*115mm, ,胶袋

190*255mm, ,装iPad保护贴,胶袋,胶袋

无品牌,Kurio 7S Screen Protector,193*120mm,无保护贴,胶袋

180*95mm,平口袋,胶袋

61*115mm, ,胶袋

65*120mm, ,胶袋

135*76mm, ,1308touch5胶袋。,胶袋

65*130mm, ,胶袋

143*74（开口方向）mm,胶袋

120*95mm, ,开口95mm,胶袋

75*130+25mm, ,胶袋

本文内容由网友自发贡献，转载请注明出处：【wpsshop博客】