¿Cómo eliminar las filas situadas por encima de la celda activa o de un texto específico en Excel?
Si tiene una hoja de cálculo muy grande con múltiples filas y desea eliminar todas las filas situadas por encima de la celda activa o de un texto específico, ¿cómo puede hacerlo? Puede eliminar dichas filas seleccionándolas manualmente y haciendo clic con el botón derecho para elegir **Eliminar** en el menú contextual. Pero aquí le presentamos códigos VBA para eliminar rápidamente las filas situadas por encima. Si le interesa, ¡lea los detalles a continuación!
Eliminar filas las filas situadas por encima con códigos VBA
Eliminar filas las filas situadas por encima con códigos VBA
Aquí tiene dos códigos VBA: uno elimina las filas situadas por encima de la celda activa (seleccionada) y el otro elimina las filas situadas por encima de un texto especificado.
1. Seleccione una celda sobre la que desee eliminar las filas situadas por encima y pulse 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 el script del Módulo.
VBA: Eliminar filas las filas situadas por encima de la celda activa
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Pulse la tecla F5 y se eliminarán automáticamente las filas situadas por encima de la celda activa. Vea la captura de pantalla:
Si desea eliminar las filas situadas por encima de un texto especificado, puede utilizar el siguiente código VBA.
VBA: Eliminar filas las filas situadas por encima del texto especificado
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Nota:
1. En el código, Total Group es el texto que desea buscar; puede cambiarlo según sus necesidades.
2. Si el texto que busca ya está en la primera fila, aparecerá un cuadro de diálogo para notificárselo.
3. Si el texto especificado no se encuentra en la hoja, aparecerá un cuadro de diálogo notificándoselo, como se muestra a continuación.
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