¿Cómo ocultar filas en función del color de las celdas en Excel?
En una hoja de cálculo de Excel, tengo una lista de celdas con muchos colores distintos. Ahora necesito ocultar todas las filas cuyas celdas tengan un fondo azul claro, tal como se muestra en la siguiente captura de pantalla. ¿Cómo puedo hacerlo de forma rápida y sencilla en Excel?
Ocultar filas según el color de celda con código VBA
Ocultar filas según el color de celda con Kutools para Excel
Ocultar filas según el color de celda con código VBA
Para ocultar filas según un color de fondo específico, el siguiente código VBA le será de gran ayuda. Siga estos sencillos pasos:
1. Mantenga pulsadas las teclas ALT + F11 y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Ocultar filas según el color de 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 Sub3. A continuación, pulse la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo que le pedirá que seleccione las celdas que desea utilizar; consulte la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar y todas las filas con celdas de color azul claro se ocultarán inmediatamente; consulte la 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 código de color; puede cambiarlo según sus necesidades.
2. Si no conoce el número del código de color, aplique el siguiente código para obtener el código de color que desea consultar:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
A continuación, introduzca la fórmula: =GetColor(A2) para obtener el número específico del código de color del fondo en la celda A2; cambie A2 por otras celdas según lo necesite.
Ocultar filas según el color de celda con Kutools para Excel
Si dispone de Kutools para Excel, con su utilidad Seleccionar celdas con formato similar, podrá seleccionar primero las celdas con el color específico y, a continuación, ocultarlas todas a la vez.
Tras instalar Kutools para Excel, siga estos pasos:
1. Haga clic en Kutools > Seleccionar > Seleccionar celdas con formato similar; consulte la captura de pantalla:
2. En el cuadro de diálogo Seleccionar celdas con formato similar, realice las siguientes operaciones:
(1.) Haga clic en el botón 
para seleccionar el Rango de datos que desea utilizar;
(2.) A continuación, haga clic en el botón Seleccionar formato desde celdapara seleccionar la celda con el color específico sobre la que desea ocultar filas;
(3.) Todos los atributos de la celda específica se han listado en el cuadro de lista. Marque únicamente Color de fondo en la sección Relleno.
3. A continuación, haga clic en el botón Aceptar. Todas las celdas con ese color se seleccionarán automáticamente. Luego, vaya a Inicio > Formato > Ocultar y mostrar > Ocultar filas; consulte la captura de pantalla:
4. Así, las celdas seleccionadas con el color específico quedarán ocultas; consulte la captura de pantalla:
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Ocultar filas según el color de celda con Kutools para Excel
Las mejores herramientas de productividad para Office
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...
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!
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