常见的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