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

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 
' ..... 

這種情況將是任意數量的空格或沒有空格（空字符串）真。這樣（幾乎）任何看起來空白的東西都會被清除。