Ga naar hoofdinhoud

Hoe ga je naar de eerste of laatste lege rij in Excel?

Het is tijdrovend om te scrollen en naar de eerste of laatste lege rij te gaan terwijl u aan een enorm werkblad werkt. In dit artikel introduceer ik enkele trucs om snel naar de eerste of laatste lege rij in Excel te gaan.

Ga naar de eerste of laatste lege rij met VBA

Ga naar de laatste lege rij of kolom met het hulpprogramma Laatste rij selecterengoed idee 3


Ga naar de eerste of laatste lege rij met VBA

Hier zijn twee VBA's die u kunnen helpen snel naar de eerste of laatste lege rij in het actieve blad te gaan, doe dit als volgt.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster. Zie screenshot:
doc eerst laatste leeg 1

2. Dan klikken Invoegen > Module en plak onderstaande code in het script. Zie screenshot:

VBA: ga naar de eerste lege rij.

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub
doc eerst laatste leeg 2
doc eerst laatste leeg 3

3. druk op F5 om de code uit te voeren, en er verschijnt een dialoogvenster om u eraan te herinneren een bereik te kiezen om te werken. Zie screenshot:
doc eerst laatste leeg 4

4. klikken OK. Er verschijnt een dialoogvenster om u de celverwijzing van de eerste lege rij te herinneren, zie screenshot:
doc eerst laatste leeg 5

5. klikken OK herhaaldelijk om het Microsoft Excel dialoog. En ga dan naar het Naam vak, typ A2 erin, druk op Enter toets, en u gaat naar de eerste lege rij. Zie screenshot:
doc eerst laatste leeg 6

Tip: Als u naar de laatste lege rij wilt gaan, gebruik dan onderstaande VBA-code en nadat u op een F5 toets, gaat de cursor direct naar de laatste lege rij.

VBA: ga naar de laatste lege rij

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Note: Deze VBA selecteert de laatste lege cel in kolom A. Om de laatste lege cel in een andere kolom te selecteren, wijzigt u 1 in de code Cells (Rows.Count, 1) in een ander nummer.


Ga naar de laatste lege rij of kolom met het hulpprogramma Laatste rij selecteren

Als u snel naar de laatste lege rij of kolom wilt gaan, kunt u zich aanmelden Kutools for Excel's Laatste rij or Laatste kolom utility. Hiermee kunt u snel naar de laatste niet-lege cel van de laatste rij of kolom in het huidige werkblad gaan, en dan is de volgende cel de laatste lege rij of lege kolom.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na het installeren van Kutools voor Excel, doe het als volgt:锛圖ownload nu Kutools voor Excel!)

Klik Kutools > kies > Selecteer Laatste cel > Laatste rij/Laatste kolom. Zie screenshot:

doc eerst laatste leeg 7

Vervolgens worden de laatste niet-lege cellen in de laatste rij (of kolom) geselecteerd. Druk gewoon op pijl-omlaag (of pijl-rechts) om de laatste lege rij (of kolom) te activeren.


Relatieve artikelen

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
脫timo post, Resolveu meu problema:
Achando a primeira c茅lula vazia de determinada coluna de uma planilha.

Sub SelecionaPr贸ximaC茅lulaVazia()
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub

Este VBA selecionar谩 a 煤ltima c茅lula vazia na coluna B. Para selecionar a 煤ltima c茅lula vazia em outra coluna, altere 2 no c贸digo Cells (Rows.Count, 2) para outro n煤mero.
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub



How to try this on sheet2 from sheet1
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations