EXCEL 中批量处理公式错误的单元格

常见的EXCEL文件中由于公式处理显示错误信息，例如，当公式中出现被零除的现象时,产生的错误值#DIV/0! ，还有其它的#NUM! 、#N/A! 等等，当有很多这种单元格时十分影响美观，下列宏代码用于处理这些错误信息的显示，使文件更人性化。

'i为文件中的sheet数 'j为处理区域高度（行数） 'k为处理区域宽度（列数），注意，超出Z列的文件 Dim i, j, k As Integer Dim cellName, func As String For i = 1 To 1 Sheets(i).Select For j = 1 To 50 For k = 65 To 90 ‘A-Z cellName = Chr(k) + CStr(j) Range(cellName).Select If Application.WorksheetFunction.IsError(ActiveCell.Value) Then func = ActiveCell.Formula func = Replace(func, "=", "") func = "=IF(ISERROR(" + func + "),""""," + func + ")" ActiveCell.Formula = func End If Next Next Next