Vba: hoe u de laatst gebruikte regel kunt vinden

U kunt de volgende basissyntaxis in VBA gebruiken om de laatst gebruikte rij in een Excel-werkblad te vinden:

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

In dit specifieke voorbeeld wordt gezocht naar de laatste rij die in het huidige blad is gebruikt en wordt het resultaat geretourneerd in cel D2 .

Als u in plaats daarvan de laatste regel van een berichtvenster wilt weergeven, kunt u de volgende syntaxis gebruiken:

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

De volgende voorbeelden laten zien hoe u elk van deze methoden in de praktijk kunt gebruiken.

Voorbeeld 1: Zoek de laatste rij met VBA en geef de resultaten in de cel weer

Stel dat we de volgende gegevensset in Excel hebben die informatie bevat over verschillende basketbalspelers:

We kunnen de volgende macro maken om de laatste regel in dit Excel-werkblad te vinden en het resultaat in cel D2 weer te geven:

 Sub FindLastRow()
Range(" D2 ")=Cells.Find("*",Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Merk op dat cel D2 de waarde 11 bevat.

Dit vertelt ons dat de laatste rij die in dit specifieke blad wordt gebruikt, rij 11 is.

Het is ook vermeldenswaard dat als u lege cellen vóór een gebruikte cel heeft, deze macro altijd de laatst gebruikte rij zal vinden.

Stel dat we de macro bijvoorbeeld uitvoeren op de volgende gegevensset:

Cel D2 bevat de waarde 16 omdat dit de laatste rij is die een waarde bevat.

Voorbeeld 2: Zoek de laatste rij met VBA en geef de resultaten weer in het berichtenvenster

Stel dat we in plaats daarvan de laatst gebruikte rij in een blad willen vinden en het rijnummer in een berichtvenster willen weergeven.

We kunnen hiervoor de volgende macro maken:

 Sub FindLastRow()
Dim LastRow As Long
    
LastRow=Cells.Find("*", Range(" A1 "),xlFormulas,xlPart,xlByRows,xlPrevious,False).Row

MsgBox " Last Row: " & LastRow
End Sub

Wanneer we deze macro uitvoeren, ontvangen we de volgende uitvoer:

Het berichtenvenster vertelt ons dat de laatste rij die in het blad wordt gebruikt, rij 11 is.

Opmerking : u kunt hier de volledige documentatie voor de VBA Find- methode vinden.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: Hoe de gemiddelde waarde van het bereik te berekenen
VBA: het aantal rijen binnen bereik tellen
VBA: dubbele waarden binnen bereik verwijderen