如何在 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)

相關文章