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
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
3. nyomja meg F5 gombot, akkor az aktív cella fölötti sorokat eltávolítottuk. Lásd a képernyőképet:
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
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.
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.
A legjobb irodai hatékonyságnövelő eszközök
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...
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!