Excel 正则表达式提取值

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/catoop/article/details/70247105

快捷键 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, ,胶袋