Hoe vindt u de laatste rij of kolom met gegevens in Excel?
In een groot werkblad bepaalt u de laatste rij of kolom met gegevens snel en eenvoudig door de schuifbalk te slepen. Maar bij duizenden rijen wordt dat lastig. In dit artikel bespreek ik handige VBA-codes om deze taak soepel op te lossen.
Zoek de Laatste rij of kolom met gegevens met behulp van VBA-code
Zoek en selecteer Laatste rij of kolom met gegevens met Kutools voor Excel
Zoek de Laatste rij of kolom met gegevens met behulp van VBA-code
De meeste van ons denken er misschien aan om de laatste cel te lokaliseren door op Ctrl+End te drukken om de laatste rij en kolom te vinden, maar deze sneltoets wijst niet naar de juiste cel met waarden als er onder het gegevensbereik cellen met opmaak aanwezig zijn. Gebruik daarom de volgende VBA-code:
1. Activeer het werkblad waarvoor u 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 daarna op F5 om deze code uit te voeren; er verschijnt een meldingsvenster met het rijnummer van het gebruikte bereik. Zie de schermafbeelding:
5. Klik vervolgens op OK, waarna het laatste rijnummer met waarden wordt weergegeven, zoals op de volgende schermafbeelding:
Opmerking:Om de Laatste kolom met gegevens te vinden, past u deze code toe:
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 Laatste rij of kolom met gegevens met Kutools voor Excel
Wilt u direct de laatste rij of kolom met gegevens in Excel zoeken en selecteren? Dan helpen de hulpprogramma’s Selecteer Laatste rij en Selecteer Laatste kolom van Kutools voor Excel u daarbij. Volg hiervoor de onderstaande stappen.
1. Als u de laatste rij met gegevens wilt zoeken en selecteren, klikt u op Kutools > Selecteren > Selecteer de laatste cel > Laatste rij. Zie de schermafbeelding:
Opmerking: Om de laatste kolom met gegevens te zoeken en te selecteren, klikt u op Kutools > Selecteren > Selecteer de laatste cel > Laatste kolom.
Vervolgens worden de laatste rij of kolom met gegevens in het huidige werkblad onmiddellijk gevonden en geselecteerd.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Demo: Zoek en selecteer Laatste rij of kolom met gegevens met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins