Hvordan slettes rækker over aktiv celle eller specifik tekst i Excel?

Hvis der er et stort regneark med flere rækker, og du bare vil slette alle rækker over den aktive celle eller en bestemt tekst, hvordan kan du håndtere det? Du kan slette rækkerne ved at vælge dem og derefter højreklikke for at vælge Slet fra genvejsmenuen manuelt. Men her har jeg VBA-kode til hurtigt at slette rækker ovenfor, hvis du er interesseret i det, skal du læse nedenstående detaljer.

Slet rækker ovenfor med VBA-koder

---

Slet rækker ovenfor med VBA-koder

Her introducerer jeg to VBA-koder til dig, den ene sletter rækker over den aktive (valgte celle), en anden fjerner rækkerne over den angivne tekst.

1. Vælg en celle, som du vil slette rækker over den, og tryk på Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt nedenstående kode til Moduler scripts.

VBA: Slet rækker over aktiv celle

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

 

3. Trykke F5 nøglen, så er rækkerne over den aktive celle fjernet. Se skærmbillede:

Hvis du vil slette rækker over den angivne tekst, kan du bruge VBA nedenfor.

VBA: Slet rækker over den angivne tekst

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

Bemærk:

1. I koden, Samlet gruppe er den tekst, du vil finde, kan du ændre den efter behov.

2. Hvis den tekst, du finder, allerede har været i første række, vises en dialogboks, der minder dig om det.

3. Hvis den tekst, du finder, ikke findes i arket, vises en dialog som vist nedenstående skærmbillede for at minde dig om.