¿Cómo ocultar filas según el color de la celda en Excel?
En la hoja de cálculo 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 lidiar con esta tarea en Excel de forma 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 según un color de fondo específico, el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 llaves, luego abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de 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. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione las celdas que desea usar, vea la captura de pantalla:
4. Y luego haz clic OK botón, todas las celdas de color azul claro se han ocultado a la vez, vea la captura de pantalla:
Notas:
1. En el código anterior, el número 20 dentro de este script Si xRg.Range ("A" & I) .Interior.ColorIndex = 20 Luego está el número de índice de color, puede cambiarlo según lo necesite.
2. Si no está seguro del número de índice de color, debe aplicar el siguiente código para obtener el índice de color que desea conocer:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Y luego ingrese la fórmula: = ObtenerColor (A2) para devolver el número de índice de color específico del fondo en la celda A2, cambie A2 por otros que necesite.
Ocultar filas según el color de la celda con Kutools para Excel
Si tiene Kutools for Excel, Con su Seleccionar celdas con formato utilidad, puede seleccionar las celdas de colores específicos primero y luego ocultarlas de una vez.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haga lo siguiente:
1. Hacer clic Kutools > Seleccione > Seleccionar celdas con formato, ver captura de pantalla:
2. En la Seleccionar celdas con formato cuadro de diálogo, realice las siguientes operaciones:
(1.) Haga clic en botón para seleccionar el rango de datos que desea utilizar;
(2.) Luego haga clic en Elija formato de celda botón para seleccionar la celda de color específica en la que desea ocultar las filas;
(3.) Todos los atributos de la celda específica se han enumerado en el cuadro de lista, solo verifique Color de fondo bajo el Llene .
3. Luego haga clic Ok , todas las celdas con el color específico se han seleccionado a la vez, y luego haga clic en Inicio > Formato > Ocultar y mostrar > Ocultar filas, ver captura de pantalla:
4. Y luego las celdas seleccionadas con el color específico están ocultas, vea la captura de pantalla:
¡Haga clic en Descargar gratis Kutools para Excel ahora!
Demostración: Ocultar filas según el color de la celda con Kutools para Excel
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!