Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

Als er een groot werkblad met meerdere rijen is en u alle rijen boven de actieve cel of een specifieke tekst wilt verwijderen, hoe kunt u het dan aan? U kunt de rijen verwijderen door ze te selecteren en vervolgens met de rechtermuisknop klikken om handmatig Wissen uit het contextmenu te kiezen. Maar hier, ik heb VBA-codesto om bovenstaande rijen snel te verwijderen, als je er interesse in hebt, lees dan het onderstaande detail.

Verwijder bovenstaande rijen met VBA-codes

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

pijl blauwe rechterbel Verwijder bovenstaande rijen met VBA-codes


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

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

2. klikken bijvoegsel > moduleen plak onderstaande code in de module scripts.

VBA: verwijder rijen boven actieve cel

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

doc verwijder rijen boven 1

3. druk op F5 sleutel, 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

Let op:

1. In de code, Totaal groep is de tekst die u wilt vinden, u kunt deze wijzigen zoals u wilt.

2. Als de gevonden tekst al in de eerste rij staat, verschijnt er een dialoogvenster om u eraan te herinneren.
doc verwijder rijen boven 4

3. Als de gevonden tekst niet in het blad voorkomt, verschijnt er een dialoogvenster zoals hieronder afgebeeld om u eraan te herinneren.
doc verwijder rijen boven 5

Tip.Als u snel meerdere lege rijen wilt verwijderen, probeer dan de Kutools voor Excel's te gebruiken Verwijder lege rijen zoals getoond in de volgende screenshot. Het is volledig functioneel zonder beperking in 60-dagen, download en heb nu een gratis proefversie.

doc verwijder lege rij

Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen 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.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.