¿Cómo eliminar filas según el color de fondo en Excel?
¿Cómo podría eliminar filas enteras según el color de fondo? En este ejemplo, necesito eliminar todas las filas cuyas celdas se llenaron con color de fondo azul como se muestra en la siguiente captura de pantalla. Con este artículo obtendrás algunos códigos para realizar esta tarea en Excel.
Eliminar filas con un color de fondo específico según cada celda
Eliminar filas con un color de fondo específico según una columna
Eliminar filas con un color de fondo específico según cada celda
Si tiene un rango de datos que se llenó con algunos colores de celda al azar, y necesita eliminar las filas cuyo color de celda es azul como se muestra en la siguiente captura de pantalla:
Para eliminar este tipo de filas, puede usar el siguiente código VBA, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir 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: elimine las filas cuyas celdas contienen un color de relleno específico:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Y luego presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione una celda con el color de relleno que desea eliminar, vea la captura de pantalla:
4. Luego haga clic OK, y todas las filas se han eliminado si la celda con un color de relleno específico.
Eliminar filas con un color de fondo específico según una columna
Si desea eliminar las filas con un color específico basado en una sola columna, por ejemplo, elimine las filas con color azul en la columna A y obtenga la captura de pantalla a continuación, aquí también hay un código VBA que puede hacerle un favor.
1. Mantenga pulsado el ALT + F11 teclas para abrir 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: elimine filas según una columna cuyas celdas tengan un color de relleno específico:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Note: En el código anterior, A2: A21 es la columna que contiene el color de relleno específico en el que desea eliminar las filas en función, el número 20 in Índice de colores = 20 script es el índice de color en el que desea eliminar filas. Puede cambiarlos según sus necesidades.
3. Entonces presione F5 para ejecutar este código, y todas las filas cuyas celdas contienen el color azul en la columna A se han eliminado a la vez.
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!