excl 不可见字符批量删除(终极方案探讨)！！便于显示数字求和！！！

luyina

不可见字符影响excl 数字计算，是量大的情况下，处理起来很麻烦，因此想实现批量删除所有不可见字符方案！

坛子里方案大多针对某种不可见字符，适用范围有限！！！现找到三个不可见字符特例，参考大师给出的不可见字符代码范围，写VBA代码批量删除指定范围内所有不可见字符，理论上可以删除所有不可见字符。试验中唯有附件中最后一张表的不可见字符无法删除，请大师出手！！！！！

附件：提供VBA代码批量清除所有不可见字符，唯有最后一种无法删除，请大师出手！！！！




补充内容 (2014-3-13 16:41):
以下代码可以批量删除ascii中所有不可见字符，选中目标区域，然后运行宏即可！！！！
Sub  清选定区不可见字符()
   Set rngs = Intersect(ActiveSheet.UsedRange, Selection)
    For i = 3 To 32  
        rngs.

jsxjd

1. =LEFT(RIGHT(A2,7),6)

复制代码

luyina

jsxjd 发表于 2014-2-28 17:04

这仅是一个特例，如果单元格字符长度不等，不可见字符数量不定，位置不定........

jsxjd

luyina 发表于 2014-3-1 07:53
这仅是一个特例，如果单元格字符长度不等，不可见字符数量不定，位置不定........

用VBA处理，Excel 不支持 Unicode

luyina

jsxjd 发表于 2014-3-2 15:12
用VBA处理，Excel 不支持 Unicode

Sub  清选定区不可见字符()
   Set rngs = Intersect(ActiveSheet.UsedRange, Selection)
    For i = 3 To 32  
        rngs.Replace ChrW(i), ""
    Next
    For i = 127 To 254
        rngs.Replace ChrW(i), ""
    Next
End Sub

这段VBA 代码可以清除选定区域的几乎所有不可见字符。唯独不能处理附件中的最后一张表中的不可见字符，用code函数取其代码值为63 ，而63 的ascii 表中符号应该是问号？。不得其解..........附ascii代码表

jsxjd

luyina 发表于 2014-3-3 11:07
Sub  清选定区不可见字符()
   Set rngs = Intersect(ActiveSheet.UsedRange, Selection)
    For i = ...

code 取不到 Unicode

刀羊

有终极方案了吗？

luyina

刀羊 发表于 2014-3-12 22:19
有终极方案了吗？

以下代码可以批量删除ascii中所有不可见字符，选中目标区域，然后运行宏即可！！！！

Sub  清选定区不可见字符()
   Set rngs = Intersect(ActiveSheet.UsedRange, Selection)
    For i = 3 To 32  
        rngs.Replace ChrW(i), ""
    Next
    For i = 127 To 254
        rngs.Replace ChrW(i), ""
    Next
End Sub

刀羊

unicode 怎么办呢？ 或者变通的办法。

yhy123556

半夜看见这个贴子太感谢了！！本人小白初学，用VBA从word复制出来的数据处理起来有问题，然后发现都多了不可见字符 “ ” ，用clean函数可以清除，但数据较多，用楼主的代码可以完美解决这个问题，可以安心的睡觉上班了T-T