¿Cómo eliminar filas sobre la celda activa o texto específico en Excel?
Si hay una hoja de trabajo enorme con varias filas y solo desea eliminar todas las filas por encima de la celda activa o un texto específico, ¿cómo puede manejarlo? Puede eliminar las filas seleccionándolas y luego haga clic con el botón derecho para elegir Eliminar en el menú contextual manualmente. Pero aquí, tengo códigos VBA para eliminar rápidamente las filas anteriores, si está interesado, lea los detalles a continuación.
Eliminar filas de arriba con códigos VBA
Eliminar filas de arriba con códigos VBA
Aquí les presento dos códigos VBA, uno es eliminar filas sobre el activo (celda seleccionada), otro es eliminar las filas sobre el texto especificado.
1. Seleccione una celda de la que desee eliminar filas y presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código siguiente en el Módulo guión.
VBA: eliminar filas sobre la celda activa
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Prensa F5 clave, las filas sobre la celda activa se han eliminado. Ver captura de pantalla:
Si desea eliminar filas sobre el texto especificado, puede usar debajo de VBA.
VBA: elimina filas sobre el 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, Grupo total es el texto que desea buscar, puede cambiarlo cuando lo necesite.
2. Si el texto que encuentra ya estaba en la primera fila, aparecerá un cuadro de diálogo para recordárselo.
3. Si el texto que encuentra no existe en la hoja, aparecerá un cuadro de diálogo como el que se muestra a continuación para recordárselo.
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!