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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!