VBA代码可覆盖Excel中的空白单元格

Question

有时候，我们使用IF公式，例如在=IF(A1=1,5000,"")的B1中使用类似的公式，结果似乎是5000或空白单元格。但是空白单元格实际上不是空白的，因为它包含一个返回“”的公式-这就是为什么该单元格看起来空白的原因。

将公式从B1拖到B10（例如）时，将选择10个单元格。然后，我编写了以下代码，使返回为“”的单元格为空。

Option Explicit
Sub delblanks()
For Each cell In Selection
    If cell.Value = "" Then cell.Value = ""
Next
End Sub

...它触发错误

  

未定义变量

如何解决此问题？

Answer 1

这应该在这里解决。如果您不声明变量，Option Explicit就会出错。

Option Explicit
Sub delblanks()
  Dim cell As Range
  For Each cell In Selection
      If cell.Value = "" Then cell.Value = ""
  Next
End Sub

Answer 2

为什么不放置实际变量而不是仅使用“”并使用您的代码将其删除？