¿Cómo ocultar filas según el color de la celda en Excel?

En una hoja de trabajo de Excel, tengo una lista de celdas que tienen muchos colores diferentes. Ahora, necesito ocultar todas las filas de color azul claro como se muestra en la siguiente captura de pantalla. ¿Cómo podría manejar esta tarea en Excel de manera rápida y sencilla?

Ocultar filas según el color de la celda con código VBA

Ocultar filas según el color de la celda con Kutools para Excel

Ocultar filas según el color de la celda con código VBA

Para ocultar filas basadas en un color de fondo específico, el siguiente código VBA puede ayudarte. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11, luego se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Ocultar filas según el color de la celda:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones las celdas que deseas usar, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, todas las celdas de color azul claro se habrán ocultado a la vez, ver captura de pantalla:

Notas:

1. En el código anterior, el número 20 dentro de este script If xRg.Range("A" & I).Interior.ColorIndex = 20 Then es el número de índice de color, puedes cambiarlo según sea necesario.

2. Si no estás seguro del número de índice de color, deberías aplicar el siguiente código para obtener el índice de color que deseas conocer:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

Luego ingresa la fórmula: =GetColor(A2) para devolver el número de índice de color específico del fondo en la celda A2, puedes cambiar A2 por otros según lo necesites.

Ocultar filas según el color de la celda con Kutools para Excel

Si tienes Kutools para Excel, con su utilidad Seleccionar Celdas con Formato, puedes seleccionar primero las celdas de un color específico y luego ocultarlas de una vez.

Después de instalar Kutools para Excel, por favor, sigue los siguientes pasos:

1. Haz clic en Kutools > Seleccionar > Seleccionar Celdas con Formato, ver captura de pantalla:

2. En el cuadro de diálogo Seleccionar Celdas con Formato, realiza las siguientes operaciones:

(1.) Haz clic en el botón para seleccionar el rango de datos que deseas usar;

(2.) Luego haz clic en el botón Seleccionar Formato Desde Celda para elegir la celda de color específico en la que deseas basar la ocultación de filas;

(3.) Todos los atributos de la celda específica se han enumerado en el cuadro de lista, por favor, solo marca Color de Fondo bajo la sección Relleno.

3. Luego haz clic en el botón Aceptar, todas las celdas con el color específico se habrán seleccionado a la vez, y luego haz clic en Inicio > Formato > Ocultar y Mostrar > Ocultar Filas, ver captura de pantalla:

4. Y luego las celdas seleccionadas con el color específico estarán ocultas, ver captura de pantalla:

Demostración: Ocultar filas según el color de la celda con Kutools para Excel