Jak odstranit řádky nad aktivní buňkou nebo konkrétním textem v aplikaci Excel?

Pokud existuje obrovský list s více řádky a chcete pouze odstranit všechny řádky nad aktivní buňkou nebo konkrétním textem, jak to zvládnete? Řádky můžete odstranit tak, že je vyberete a pak kliknete pravým tlačítkem myši a vyberete Odstranit z místní nabídky ručně. Ale tady mám kód VBA, který rychle smaže řádky výše, pokud vás to zajímá, přečtěte si níže uvedený detail.

Smažte řádky výše pomocí kódů VBA

---

Smažte řádky výše pomocí kódů VBA

Zde vám představím dva kódy VBA, jeden je odstranění řádků nad aktivní (vybranou buňkou), druhý je odstranění řádků nad zadaným textem.

1. Vyberte buňku, ze které chcete odstranit řádky nad ní, a stiskněte Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modula vložte níže uvedený kód do Modul skripty.

VBA: Odstranit řádky nad aktivní buňkou

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

 

3. lis F5 klíč, pak byly odstraněny řádky nad aktivní buňkou. Viz screenshot:

Chcete-li odstranit řádky nad zadaným textem, můžete použít pod VBA.

VBA: Odstraňte řádky nad zadaným textem

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

Poznámka:

1. V kódu Celková skupina je text, který chcete najít, můžete jej podle potřeby změnit.

2. Pokud je text, který jste našli, již v prvním řádku, zobrazí se dialogové okno, které vám to připomene.

3. Pokud text, který najdete, v listu neexistuje, zobrazí se vám dialogové okno zobrazené níže, které vám to připomene.