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, ,膠袋