Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izbrisati vrstice nad aktivno celico ali določenim besedilom v Excelu?

Če je ogromen delovni list z več vrsticami in želite le izbrisati vse vrstice nad aktivno celico ali določenim besedilom, kako lahko to storite? Vrste lahko izbrišete tako, da jih izberete in nato z desno miškino tipko ročno izberete možnost Izbriši iz kontekstnega menija. Ampak tukaj imam kodo VBA hitro brisanje vrstic zgoraj, če vas zanima, prosimo, preberite spodaj podrobnosti.

Z vrsticami VBA izbrišite vrstice zgoraj


puščica modra desno mehurček Z vrsticami VBA izbrišite vrstice zgoraj


Tukaj vnesem dve kodi VBA za vas, eno je izbrisati vrstice nad aktivno (izbrano celico), drugo pa odstranite vrstice nad določenim besedilom.

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

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

VBA: izbrišite vrstice nad aktivno celico

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

doc izbriše vrstice nad 1

3. Pritisnite F5 ključ, potem so bile vrstice nad aktivno celico odstranjene. Prikaz slike:
doc izbriše vrstice nad 2

Če želite izbrisati vrstice nad določenim besedilom, lahko uporabite spodaj VBA.

VBA: Brisanje vrstic nad določenim 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

doc izbriše vrstice nad 3

Opomba:

1. V kodi, Skupna skupina je besedilo, ki ga želite najti, ga lahko spremenite, ko ga potrebujete.

2. Če je besedilo, ki ga najdete, že v prvi vrstici, se bo pojavilo pogovorno okno, ki vas opomni.
doc izbriše vrstice nad 4

3. Če besedilo, ki ga najdete, ne obstaja v listu, se bo prikazalo pogovorno okno, ki je prikazano spodaj, da vas opomni.
doc izbriše vrstice nad 5

Nasvet.Če želite hitro izbrisati več praznih vrstic, poskusite uporabiti Kutools for Excel Izbriši prazne vrstice kot je prikazano na naslednji sliki. Polna funkcija je brez omejitev v 60 dnevih, prosim, prenesite in zdaj imate brezplačen poskus.

doc izbrišite prazno vrstico

Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.