Kako izbrisati vrstice nad aktivno celico ali določeno besedilo v Excelu?

Če je ogromen delovni list z več vrsticami in želite samo izbrisati vse vrstice nad aktivno celico ali določeno besedilo, kako lahko to obravnavate? Vrstice lahko izbrišete tako, da jih izberete in nato z desnim klikom izberete Ročno izbriši iz kontekstnega menija. Tu pa imam kodo VBA za hitro brisanje vrstic zgoraj, če vas zanima, preberite spodnje podrobnosti.

Zgornje vrstice izbrišite s kodami VBA

---

Zgornje vrstice izbrišite s kodami VBA

Tukaj vam predstavljam dve kodi VBA, ena je brisanje vrstic nad aktivno (izbrana celica), druga pa odstranitev vrstic nad navedenim besedilom.

1. Izberite celico, v katero želite izbrisati vrstice nad njo, in pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduliin prilepite spodnjo kodo v Moduli skripta.

VBA: Izbriši vrstice nad aktivno celico

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

 

3. Pritisnite F5 , nato so vrstice nad aktivno celico odstranjene. Oglejte si posnetek zaslona:

Če želite izbrisati vrstice nad navedenim besedilom, lahko uporabite pod VBA.

VBA: Izbriši vrstice nad navedenim besedilom

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

Opomba:

1. V kodi: Skupna skupina je besedilo, ki ga želite najti, ga lahko spremenite po potrebi.

2. Če je besedilo, ki ste ga našli, že v prvi vrstici, se prikaže pogovorno okno, ki vas opomni.

3. Če besedilo, ki ga najdete, ne obstaja na listu, se prikaže pogovorno okno, kot je prikazano na spodnji sliki zaslona, ​​da vas opomni.