¿Cómo eliminar filas por encima de la celda activa o un texto específico en Excel?
Si tienes una hoja de cálculo enorme con múltiples filas y solo deseas eliminar todas las filas por encima de la celda activa o un texto específico, ¿cómo puedes hacerlo? Puedes eliminar las filas seleccionándolas y luego hacer clic derecho para elegir Eliminar desde el menú contextual manualmente. Pero aquí, tengo códigos VBA para eliminar rápidamente las filas superiores; si estás interesado, por favor lee los detalles a continuación.
Eliminar filas superiores con códigos VBA
Eliminar filas superiores con códigos VBA
Aquí te presento dos códigos VBA: uno elimina las filas por encima de la celda activa (seleccionada) y el otro elimina las filas por encima de un texto específico.
1. Selecciona una celda sobre la cual deseas eliminar filas y presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script del Módulo.
VBA: Eliminar filas por encima de la celda activa
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Presiona la tecla F5 y entonces las filas por encima de la celda activa habrán sido eliminadas. Ver captura de pantalla:
Si deseas eliminar filas por encima de un texto específico, puedes usar el siguiente VBA.
VBA: Eliminar filas por encima de un texto específico
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 deseas encontrar, puedes cambiarlo según sea necesario.
2. Si el texto que buscas ya está en la primera fila, aparecerá un cuadro de diálogo para recordártelo.
3. Si no se encuentra el texto especificado en la hoja, aparecerá un cuadro de diálogo para notificarte, como se muestra a continuación.
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos