excel - 如何包装 IF(ISBLANK( 围绕所有公式

Question

我在互联网上找到了这个 VBA 代码。它包含所有公式的“IFERROR”。

Sub Add_IFERROR()
Dim R As Range

For Each R In Selection.SpecialCells(xlCellTypeFormulas)
    If Left(R.Formula, 8) <> "=IFERROR" Then
        R.Formula = "=IFERROR(" & Mid(R.Formula, 2) & ","""")"
    End If
Next R

End Sub

我试图对其进行修改，使其包装一个“IF(ISBLANK(”)但得到一个编译错误。

如果 ISBLANK=TRUE，则希望显示空白(无，“”)，如果为 FALSE，则显示单元格中的任何内容。

Answer 1

ISBLANK 与 的工作方式不同中频错误。它的工作原理与 相同。是 错误。它仅返回 TRUE/FALSE。要使其在公式中起作用，您将使用以下命令:

Sub Add_ISBLANK()
Dim R As Range

For Each R In Selection.SpecialCells(xlCellTypeFormulas)

     If Left(R.Formula, 8) <> "=ISBLANK" Then
          R.Formula = "=IF(ISBLANK(" & Mid(R.Formula, 2) & "),""""," & Mid(R.Formula, 2) & ")"
     End If
Next R

End Sub

来自 =FORMULA , 它会产生 =IF(ISBLANK(FORMULA),"",FORMULA)