[已解决]如何替换掉“假空”单元为真空

LangQueS

山菊花超级版主的代码非常完美！谢谢山版主！

谢谢northwolves版主！

daley

呵呵收藏,又捡了一段代码!!

ce100818

版主的代码深遂哟,慢慢看

山版好代码,哈

开始以为需要很长时间运行,结果很快,佩服

[此贴子已经被作者于2008-9-14 10:54:11编辑过]

zldccmx

　随便在一个单元格中，输入公式　＝rept(chr(9),10),复制－选择性粘贴到E20，这时LEN(E20)=10，再执行山版主的代码，E20仍然存在个10个不可见字符！
不可见字符当然远不止chr(9)，chr(10)，还有许多，你在工作中[A1:A255]中输入公式＝ char(row())
你就会发现　，在工作表中，不可见字符远远不止chr(9)

lgh978

看不懂，

aichong

基础操作法：
http://club.excelhome.net/viewth ... p;page=1#pid3979300
将表格复制到Word中，可以看出：空白的单元格不是真空单元格，而是有空格的单元格（即：假空单元格），所以不能用 “编辑”＝》“定位”来查找。
可以用“编辑”＝》“查找”，“查找内容”留空，查找全部，然后按Ctrl+A选中。
=============================================
是否可以把 文件 复制到文本文档中，然后再复制回来呢？
------
从Word文档或记事本文档复制回来就可以定位了，呵呵。
另一个实例：http://club.excelhome.net/thread-592841-1-6.html

hit100

Set c = .Find("", LookIn:=xlValues, lookat:=1)
这句总是报错要求对象，版主能教一下吗，谢谢

弗森-盛

我是这样决绝的， 替换空格为*&^特殊符号，再替换回空格

yaozong

zldccmx 发表于 2009-7-13 23:47
　随便在一个单元格中，输入公式　＝rept(chr(9),10),复制－选择性粘贴到E20，这时LEN(E20)=10，再执行山版 ...

''你在工作中[A1:A255]中输入公式＝ char(row())
你就会发现　，在工作表中，不可见字符远远不止chr(9)
统计一下有135种空白符(假空)

试用下式可把这135种假空替换为真空

Sub 替换A列假空为真空()
Dim ar, i
ar = Array(9, 10, 13, 28, 29, 30, 31, 32, 127)
For i = 0 To UBound(ar)
   [A:A].Replace ChrW(ar(i)), ""
Next
For i = 129 To 254
   [A:A].Replace ChrW(i), ""
Next
End Sub

fjmqfsl

学习了，天天向上！