作者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