举例说明。
例如有数据表如图:
现要求将A列的数值提取后放在B列。
第一步:插入模块,写入自定义函数。代码如下:
Function qczf(A)
With CreateObject("vbscript.RegExp")
.Global = True
.ignorecase = True
.Pattern = "[^0-9]"
qczf = .Replace(A, "")
End With
End Function
第二步:在B2输入公式:=qczf(A2)
第三步:将B2的公式下拉至B4.结果如图: