如果公式返回空白值，如何清除单元格？

Question

我有这样一个公式：

if(A1="","",1) 

我如何做一个快速的搜索，以去掉公式如果是""？ 我试图寻找空白，但因为有一个公式，它不会返回空白。

Answer 1

您需要使用下面的代码

Sub ClearCell() 
    Dim Rng As Range 
    Set Rng = ActiveSheet.Range("A1") 

    Dim i As Long 
    For i = 1 To 10 
     If Rng.Cells(i,1) = "" Then 
      Rng.Cells(i,1).ClearContents 
     End If 
    Next i 
End Sub 

这将离开细胞真正EMPTY，而不是用一个零字符""字符串。

如果您正在寻找清除任意长度的空白单元格，使用

If Len(Trim(Rng.Cells(i,1))) = 0 Then 
' ..... 

这种情况将是任意数量的空格或没有空格（空字符串）真。这样（几乎）任何看起来空白的东西都会被清除。