Hoe vind je de laatste rij of kolom met gegevens in Excel?

In een groot werkblad, als je snel en gemakkelijk de laatste rij of kolom wilt bepalen die waarden bevat, kun je gewoon de schuifbalk verslepen om het te vinden. Maar dit kan pijnlijk zijn als er duizenden datarijen in je werkblad staan. In dit artikel zal ik het hebben over enkele nuttige VBA-codes om deze taak op te lossen.

Zoek de laatste rij of kolom met gegevens door middel van VBA-code
Zoek en selecteer de laatste rij of kolom met gegevens met Kutools voor Excel

Zoek de laatste rij of kolom met gegevens door middel van VBA-code

De meesten van ons denken misschien aan het lokaliseren van de laatste cel door op Ctrl +End te drukken om de laatste rij en kolom te vinden, maar de sneltoets zal niet de juiste waardecel lokaliseren als er enkele cellen onder het gegevensbereik zijn die opgemaakt zijn. Gebruik daarom hier de volgende VBA-code:

1. Activeer je werkblad waarin je de laatste rij of kolom met gegevens wilt bepalen.

2. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

3. Klik vervolgens op Invoegen > Module en plak de volgende code in het modulevenster.

VBA-code: Zoek laatste rij met gegevens

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. Druk vervolgens op de toets F5 om deze code uit te voeren, en er verschijnt een pop-upmelding die je vertelt wat het rijnummer van het gebruikte bereik is. Zie screenshot:

5. Klik verder op de knop OK, nu wordt het rijnummer met waarden weergegeven zoals in de volgende screenshot te zien is:

Opmerking: Om de laatste kolom met gegevens te vinden, gebruik dan deze code:

VBA-code: Zoek laatste kolom met gegevens

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Zoek en selecteer de laatste rij of kolom met gegevens met Kutools voor Excel

Als je direct de laatste rij of kolom met gegevens in Excel wilt vinden en selecteren, kunnen de hulpprogramma's Selecteer laatste rij en Selecteer laatste kolom van Kutools voor Excel je helpen. Doe het volgende.

1. Als je de laatste rij met gegevens wilt vinden en selecteren, klik dan op Kutools > Selecteer > Selecteer laatste cel > Laatste rij. Zie screenshot:

Opmerking: Voor het vinden en selecteren van de laatste kolom met gegevens, klik dan op Kutools > Selecteer > Selecteer laatste cel > Laatste kolom.

De laatste rij of kolom met gegevens in het huidige werkblad wordt onmiddellijk gevonden en geselecteerd.

Demo: Zoek en selecteer de laatste rij of kolom met gegevens met Kutools voor Excel