Hoe verwijder je rijen boven de actieve cel of specifieke tekst in Excel?
Als je een enorm werkblad hebt met meerdere rijen en je wilt alle rijen boven de actieve cel of een specifieke tekst verwijderen, hoe ga je dat dan aanpakken? Je kunt de rijen handmatig verwijderen door ze te selecteren en met de rechtermuisknop te klikken om Verwijderen te kiezen uit het contextmenu. Maar hier heb ik VBA-codes om snel rijen hierboven te verwijderen. Als je geïnteresseerd bent, lees dan de onderstaande details.
Verwijder rijen hierboven met VBA-codes
Verwijder rijen hierboven met VBA-codes
Hier introduceer ik twee VBA-codes voor je: één verwijdert rijen boven de actieve (geselecteerde) cel, en de andere verwijdert rijen boven een opgegeven tekst.
1. Selecteer een cel waarvan je de rijen erboven wilt verwijderen, en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module, en plak de onderstaande code in het Module-script.
VBA: Verwijder rijen boven de actieve cel
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Druk op F5 toets, vervolgens zijn de rijen boven de actieve cel verwijderd. Zie screenshot:
Als je rijen boven een bepaalde tekst wilt verwijderen, kun je de volgende 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 is Total Group de tekst die je wilt zoeken, je kunt deze naar wens wijzigen.
2. Als de tekst die je zoekt al in de eerste rij staat, verschijnt er een dialoogvenster om je te waarschuwen.
3. Als de opgegeven tekst niet wordt gevonden in het werkblad, verschijnt er een dialoogvenster om je te informeren, zoals hieronder weergegeven.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen