Come eliminare le righe sopra la cella attiva o un testo specifico in Excel?

Se hai un foglio di lavoro enorme con molte righe e vuoi eliminare tutte le righe sopra la cella attiva o un testo specifico, come puoi gestirlo? Puoi eliminare le righe selezionandole e facendo clic con il tasto destro per scegliere Elimina dal menu contestuale manualmente. Ma qui ho dei codici VBA per eliminare rapidamente le righe sopra; se sei interessato, leggi i dettagli qui sotto.

Elimina righe sopra con i codici VBA

Elimina righe sopra con i codici VBA

Qui ti presento due codici VBA: uno elimina le righe sopra la cella attiva (selezionata) e l'altro rimuove le righe sopra un testo specificato.

1. Seleziona una cella sopra la quale desideri eliminare le righe e premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo e incolla il codice sottostante nello script del Modulo.

VBA: Elimina righe sopra la cella attiva

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

3. Premi F5 tasto, quindi le righe sopra la cella attiva saranno state eliminate. Vedi screenshot:

Se vuoi eliminare le righe sopra un testo specifico, puoi utilizzare il seguente VBA.

VBA: Elimina righe sopra un testo specifico

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. Nel codice, Total Group è il testo che vuoi trovare, puoi modificarlo secondo necessità.

2. Se il testo trovato si trova già nella prima riga, apparirà una finestra di dialogo per avvisarti.

3. Se il testo specificato non viene trovato nel foglio, apparirà una finestra di dialogo per notificartelo, come mostrato di seguito.