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

假设您的 Excel 工作表中有一些不需要修正但需要隐藏的错误值。为了解决这个问题，我们已经讨论过如何在 Excel 中隐藏所有错误值，那么如果您只想隐藏特定的错误值该怎么办呢？在本教程中，我们将向您展示以下三种方法来完成此任务。

使用 VBA 将文本颜色变为白色以隐藏多个特定错误值

我们创建了两个 VBA 代码，帮助您通过将指定错误的字体颜色变为白色，快速隐藏选定区域或跨多个工作表中的多个特定错误值。请按照以下步骤操作，并根据需要运行代码。

1. 在您的 Excel 中，按“Alt”+“F11”键打开“Microsoft Visual Basic for Applications”窗口。

2. 点击“插入”>“模块”。然后将以下任一 VBA 代码复制到“模块”窗口中。

VBA 代码 1：在选定区域中隐藏多个特定错误值

Sub HideSpecificErrors_SelectedRange()
  '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

注意：在第 12 行的代码片段“xArrFinStr = Array("#DIV/0!", "#N/A", "#NAME?")”中，您应将“#DIV/0!", “#N/A”, “#NAME?”替换为您实际要隐藏的错误值，记住每个值都要用双引号括起来，并用逗号分隔。

VBA 代码 2：跨多个工作表隐藏多个特定错误值

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

3. 按“F5”键运行 VBA 代码。

4. 如下所示的对话框弹出，告诉您指定的错误值已被隐藏。点击“确定”关闭对话框。

5. 指定的错误值已立即被隐藏。

使用“格式化显示错误信息向导”功能将特定错误值替换为其他值

如果您不熟悉 VBA 代码，Kutools for Excel 的“格式化显示错误信息向导”功能可以帮助您轻松找到所有错误值、所有 #N/A 错误或除 #N/A 之外的任何错误，并将其替换为您指定的其他值，请继续阅读以了解如何完成此任务。

1. 在“Kutools”选项卡的“公式”组中，点击“更多”>“格式化显示错误信息向导”。

3. 点击“确定”。指定的错误值将以您选择的选项显示。

使用公式将特定错误替换为其他值

要替换特定的错误值，Excel 的 IF、IFNA 和 ERROR.TYPE 函数可以帮您忙。但首先，您应该知道每个错误值对应的数字代码。

例如，您有一个如上所示的表格。要将“#DIV/0!”错误替换为文本字符串“Divide By Zero Error”，您应首先找到该错误的代码，即“2”。然后在单元格“B2”中应用以下公式，并向下拖动填充柄以将公式应用于下方的单元格：

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"Divide By Zero Error",A2)

相关文章