Hoe verwijder je rijen boven de actieve cel of boven een specifieke tekst in Excel?
Als u een groot werkblad met meerdere rijen hebt en alleen alle rijen boven de actieve cel of een bepaalde tekst wilt verwijderen, hoe pakt u dat dan het beste aan? U kunt de rijen handmatig verwijderen door ze te selecteren, met de rechtermuisknop te klikken en **Verwijderen** te kiezen in het contextmenu. Maar als u sneller resultaat wilt, geef ik u hier VBA-code om rijen boven de actieve cel of opgegeven tekst automatisch te verwijderen. Mocht u daar interesse in hebben, lees dan gerust de onderstaande details.
Rijen verwijderen boven met VBA-codes
Rijen verwijderen boven met VBA-codes
Hieronder vindt u twee VBA-codes: één om de rij direct boven de actieve (geselecteerde) cel te verwijderen, en de andere om rijen boven een opgegeven tekst te verwijderen.
1. Selecteer een cel waarboven u rijen wilt verwijderen en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de onderstaande code in het Module-script.
VBA: Rijen verwijderen boven actieve cel
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Druk op F5, waarna de rijen boven de actieve cel worden verwijderd. Zie de onderstaande schermafbeelding:
Als u rijen boven de opgegeven tekst wilt verwijderen, kunt u het onderstaande VBA-script gebruiken.
VBA: Rijen verwijderen 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 u wilt zoeken; u kunt deze naar wens wijzigen.
2. Als de tekst die u zoekt al in de eerste rij staat, verschijnt er een dialoogvenster dat u hierop wijst.
3. Als de opgegeven tekst niet op het werkblad wordt gevonden, verschijnt er een dialoogvenster dat u hierover informeert, zoals hieronder weergegeven.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins