如何在 Excel 中隐藏特定的错误值？

Updated by ExtendOffice 20220824 Dim xRg As Range Dim xFindStr As String Dim xFindRg As Range Dim xARg As Range Dim xURg As Range Dim xFindRgs As Range Dim xFAddress As String Dim xBol As Boolean Dim xJ xArrFinStr = Array("#DIV/0!”, “#N/A”, “#NAME?") Enter the errors to hide, enclose each with double quotes and separate them with commas On Error Resume Next Set xRg = Application.InputBox("Please select the range that includes the errors to hide:", "Kutools for Excel", , Type:=8) If xRg Is Nothing Then Exit Sub xBol = False For Each xARg In xRg.Areas Set xFindRg = Nothing Set xFindRgs = Nothing Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange) For Each xFindRg In xURg For xJ = LBound(xArrFinStr) To UBound(xArrFinStr) If xFindRg.Text = xArrFinStr(xJ) Then xBol = True If xFindRgs Is Nothing Then Set xFindRgs = xFindRg Else Set xFindRgs = Application.Union(xFindRgs, xFindRg) End If End If Next Next If Not xFindRgs Is Nothing Then xFindRgs.Font.ThemeColor = xlThemeColorDark1 End If Next If xBol Then MsgBox "Successfully hidden." Else MsgBox "No specified errors were found." End If End Sub

Sub HideSpecificErrors_WorkSheets() Updated by ExtendOffice 20220824 Dim xRg As Range Dim xFindStr As String Dim xFindRg As Range Dim xARg, xFindRgs As Range Dim xWShs As Worksheets Dim xWSh As Worksheet Dim xWb As Workbook Dim xURg As Range Dim xFAddress As String Dim xArr, xArrFinStr Dim xI, xJ Dim xBol As Boolean xArr = Array("Sheet1", "Sheet2") Names of the sheets where to find and hide the errors. Enclose each with double quotes and separate them with commas xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") Enter the errors to hide, enclose each with double quotes and separate them with commas On Error Resume Next Set xWb = Application.ActiveWorkbook xBol = False For xI = LBound(xArr) To UBound(xArr) Set xWSh = xWb.Worksheets(xArr(xI)) Set xFindRg = Nothing xWSh.Activate Set xFindRgs = Nothing Set xURg = xWSh.UsedRange Set xFindRgs = Nothing For Each xFindRg In xURg For xJ = LBound(xArrFinStr) To UBound(xArrFinStr) If xFindRg.Text = xArrFinStr(xJ) Then xBol = True If xFindRgs Is Nothing Then Set xFindRgs = xFindRg Else Set xFindRgs = Application.Union(xFindRgs, xFindRg) End If End If Next Next If Not xFindRgs Is Nothing Then xFindRgs.Font.ThemeColor = xlThemeColorDark1 End If Next If xBol Then MsgBox "Successfully hidden." Else MsgBox "No specified errors were found." End If End Sub

请注意： 在片段中 xArr = Array("Sheet1", "Sheet2") 在第 15 行，你应该替换 “表 1”、“表 2” 使用要隐藏错误的工作表的实际名称。 请记住用双引号将每个工作表名称括起来，并用逗号分隔它们。 在片段中 xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?") 在第 16 行，你应该替换 “#DIV/0！”、“#N/A”、“#NAME？” 对于要隐藏的实际错误，请记住用双引号将每个错误括起来并用逗号分隔它们。

2.在弹出窗口中 错误条件向导 对话框，请执行以下操作： 在 Range 框，单击范围选择按钮 在右侧指定包含要隐藏的错误的范围。 请注意： 要搜索整个工作表，请单击工作表选项卡。 在 错误类型 部分，指定要隐藏的错误值。 在 错误显示 部分，选择一种方法来替换错误。

请注意： 在公式中，您可以替换错误代码 2 到其他错误值对应的代码。 在公式中，您可以替换文本字符串 “除以零错误” 到其他短信，或 "" 如果您想用空白单元格替换错误。

如何在 Excel 中隐藏所有错误值？

在使用Excel工作表时，有时，您可能会发现一些错误值，例如＃DIV / 0，＃REF，＃N / A等，它们是由公式错误引起的。 现在，您想在工作表中隐藏所有这些错误值，如何在Excel中快速轻松地解决此任务？

如何更改#DIV/0！ Excel中的可读消息错误？

有时，当我们使用公式在excel中进行计算时，会显示一些错误消息。 例如，在此公式= A1 / B1中，如果B1为空或包含0，则该公式将显示＃DIV / 0错误。 有什么方法可以使这些错误消息清晰可读，或者如果您想使用其他消息来替换错误，该怎么办？

删除Excel中的行时如何避免#Ref错误？

当您将一个单元格引用到另一个单元格时，如果删除了引用行，则该单元格将显示#REF错误，如下图所示。 现在，我将讨论如何避免#ref错误并在删除行时自动引用下一个单元格。

如何突出显示 Excel 中的所有错误单元格？

如果您在工作表中创建公式，则不可避免地会出现一些错误值。 您能否一次突出显示工作表中包含错误值的所有这些单元格？ Excel 中的条件格式实用程序可以帮助您解决此问题。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！