用EXCEL的正则表达式提取商品的价格

将价格信息文档复制在EXCEL的某一个位置，比如存放在Sheet2的第20列第3行.注意，复制后一般会根据回车符号依次粘贴在第4,5.....行。

打开Excel的VBA窗口，选择新建模块，打开模块输入下列代码

 Function 提取数据(tt As String, n As Long)

Set objRegx = CreateObject("vbscript.regexp")

objRegx.Global = True

objRegx.Pattern = tt & "\D*(\d+\.*\d*)"

For i = 3 To Sheet2.[t1048576].End(3).Row

    If objRegx.test(Sheet2.Cells(i, 20)) Then

       Sheet2.Cells(i, n) = objRegx.Execute(Sheet2.Cells(i, 20))(0).SubMatches(0)

    Else

    Sheet2.Cells(i, n) = 0

    End If

Next i

 End Function

以上代码是一段自定义函数。

在模块中再次写入

sub 执行()

aa=提取数据("批发价",2)

end sub

于是就会将批发价提取在sheet2的第三列中依次存放喽！

如果有问题，请继续与小编沟通！