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

时间:2014-07-23 19:33:17

标签: excel-vba vba excel

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

enter image description here

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

With calcCalculations

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

Next

End With

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

由于

1 个答案:

答案 0 :(得分:1)

为什么不在IF()子句中包装BQ列的当前公式,例如:

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

这意味着:如果BO列中的相邻单元格为空,也显示空字符串(否则显示公式&#39; s)。

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

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