用途：将所有无效公式以IFERROR公式处理为空白字串
下载(xlam)：https://reurl.cc/7neNy
Demo：https://i.imgur.com/Oz6MOL5.gif
Demo下载(xlsm)：https://reurl.cc/ApKaj
xlam增益集使用方法：https://i.imgur.com/1KvzYVc.gif
==
记得以前在某所案件归档前的File Check
会检查Excel档案所有的无效公式(#DIV/0!, #NAME?, #N/A)
这些无效公式一两个手动处理还好，但常常莫名就有上百个要处理，
这时慢慢一个一个处理就满浪费时间的，
这个小VBA会检查所有工作表的公式，如果是错误的公式的话，会用IFERROR把它包起来
原始码如下，会开启VBE(ALT+F11)的话可以直接复制贴上，再按F5执行即可：
Sub Replace_Formula_by_Adding_IFERROR()
Dim Sh As Worksheet
Dim cell As Range
Dim FormulaRng As Range
On Error Resume Next
For Each Sh In Worksheets
Set FormulaRng = Sh.Cells.SpecialCells(xlCellTypeFormulas)
If Not FormulaRng Is Nothing Then
For Each cell In FormulaRng
If IsError(cell) Then
cell.Formula = "=iferror(" & Mid(cell.Formula, 2) & ", """")"
End If
Next cell
End If
Next Sh
On Error GoTo 0
End Sub