[心得] Excel IFERROR修改所有錯誤公式 VBA實戰
==
記得以前在某所案件歸檔前的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://www.ptt.cc/bbs/Accounting/M.1557046132.A.BC5.html
推
05/05 21:53,
6年前
, 1F
05/05 21:53, 1F
推
05/06 19:43,
6年前
, 2F
05/06 19:43, 2F
推
05/07 08:18,
6年前
, 3F
05/07 08:18, 3F
Accounting 近期熱門文章
PTT職涯區 即時熱門文章
54
109