Note: The other languages of the website are Google-translated. Back to English

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


pijl blauw rechts bel 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

 

doc verwijder rijen boven 1

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

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

doc verwijder rijen boven 3

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.
doc verwijder rijen boven 4

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

 

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

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!
officetab onderkant
Heb je vragen? Stel ze hier. (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL