使用.SpecialCells

Question

我有一行代码将任何包含＃DIV / O错误的单元格转换为0.这是理想的，除了在范围内没有找到#DIV / o错误。在这种情况下，我得到一个运行时错误，告诉我没有找到，然后我不能超过这个。

有没有办法解决这个问题？

代码如下

Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)

          For Each rCell In rng
          If rCell.Value = CVErr(xlErrDiv0) Then
          rCell.Value = 0
          End If
          Next

我试图使用NullString＆amp; For loops但无济于事。

任何帮助都会很棒。

Answer 1

解决此问题的一种方法是添加.1，如下所示：

ErrorHandler