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.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!