¿Cómo eliminar filas según el color de fondo en Excel?
¿Cómo podría eliminar Fila completa en función de Color de fondo? En este ejemplo, necesito eliminar todas las filas cuyas celdas están rellenas con el color azul Color de fondo, tal como se muestra en la siguiente captura de pantalla. Con este artículo, obtendrá 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 dispone de un rango de datos rellenado aleatoriamente con colores de celda y necesita eliminar las filas cuyo color de celda sea azul, tal como se muestra en la siguiente captura de pantalla:
Para eliminar este tipo de filas, puede utilizar el siguiente código VBA. Siga estos sencillos pasos:
1. Mantenga pulsadas las teclas ALT + F11 para 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: Eliminar 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. A continuación, pulse la tecla F5 para ejecutar este código. Aparecerá un cuadro de diálogo que le recordará que seleccione una celda con el color de relleno que desea eliminar; consulte la captura de pantalla:
4. Después, haga clic en Aceptar y se habrán eliminado todas las filas cuya celda tenga un color de relleno específico.
Eliminar filas con un Color de fondo específico según una columna
Si desea eliminar las filas que tengan un color específico en una sola columna —por ejemplo, borrar las filas con fondo azul en la columna A, como se muestra en la siguiente captura de pantalla—, también contamos con un código VBA que le resultará muy útil.
1. Mantenga pulsadas las teclas ALT + F11para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar>Móduloy pegue el siguiente código en la ventana del Módulo.
Código VBA: Eliminar filas basado en una columna cuyas celdas tienen 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
Nota: En el código anterior, A2:A21 es la columna que contiene el color de relleno específico en función del cual desea eliminar filas. El número 20 en la instrucción ColorIndex = 20 es el código de color en función del cual desea eliminar filas. Puede modificarlos según sus necesidades.
3. A continuación, pulse la tecla F5 para ejecutar este código y se eliminarán de inmediato todas las filas cuyas celdas de la columna A tengan el color azul.
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