微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA 实例(32) – 批量替换隐藏的神秘字符

Excel VBA 实例 永恒君 1798℃ 0评论
这几天为了核对一些账务的问题,在网银、证券账户中下载csv格式的明细文件。在查看的过程中想将数据进行求和,发现居然不能实现?无论是用求和函数公式,还是excel的状态栏里面,都看不到求和的迹象。但是手工输入数据的话,求和函数是正常的。

图片

图片

不仅求和没法使用,任何关于计算的功能都没有办法实现。尝试了将单元格格式改成数值,依然没有用。

这时,永恒君开始怀疑数据本身里面藏着我们肉眼看不见的东西,将CSV文件数据复制到记事本里一看,果然有情况!

图片

如图,每个单元格里的数据还夹杂了两个引号(“”)若干个空格。将这些符号删除掉,就可以正常的进行加减等运算了。

现在问题来了,难道要手工一个一个去进行去除??这么繁琐的事情当然不符合永恒君的行事风格。

经过永恒君的一番实践,使用VBA可以来快速批量处理,现在来分享一下。如果你也遇到了类似的问题,视情况进行测试一下吧。

上面已经把问题搞清楚了,代码的话就很简单4行搞定,对每一个选中的单元格进行遍历,去除引号和空格的处理。你选中哪些单元格,就处理哪些,非常灵活方便。效果如下:

图片

VBA代码:

Sub trim_test()   
    For Each c In Selection.Cells
        If Len(c) Then 
          c.Value = Replace(Replace(c.Value, Chr(9), ""), Chr(39), "")
    Next
End Sub

 

你可能还会想看:
欢迎交流!
微信公众号:永恒君的百宝箱
个人博客:www.yhjbox.com

转载请注明:永恒君的百宝箱 » Excel VBA 实例(32) – 批量替换隐藏的神秘字符

喜欢 (2)
发表我的评论
取消评论
表情