Ugrás a tartalomra

Hogyan lehet törölni az aktív cellát vagy adott szöveget meghaladó sorokat az Excelben?

Ha van egy hatalmas, több soros munkalap, és csak törölni akarja az összes cellát az aktív cella felett, vagy egy adott szöveget, hogyan tudja kezelni? A sorokat kijelölésével törölheti, majd kattintson a jobb gombbal a helyi menü Törlés elemének manuális kiválasztásához. De itt van VBA-kódom, gyorsan töröljem a fenti sorokat, ha érdekli, kérjük, olvassa el az alábbi részleteket.

Törölje a fenti sorokat VBA kódokkal


nyíl kék jobb buborék Törölje a fenti sorokat VBA kódokkal

Itt bemutatok neked két VBA kódot, az egyik az aktív (kijelölt cella) fölötti sorok törlése, a másik a megadott szöveg fölötti sorok eltávolítása.

1. Válasszon ki egy cellát, amelyet felette szeretne törölni, és nyomja meg a gombot Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, és illessze be a kód alatt a Modulok szkripteket.

VBA: Töröljön sorokat az aktív cella felett

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

 

doc törli az 1 feletti sorokat

3. nyomja meg F5 gombot, akkor az aktív cella fölötti sorokat eltávolítottuk. Lásd a képernyőképet:
doc törli az 2 feletti sorokat

Ha törölni akarja a megadott szöveg feletti sorokat, használhatja a VBA alatt.

VBA: Törölje a megadott szöveg feletti sorokat

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 törli az 3 feletti sorokat

Jegyzet:

1. A kódban Teljes csoport a megtalálni kívánt szöveg, szükség szerint megváltoztathatja.

2. Ha a megtalált szöveg már az első sorban volt, megjelenik egy párbeszédablak, amely emlékezteti Önt.
doc törli az 4 feletti sorokat

3. Ha a megtalált szöveg nem létezik a munkalapon, akkor az alábbi képernyőképen megjelenő párbeszédablak jelenik meg, amely emlékezteti Önt.
doc törli az 5 feletti sorokat

 

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations