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

我有这样一个公式：

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

如果是""我该如何快速search删除公式？ 我试图寻找空白，但因为有一个公式，它不会返回一个空白。

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而不是使用零字符的string。

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

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

对于任何数量的空格或没有空格（空string），这种情况都是成立的。 这样（几乎）任何看起来空白的东西都会被清除。