¿Cómo ocultar valores de error específicos en Excel?

Imaginemos que su hoja de Excel contiene valores de error que no necesita corregir, sino simplemente ocultar. Ya hemos explicado cómo ocultar todos los errores en Excel, pero ¿qué pasa si solo quiere ocultar ciertos tipos de errores? En este tutorial, le mostraremos tres formas distintas de lograrlo.

Ocultar varios valores de error específicos cambiando el texto a blanco con VBA

Hemos creado dos códigos VBA para ayudarle a ocultar rápidamente diversos valores de error específicos en el rango seleccionado o en varias hojas de cálculo, cambiando el color de fuente de dichos errores a blanco. Siga los pasos a continuación y ejecute el código que mejor se adapte a sus necesidades.

1. En Excel, pulse las teclas «Alt» + "F11" para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en «Insertar» > «Módulo» y, a continuación, copie cualquiera de los siguientes códigos VBA en la ventana del módulo.

Código VBA 1: Ocultar varios valores de error específicos en la Seleccionar rango

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

Nota: En el fragmento «xArrFinStr = Array(»#DIV/[[PH_54]]!", "#N/A", "#NAME?«)» de la fila 12, debe reemplazar «#DIV/0!», «#N/A» y «#NAME?» por los errores reales que desee ocultar. Recuerde encerrar cada valor entre comillas dobles y separarlos con comas.

Código VBA 2: Ocultar varios valores de error específicos en varias hojas

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. Pulse "F5" para ejecutar el código VBA.

4. Aparecerá un cuadro de diálogo como el que se muestra a continuación, indicándole que los valores de error especificados han sido ocultados. Haga clic en «Aceptar» para cerrarlo.

5. Los valores de error especificados se han ocultado al instante.

Reemplazar valores de error específicos por otros valores con la función Asistente de formato de condición de error

Si no está familiarizado con el código VBA, la función «Asistente de formato condicional para errores» de Kutools para Excel le permite identificar fácilmente todos los valores de error, únicamente los errores #N/A o cualquier otro error excepto #N/A, y reemplazarlos por los valores que usted especifique. Lea a continuación para descubrir cómo realizar esta tarea.

1. En la pestaña «Kutools», dentro del grupo «Fórmula», haga clic en «Más» > «Asistente de formato condicional para errores».

3. Haga clic en «Aceptar». Los valores de error especificados se mostrarán según la opción seleccionada.

Reemplazar un error específico por otros valores mediante una fórmula

Para reemplazar un valor de error específico, las funciones SI, SINAE y TIPO.ERROR de Excel pueden ayudarte. Pero primero debes conocer el código numérico correspondiente a cada valor de error.

Por ejemplo, imagine que tiene una tabla con los valores que se muestran arriba. Para reemplazar el error «#DIV/0!» por el texto «Error de división por cero», primero debe identificar el código de este error, que es «2». A continuación, aplique la siguiente fórmula en la celda «B2» y arrastre el controlador de relleno hacia abajo para extenderla a las celdas inferiores:

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

Artículos relacionados

Las mejores herramientas de productividad para Office

🤖	KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas…
	Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
	Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
	Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
	Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
	Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
	Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más

Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...

Más información sobre Kutools para Excel...Descarga gratuita...

---

Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
• ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Más información sobre Office Tab...Descarga gratuita...

---

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

• Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
• Un instalador, una licencia— configuración en minutos (compatible con MSI)
• Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
• Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
• La mejor relación calidad-precio— ahorre frente a la compra individual de complementos

Más información sobre Kutools for Office...Descarga gratuita...