In de VBA kun je verschillende methoden gebruiken om de laatste rij te vinden. In dit artikel ga ik verschillende methoden van VBA uitleggen om de laatste rij in Excel te vinden.

Om deze uitleg zichtbaar te maken, gebruik ik een voorbeeld dataset. Er zijn 4 kolommen in de dataset die verkoopinformatie vertegenwoordigen. Deze kolommen zijn Verkoper, Regio, Product, en Prijs .

Downloaden naar de praktijk

Manieren om in VBA de laatste rij in Excel te vinden

1. SpecialCells gebruiken om de laatste rij te vinden

U kunt de SpecialCells methode om de laatste rij te vinden met behulp van VBA .

Open eerst de Ontwikkelaar tab>> selecteer dan Visual Basic

Een nieuw venster van Microsoft Visual Basic voor toepassingen zal verschijnen.

Nu, van Plaats >> selecteer Module

A Module wordt geopend.

Schrijf dan de volgende code in de Module .

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub 

Hier heb ik een subprocedure gemaakt met de naam LastRow_SpecialCells waarbij a Lang soort variabele LastRow is verklaard.

Definieer vervolgens de variabele met behulp van de Range.SpecialCells methode. Hier heb ik kolom A ( A: A ) als het bereik. xlCellTypeLastCell als de type-parameter van SpecialCells zal dit de laatste cel van het bereik opleveren (in dit geval van kolom A ).

Ik heb een berichtvenster gebruikt om het resultaat te tonen.

Daarna, Sla de code en ga terug naar het werkblad.

Nogmaals, open de Bekijk tab>> van Macro's >> selecteer Macro's bekijken

Dan, een dialoogvenster zal verschijnen.

Nu, van de Macro naam selecteer de LastRow_SpecialCells selecteer ook de werkmap binnen Macro's in .

Eindelijk, Ren de geselecteerde Macro .

Er verschijnt dan een berichtvenster met het laatste rijnummer.

2. Rows.Count gebruiken voor niet-lege cellen

U kunt de Rijen.telling methode om de laatste rij te vinden met behulp van VBA .

Open nu de Ontwikkelaar tab>> selecteer dan Visual Basic

Een nieuw venster van Microsoft Visual Basic voor toepassingen zal verschijnen.

Nu, van Plaats >> selecteer Module

A Module wordt geopend.

Schrijf dan de volgende code in de Module .

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub 

Hier heb ik een subprocedure gemaakt genaamd LastRow_NonEmpty, waarin een Lang soort variabele LastRow is verklaard.

Nu, CELLS(Rows.Count, 1) zal tellen hoeveel rijen er zijn in de eerste kolom. Daarna gebruikt u End(xlUp).Row nu zal dit de laatst gebruikte rij in een Excel-bereik vinden.

Uiteindelijk heb ik een berichtvenster gebruikt om het resultaat te tonen.

Dan, Sla de code en ga terug naar het werkblad.

Open hier de Bekijk tab>> van Macro's >> selecteer Macro's bekijken

Nu, een dialoogvenster zal verschijnen.

Dan, van de Macro naam selecteer de LastRow_NonEmpty selecteer ook de werkmap binnen Macro's in .

Eindelijk, Ren de geselecteerde Macro .

Er verschijnt dan een berichtvenster met het laatste rijnummer.

3. Rows.Count gebruiken voor elke geselecteerde kolom

Door een geselecteerde kolom in VBA, kun je de laatste rij vinden.

Open eerst de Ontwikkelaar tab>> selecteer dan Visual Basic

Een nieuw venster van Microsoft Visual Basic voor toepassingen zal verschijnen.

Nu, van Plaats >> selecteer Module

A Module wordt geopend.

Schrijf dan de volgende code in de Module .

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub 

Hier heb ik een subprocedure gemaakt genaamd LastRow_AnyColumn, waar een Lang soort variabele LastRow is verklaard.

Dan, in de Bereik gezien de kolom B als parameter en ook Rijen.telling , dit zal tellen hoeveel rijen er zijn in een bepaalde kolom B Volgende, gebruikt Einde(xlup). Rij die de laatst gebruikte rij in een Excel-bereik vindt.

Tenslotte heb ik een berichtvenster gebruikt om het resultaat te tonen.

Volgende, Sla de code en ga terug naar het werkblad.

Open dan de Bekijk tab>> van Macro's >> selecteer Macro's bekijken

Hier, een dialoogvenster zal verschijnen.

Nu, van de Macro naam selecteer de LastRow_AnyColumn selecteer ook de werkmap binnen Macro's in .

Eindelijk, Ren de geselecteerde Macro .

Er verschijnt dan een berichtvenster met het laatste rijnummer.

Vergelijkbare lezingen:

• VBA zoeken in kolom in Excel (7 benaderingen)
• Zoeken en vervangen met VBA (11 manieren)
• Exacte overeenkomst vinden met VBA in Excel (5 manieren)
• String zoeken met VBA in Excel (8 voorbeelden)

4. UsedRange gebruiken om de laatste rij te vinden

U kunt de UsedRange eigenschap van het werkblad om de laatste rij te vinden met behulp van VBA .

Open nu de Ontwikkelaar tab>> selecteer dan Visual Basic

Vervolgens wordt een nieuw venster van Microsoft Visual Basic voor toepassingen zal verschijnen.

Nu, van Plaats >> selecteer Module

A Module wordt geopend.

Schrijf dan de volgende code in de Module .

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Last Row: " & LastRow End Sub 

Hier heb ik een subprocedure gemaakt genaamd LastRow_UsedRange, waarin een Lang soort variabele LastRow is verklaard.

Definieer vervolgens de variabele met behulp van de ActiveSheet.UsedRange.Rows methode ook voorzien ActiveSheet.UsedRange.Rows.Count als de parameter van ActiveSheet.UsedRange.Rows zal dit de laatste rij opleveren.

Ik heb een berichtvenster gebruikt om het resultaat te tonen.

Nu, Sla de code en ga terug naar het werkblad.

Open dan de Bekijk tab>> van Macro's >> selecteer Macro's bekijken

Vervolgens, een dialoogvenster zal verschijnen.

Dan, van de Macro naam selecteer de LastRow_UsedRange selecteer ook de werkmap binnen Macro's in .

Eindelijk, Ren de geselecteerde Macro .

Er verschijnt dan een berichtvenster met het laatste rijnummer.

5. Range.Find gebruiken om de laatste rij te vinden

U kunt de Range.Find methode om de laatste rij te vinden met behulp van VBA .

Open nu de Ontwikkelaar tab>> selecteer dan Visual Basic

Hier wordt een nieuw venster van Microsoft Visual Basic voor toepassingen zal verschijnen.

Nu, van Plaats >> selecteer Module

A Module wordt geopend.

Schrijf dan de volgende code in de Module .

 Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Last Row: " & LastRow End Sub 

Hier heb ik een subprocedure gemaakt met de naam Range_Find_Method, waarin een Lang soort variabele LastRow is verklaard.

Definieer vervolgens de variabele met behulp van de Cellen.zoeken methode. Hier zijn 7 parameters aangegeven. In Wat parameter die ik heb gebruikt ("*") die de eerste niet-lege cel zal vinden. Gegeven A1 als het bereik in de Na parameter om te beginnen. In de LookAt verstrekte parameter xlPart om elk deel van de tekst in de cel te bekijken.

LookIn:=xlFormulas parameter zoekt naar formules als die er zijn. SearchOrder:=xlByRows parameter gaat van rechts naar links en loopt ook door elke rij tot hij een niet-lege cel vindt.

MatchCase:=False parameter zal vertellen Zoek geen rekening te houden met hoofdletters of kleine letters. Wanneer een niet-blanco wordt gevonden, stopt het en geeft het rijnummer terug.

Ik heb een berichtvenster gebruikt om het resultaat te tonen.

Nu, Sla de code en ga terug naar het werkblad.

Open hier de Bekijk tab>> van Macro's >> selecteer Macro's bekijken

Nu, een dialoogvenster zal verschijnen.

Nu, van de Macro naam selecteer de Range_Find_Method selecteer ook het werkblad binnen Macro's in .

Eindelijk, Ren de geselecteerde Macro .

Er verschijnt dan een berichtvenster met het laatste rijnummer.

Conclusie

In dit artikel heb ik 5 manieren uitgelegd om VBA U kunt elk van de methoden volgen om de laatste rij in Excel te vinden. Als u verwarring of vragen heeft over deze methoden, kunt u hieronder commentaar geven.