Hoe verwijder ik rijen boven een actieve cel of specifieke tekst in Excel?

Als er een enorm werkblad is met meerdere rijen en u wilt gewoon alle rijen boven de actieve cel of een specifieke tekst verwijderen, hoe kunt u dit dan aanpakken? U kunt de rijen verwijderen door ze te selecteren en vervolgens met de rechtermuisknop te klikken om Handmatig Verwijderen te kiezen in het contextmenu. Maar hier heb ik VBA-codering om de bovenstaande rijen snel te verwijderen, als je hierin geïnteresseerd bent, lees dan de onderstaande details.

Verwijder bovenstaande rijen met VBA-codes

---

Verwijder bovenstaande rijen met VBA-codes

Hier introduceer ik twee VBA-codes voor u, één is het verwijderen van rijen boven de actieve (geselecteerde cel), een andere is het verwijderen van de rijen boven de opgegeven tekst.

1. Selecteer een cel waarvan u rijen erboven wilt verwijderen en druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, en plak onderstaande code in het Module scripts.

VBA: verwijder rijen boven de actieve cel

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

 

3. druk op F5 toets, dan zijn de rijen boven de actieve cel verwijderd. Zie screenshot:

Als u rijen boven de opgegeven tekst wilt verwijderen, kunt u onderstaande VBA gebruiken.

VBA: verwijder rijen boven de opgegeven 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

Opmerking:

1. In de code, Totaal groep is de tekst die u zoekt, u kunt deze naar behoefte wijzigen.

2. Als de gevonden tekst al op de eerste rij staat, verschijnt er een dialoogvenster om u eraan te herinneren.

3. Als de tekst die u vindt niet in het werkblad voorkomt, verschijnt een dialoogvenster zoals onderstaand screenshot om u eraan te herinneren.