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

wshcw · 发表于 2017-7-20 10:07

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

还应该有个：
UNICHAR和UNICODE函数，VBA中也应该有的。

凤翔时代 · 发表于 2017-8-28 10:29

正被苦恼中，多谢分享！

硅谷少年 · 发表于 2017-9-12 12:57

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

excel 2013才增加了unicode和unichar函数，63对应的可能是unicode空格，之前统计过，空格有19种，对应不同的语言情况，例如蒙古、阿拉伯语等等。

wdpfox · 发表于 2018-3-5 16:14

收藏备用，谢谢分享！

cjc209 · 发表于 2018-10-8 00:22

Sub 清选定区不可见字符()
'原理：代码值(用CODE函数得到)在1-255范围内的字符中,有1-15,28-32,127-254共148个不可见字符。
Set rngs = Application.InputBox(prompt:="请框选要清理的数据区域：", Type:=8)
For i = 3 To 15  '代码值1-15不可见字符((选1,2时清空))
      rngs.Replace ChrW(i), ""
Next
For i = 28 To 32  '代码值28-32不可见字符
      rngs.Replace ChrW(i), ""
Next
For i = 127 To 254 '代码值127-254不可见字符
      rngs.Replace ChrW(i), ""
Next
End Sub

zijun-t · 发表于 2018-11-7 16:09

luyina 发表于 2014-3-13 16:33
以下代码可以批量删除ascii中所有不可见字符，选中目标区域，然后运行宏即可！！！！

Sub 清选定区不 ...

由于字符串比较长，能不能加一句让它保存为文本而不是科学记数法

		自动登录	找回密码
密码			免费注册

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

最新热点 /1