，本人用Excel 2010 VBA做了一个抓取天猫搜索结果数据的功能，关于货币符号¥处理的有关问题，请专家们帮小弟我看看，多谢!

求助，本人用Excel 2010 VBA做了一个抓取天猫搜索结果数据的功能，关于货币符号¥处理的问题，请专家们帮我看看，谢谢!!!
做这个功能目的是为了从搜索结果中取得数据，并且把数据存放到Excel单元格中，数据主要是最新价格、原价格、宝贝名称、月销量、累计评价、店铺名称几个字段，其中原价格和累计评价有的商品中有这个信息，有的商品中没有，我是通过以下代码抓取数据的，取得的数据是包含了上述所有个字段内容的一个字符串，我通过针对字符串的处理从中区分每个字段的内容，再把内容填入到单元格中，现在有一个问题就是￥符号，在网页源代码中是用¥来表示的，抓取到Excel中又是以¥这个符号来表示的，如何正确的识别这个符号，如何处理这个符号请专家们指点，或者有没有更好的办法，可以在抓取数据的时候就分别抓取各个字段的字符串信息，也请专家们指教，谢谢！！！

    Set ie = CreateObject("InternetExplorer.Application")    '创建一个IE对象

    With ie

        .Visible = True    '显示它

        .navigate "http://list.tmall.com/search_product.htm?q=%B4%B4%BF%C9%CC%F9&user_action=initiative&at_topsearch=1&sort=st&type=p&cat=&style="    '加载某个页面

        Do Until .ReadyState = 4    '等待页面加载完毕

            DoEvents

        Loop

        Set dmt = .document    '将IE浏览器加载的页面文档，赋予dmt变量

    End With

 

    Set div1 = dmt.all("J_Itemlist") '获取数据表所在的div1标签

    Cells(1, 1) = "最新价格"

    Cells(1, 2) = "宝贝名称"

    Cells(1, 3) = "月销量"

    Cells(1, 4) = "累计评价"

    Cells(1, 5) = "店铺名称"

    For i = 0 To div1.Children.Length - 1 '遍历每个div2

         

         zfc = div1.Children(i).innertext  '提取单个商品所有信息

     next

------解决方案--------------------
根本不用处理货币符号的。
取得网页文本后用 Replace 函数将 "¥" 替换成 ""，剩下的就是纯数值了。
Excel 先将单元设置为带 ¥ 符号的货币格式，然后通过 Value 而不是 Text 存取。

------解决方案--------------------
zfc =replace( div1.Children(i).innertext  ,"¥","")