¿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.