VBA代码，用于在Excel中覆盖空白的单元格

Question

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

当我们将公式从B1拖到B10(SAS(时，选择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

为什么不放置实际变量而不是"并使用您的代码删除它？