Hur tar jag bort rader ovanför aktiv cell eller specifik text i Excel?

Om det finns ett stort kalkylblad med flera rader och du bara vill ta bort alla rader ovanför den aktiva cellen eller en specifik text, hur kan du hantera det? Du kan ta bort raderna genom att välja dem och högerklicka sedan för att välja Ta bort från snabbmenyn manuellt. Men här har jag VBA-kod för att snabbt radera rader ovan, om du är intresserad av det, läs nedanstående detalj.

Ta bort rader ovan med VBA-koder

---

Ta bort rader ovan med VBA-koder

Här introducerar jag två VBA-koder för dig, en är att radera rader ovanför den aktiva (valda cellen), en annan ta bort raderna ovanför den angivna texten.

1. Välj en cell som du vill ta bort rader ovanför den och tryck på Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulernaoch klistra in under koden i Modulerna skript.

VBA: Ta bort rader ovanför aktiv cell

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

 

3. Tryck F5 nyckeln, sedan har raderna ovanför den aktiva cellen tagits bort. Se skärmdump:

Om du vill radera rader ovanför den angivna texten kan du använda VBA nedan.

VBA: Radera rader ovanför den angivna texten

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

Notera:

1. I koden, Totalgrupp är texten du vill hitta, kan du ändra den efter behov.

2. Om texten du hittar redan finns i första raden dyker en dialog upp för att påminna dig.

3. Om texten du hittar inte finns i arket kommer en dialogruta som visas nedan att visas för att påminna dig.