Question

请求VBA高手：如何在EXCEL（2010版）中，如何一次性替换全部错误值（错误值是公式下的，不是数值）

比如我有一个工作薄，工作薄中有100个工作表，每个工作表都有大量数据，而且全部是公式生成的数据，其中有95个表存在部分错误值，我知道改公式或用“iserror”可以避免错误值，但是这样改起来太多，太麻烦，我的公式都是很长的公式，希望得到一个VBA编程，目的是：
1、能够一次性全部选中整个工作薄中的全部错误值（请不要讲替换，那个只能替换值类型的，我的错误值是在公式下的，无法替换的）。
2、能够一次性全部替换成我要的值，或删除全部错误值。
请指教！！！

Answer 1

下面的代码能达到你的目的，代码非常简单，把所有工作表中公式错误的单元格内容清空：

Sub xxx()
    Dim st As Worksheet
    Dim cel As Range
    For Each st In Sheets
        For Each cel In st.UsedRange.Cells
            If IsError(cel) Then cel.ClearContents
        Next cel
    Next st
End Sub

代码我测试通过，应该没有问题，你遇到问题请详细描述，最好拷屏。

Answer 2

编个代码给你
这个代码是把全部sheet的错误单元格删除内容
试用的时候小心一些

Sub Macro1()
For n = 1 To Sheets.Count
Worksheets(n).Cells.SpecialCells(xlCellTypeFormulas, 16).ClearContents
Next n
End Sub

Answer 3

Sub DelErr()
Dim Sht As Worksheet
Dim Rng As Range
For Each Sht In ThisWorkbook.Worksheets
For Each Rng In Sht.UsedRange
If IsError(Rng.Value) Then Rng = Null
Next
Next
End Sub

以上代就是删除错误值的
你可以修改上面代码中
If IsError(Rng.Value) Then Rng = Null
一句等号右边的值为你想要的值
这样这会把所有错误值替换成你希望的值

Answer 4

把当前工作每个工作表中的错误值，全部删除

Sub dele_err()
'
Application.ScreenUpdating = False

For i = 1 To Sheets.Count
Sheets(i).Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.ClearContents
Next i

Application.ScreenUpdating = True

End Sub