跳到主要内容

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

假设您的 Excel 工作表中存在不需要更正但需要隐藏的错误值。 为了解决这个问题,我们讨论了 如何隐藏Excel中的所有错误值,现在,如果您只想隐藏特定的错误值怎么办? 在本教程中,我们将向您展示如何通过以下三种方式完成这项工作。


通过使用 VBA 将文本变为白色来隐藏多个特定的错误值

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

1. 在 Excel 中,按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

VBA 代码 1:隐藏所选范围内的多个特定错误值

'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

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

3。 按 F5 运行 VBA 代码。 请注意: 如果您使用了 VBA代码1,将弹出一个对话框,要求您选择查找和删除错误值的范围。 您还可以单击工作表选项卡以选择整个工作表。

4. 弹出如下对话框,告诉您指定的错误值已被隐藏。 点击 OK 关闭对话框。

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


使用错误条件向导功能将特定错误值替换为其他值

如果您不熟悉VBA代码,Kutools for Excel's 错误条件向导功能可以帮助您轻松找到所有错误值,所有#N/A错误或除#N/A之外的任何错误,并将它们替换为您指定的其他值,请继续阅读以了解如何完成这项工作。

1。 在 库工具 标签,在 公式 组,点击 更多 > 错误条件向导.

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

3。 点击 Ok. 指定的错误值显示为您选择的选项。

请注意: 要使用 错误条件向导 功能,你应该在你的计算机上安装 Kutools for Excel。如果您没有安装Kutools, 点击这里下载并安装. 专业的 Excel 插件提供 30 天免费试用,没有任何限制。


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

要替换特定的错误值,Excel 的 IF, 干扰素ERROR.TYPE 功能可以帮你一个忙。 但首先,您应该知道每个错误值对应的数字代码。

# 错误 公式 退货政策
#空值! = ERROR.TYPE(#NULL!) 1
#DIV / 0! = ERROR.TYPE(#DIV / 0!) 2
#值! = ERROR.TYPE(#VALUE!) 3
#REF! = ERROR.TYPE(#REF!) 4
#NAME? = ERROR.TYPE(#NAME?) 5
#NUM! = ERROR.TYPE(#NUM!) 6
#N / A = ERROR.TYPE(#N / A) 7
#获取数据 = ERROR.TYPE(#GETTING_DATA) 8
#洒! =错误类型(#溢出!) 9
#未知! =错误类型(#未知!) 12
#场地! =错误类型(#FIELD!) 13
#计算! =错误类型(#CALC!) 14
还要别的吗 = ERROR.TYPE(123) #N / A

例如,您有一个包含如上所示值的表。 更换 #DIV / 0! 文本字符串错误 除以零误差,你应该先找到这个错误的代码,也就是 2. 然后在单元格中应用以下公式 B2,然后向下拖动填充柄以将公式应用于以下单元格:

=IF(IFNA(ERROR.TYPE(A2),A2)=2,"除以零误差",A2)

请注意:
  • 在公式中,您可以替换错误代码 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 中的条件格式实用程序可以帮助您解决此问题。

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations