Excel 正则表达式提取值

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