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

LangQueS

求助宏代码：替换掉当前工作表中存在的所有假空。
n6c5C0Uc.rar (6.78 KB, 下载次数: 220)

2007-9-30 02:18 上传

点击文件名下载附件
[求助]如何替换掉“假空”单元为真空

[此贴子已经被作者于2007-10-2 23:06:00编辑过]

northwolves

ActiveSheet.UsedRange.Replace Chr(10), ""

LangQueS

QUOTE:

以下是引用northwolves在2007-9-30 1:06:30的发言：
ActiveSheet.UsedRange.Replace Chr(10), ""

不会用代码，请northwolves版主上传附件解答。谢谢！

我的问题有误，不是Chr(10)，是由于对返回空值的公式单元选择性粘贴而造成的假空单元。

[此贴子已经被作者于2007-9-30 2:21:03编辑过]

northwolves

Sub macro1()
ActiveSheet.UsedRange.Replace Chr(10), ""
End Sub

LangQueS

QUOTE:

以下是引用northwolves在2007-9-30 1:37:28的发言：
Sub macro1()
ActiveSheet.UsedRange.Replace Chr(10), ""
End Sub

在1楼问题附件中执行了代码，没起作用呀！

请northwolves版主再分析一下原因，谢谢。

northwolves

未发现chr(10):

Sub macro1()
On Error Resume Next
For Each c In ActiveSheet.UsedRange
For i = 1 To Len(c)
Debug.Print Asc(Mid(c, i, 1));
Next
Debug.Print c.Address
Next
End Sub

northwolves

Sub macro1()
Debug.Print ActiveSheet.UsedRange.SpecialCells(4).Address
End Sub

返回:

$B$1:$D$1,$B$2:$C$2,$E$1:$E$2,$B$3:$D$3,$H$1:$H$3,$A$1:$A$4,$C$4:$E$4,$I$1:$I$4,$A$5:$D$5,$A$6:$C$8,$D$6:$E$9,$G$1:$G$6,$A$9:$B$9,$G$8:$G$9,$I$6:$I$9,$A$10:$D$10,$F$1:$F$10,$A$11:$G$12,$A$13:$F$13,$H$5:$H$13,$A$14:$H$14,$A$15:$C$15,$E$15:$G$15,$I$11:$I$15

LangQueS

原来使用过的代码：

Sub 取消选定区域的公式只保留值并取消假空()
Selection.Value = Selection.Value
End Sub

但当该区域中包含需要保留的公式时不可使用。

LangQueS

QUOTE:

以下是引用northwolves在2007-9-30 2:06:29的发言：

Sub macro1()
Debug.Print ActiveSheet.UsedRange.SpecialCells(4).Address
End Sub

返回:

$B$1:$D$1,$B$2:$C$2,$E$1:$E$2,$B$3:$D$3,$H$1:$H$3,$A$1:$A$4,$C$4:$E$4,$I$1:$I$4,$A$5:$D$5,$A$6:$C$8,$D$6:$E$9,$G$1:$G$6,$A$9:$B$9,$G$8:$G$9,$I$6:$I$9,$A$10:$D$10,$F$1:$F$10,$A$11:$G$12,$A$13:$F$13,$H$5:$H$13,$A$14:$H$14,$A$15:$C$15,$E$15:$G$15,$I$11:$I$15

不知可否定位所有假空单元？

[此贴子已经被作者于2007-9-30 2:11:33编辑过]

山菊花

RSdDQuvW.zip (10.58 KB, 下载次数: 1154)

2007-9-30 08:06 上传

点击文件名下载附件
[求助]如何替换掉“假空”单元为真空