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.