作者noworneverev (小朋友)
看板Accounting
标题[心得] Excel IFERROR修改所有错误公式 VBA实战
时间Sun May 5 16:48:41 2019
用途：将所有无效公式以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
--
Accoding:
https://www.facebook.com/AccodingTW/
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.70.245.105
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Accounting/M.1557046132.A.BC5.html
1F：推 claude1470: 谢谢分享，超实用的 05/05 21:53
2F：推 s3513232: 刚归完档路过 05/06 19:43
3F：推 alice78226: 推 05/07 08:18