版权声明：本文为博主原创文章，未经博主允许不得转载。 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, ,胶袋 |