VBA Siste rad - Topp 3 metoder for å finne den siste brukte raden?

Innholdsfortegnelse

I VBA når vi må finne den siste raden, er det mange forskjellige metoder, og den mest brukte metoden er End (XLDown) -metoden, og det er andre metoder som å finne den siste verdien ved å finne funksjonen i VBA, End (XLDown) ). Raden er den enkleste måten å komme til siste rad.

Excel VBA siste rad

Hvis det å skrive koden er den første fremgangen du gjorde i VBA, er det å gjøre koden dynamisk det neste trinnet for deg. Excel er full av cellereferanser. I det øyeblikket vi refererer til cellen, blir den løst. Hvis dataene våre øker, må vi gå tilbake til cellereferansen og endre referansene for å gjøre resultatet oppdatert.

For eksempel, se koden nedenfor.

Kode:

Sub Last_Row_Example1 () Range ("D2"). Verdi = WorksheetFunction.Sum (Range ("B2: B7")) End Sub

Ovennevnte kode sier i D2, celleverdien skal være summeringen av Range (“B2: B7”).

Nå vil jeg legge til flere verdier i listen.

Hvis jeg kjører koden, vil den ikke gi meg oppdateringsresultatet, men den holder seg fortsatt til det gamle området, dvs. Range (“B2: B7”).

Det er her den dynamiske koden er veldig viktig.

I ferd med å gjøre koden dynamisk er det veldig viktig å finne den sist brukte raden i kolonnen. I denne artikkelen vil vi diskutere måtene å finne den siste raden i Excel VBA.

Hvordan finne sist brukte rad i kolonnen?

Nedenfor er eksemplene for å finne den sist brukte raden i Excel VBA.

Metode nr. 1

Før jeg forklarer deg koden, vil jeg at du skal huske hvordan du går til den siste raden i det vanlige regnearket.

Vi vil bruke hurtigtasten Ctrl + pil ned.

Det tar oss til den sist brukte raden før en tom celle. Vi vil også bruke den samme metoden i VBA for å finne den siste raden.

Trinn 1: Definer variabelen som LANG.

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row End Sub

Trinn 2: For denne variabelen tildeler vi det sist brukte radnummeret.

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = End Sub

Trinn 3: Skriv koden som CELLS (Rows.Count,

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = Cells (Rows.Count, End Sub

Trinn 4: Nevn nå kolonnenummeret som 1.

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = Cells (Rows.Count, 1) End Sub

CELLS (Rows.Count, 1) betyr å telle hvor mange rader det er i den første kolonnen.

Så den ovennevnte VBA-koden tar oss til den siste raden i Excel-arket.

Trinn 5: Hvis vi er i den siste cellen på arket for å gå til den sist brukte raden, vil vi trykke på hurtigtasten er Ctrl + Pil opp .

I VBA trenger vi å bruke sluttnøkkelen og opp, dvs. End VBA xlUp

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = Cells (Rows.Count, 1). End (xlUp) End Sub

Trinn 6: Nå tar det oss til den siste brukte raden fra bunnen. Nå trenger vi radnummeret på dette. Så bruk eiendommen ROW for å få radnummeret.

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = Cells (Rows.Count, 1). End (xlUp). Row End Sub

Trinn 7: Nå inneholder variabelen det sist brukte radnummeret. Vis verdien av denne variabelen i meldingsboksen i VBA-kode.

Kode:

Sub Last_Row_Example2 () Dim LR Så lenge 'For å forstå LR = Last Row LR = Cells (Rows.Count, 1). End (xlUp). Row MsgBox LR End Sub

Kjør denne koden ved hjelp av F5-tasten eller manuelt. Den viser den sist brukte raden.

Produksjon:

Den sist brukte raden i dette regnearket er 13.

Now I will delete one more line and run the code and see the dynamism of the code.

Ok, now the result automatically takes the last row.

This is what the dynamic VBA last row code is.

As I showed in the earlier example, change the row number from a numeric value to LR.

Code:

Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub

I have removed B13 and added the variable name LR.

Now it does not matter how many rows you add. It will automatically take the updated reference.

Method #2

We can also find the last row in VBA by using the Range object and special VBA cells property as well.

Code:

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

Koden gir deg også den sist brukte raden. Se for eksempel på regnearkbildet nedenfor.

Hvis jeg kjører koden manuelt eller bruker F5-tasten, blir resultatet 12 fordi 12 er den sist brukte raden.

Produksjon:

Nå vil jeg slette 12. rad og se resultatet.

Selv om jeg har slettet en rad, viser det fremdeles resultatet som 12.

For å få denne koden til å fungere, må vi trykke på lagringsknappen etter hver handling. Da vil denne koden gi nøyaktige resultater.

Jeg har lagret arbeidsboken og ser nå resultatet.

Metode 3

Vi finner VBA siste rad i det brukte området. Koden nedenfor returnerer også den sist brukte raden.

Kode:

Sub Last_Row_Example4 () Dim LR Så lenge LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub

Dette vil også returnere den sist brukte raden.

Produksjon:

Interessante artikler...