如果满足条件，则清除列的内容

Question

我正在尝试编写一个过程来检查列BO中的行是否为空，如果是，则清除列BQ中同一行的内容。例如：

在此示例中，BQ列中的测试3之后的所有内容都应为空白。我写了以下内容：

With calcCalculations

For Each rng In Columns("BO").SpecialCells(xlBlanks)
    rng.Offset(, 3).Value = ""

Next

End With

但是不适合我。程序运行没有错误但没有任何反应。还计算了列BQ的数据。换句话说，0是BQ列上公式的结果。

由于

Answer 1

为什么不在IF（）子句中包装BQ列的当前公式，例如：

=IF(BO1<>"";{current_formula};"")

这意味着：如果BO列中的相邻单元格为空，也显示空字符串（否则显示公式＆＃39; s）。

如果列BQ中的值为零（而不是依赖于BO列中的文本），实际上不希望出现任何内容，则必须使用以下内容：

=IF({current_formula}<>0;{current_formula};"")