前景提要

在昨天的案例中，我们学习了如何通过VBA的方式，让公式中的错值所在的单元格区域错值不可见，同时不改变单元格内部的公式，方便数据表的二次循环利用

但是有小伙伴们就表示，虽然让公式错值不可见，从数据整体外观上来看，是清新了很多，但是对于后期数据的核查筛选以及汇总来说，依然存在很大的不方便，错值还是错值，还是没有办法参与运算，并且有时候需要单独看看这些错值是哪里错，不可见之后，反而不方便看了。

是否能够将错值进行统一替换，替换成为一个我们想要的结果

场景说明

这样的操作场景，确实是我们上节没有考虑到的结果，那么我们今天继续来实现这个场景需要

这是我们有修改了一下之后的场景，上面小伙伴反馈的情况确实是有一定的影响的，数据没有办法进行二次计算，虽然错值不可见，但是一些相关的计算还是没有办法计算，那么我们今天来讲这些错值转化成为0，这样就不会影响公式的计算了。

代码区

Sub tests2()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择单元格区域", "区域的选择", , , , , , 8)

For Each a In rng

If IsError(a.Value) Then

a.Value = 0