举例说明。
例如有数据表如图:
现要求将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.结果如图:
假设你的数据在A列,则在B1输入公式:
=MID(A1,FIND("制",A1)+1,LEN(A1)-FIND("制",A1)-1)
下拉