VBA Sidste række - Top 3 metoder til at finde den sidst brugte række?

Indholdsfortegnelse

I VBA, når vi skal finde den sidste række, er der mange forskellige metoder, og den mest anvendte metode er End (XLDown) -metoden, og der er andre metoder, såsom at finde den sidste værdi ved hjælp af find-funktionen i VBA, End (XLDown) ). Rækken er den nemmeste måde at komme til den sidste række.

Excel VBA sidste række

Hvis det at skrive koden er det første fremskridt, du har gjort i VBA, er det næste skridt for dig at gøre koden dynamisk. Excel er fuld af cellereferencer. I det øjeblik vi henviser til cellen, bliver den fast. Hvis vores data stiger, er vi nødt til at gå tilbage til cellereferencen og ændre referencerne for at gøre resultatet opdateret.

Se et eksempel på nedenstående kode.

Kode:

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

Ovenstående kode siger i D2, at celleværdien skal være summeringen af ​​Range (“B2: B7”).

Nu vil jeg tilføje flere værdier til listen.

Hvis jeg nu kører koden, vil det ikke give mig opdateringsresultatet, det holder sig stadig til det gamle interval, dvs. Range (“B2: B7”).

Det er her, den dynamiske kode er meget vigtig.

I processen med at gøre koden dynamisk er det meget vigtigt at finde den sidst anvendte række i kolonnen. I denne artikel vil vi diskutere måderne til at finde den sidste række i Excel VBA.

Hvordan finder man den sidst anvendte række i kolonnen?

Nedenfor er eksemplerne for at finde den sidst anvendte række i Excel VBA.

Metode nr. 1

Før jeg forklarer dig koden, vil jeg have dig til at huske, hvordan du går til den sidste række i det normale regneark.

Vi bruger genvejstasten Ctrl + pil ned.

Det fører os til den sidst brugte række før en tom celle. Vi bruger også den samme metode i VBA for at finde den sidste række.

Trin 1: Definer variablen som LANG.

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For forståelse LR = Sidste række End Sub

Trin 2: For denne variabel tildeler vi det sidst anvendte række nummer.

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = End Sub

Trin 3: Skriv koden som CELLS (Rækker. Antal,

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = Celler (Rækker. Antal, slut sub

Trin 4: Nævn nu kolonnenummeret som 1.

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = Celler (Rækker. Antal, 1) Afslut sub

CELLS (Rækker.Tælling, 1) betyder at tælle, hvor mange rækker der er i den første kolonne.

Så ovenstående VBA-kode fører os til den sidste række i excel-arket.

Trin 5: Hvis vi er i den sidste celle på arket for at gå til den sidst anvendte række, vil vi trykke på genvejstasten er Ctrl + Pil op .

I VBA er vi nødt til at bruge slut-nøglen og op, dvs. Afslut VBA xlUp

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = Celler (Rækker.Tælling, 1). Afslut (xlUp) Afslut sub

Trin 6: Nu tager det os til den sidst anvendte række fra bunden. Nu har vi brug for række nummeret på dette. Så brug ejendommen ROW for at få række nummeret.

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = Celler (Rækker.Tælling, 1). Afslut (xlUp).

Trin 7: Nu indeholder variablen det sidst anvendte række nummer. Vis værdien af ​​denne variabel i meddelelsesfeltet i VBA-kode.

Kode:

Sub Last_Row_Example2 () Dim LR så længe 'For at forstå LR = Sidste række LR = Celler (Rækker.Count, 1). End (xlUp). Row MsgBox LR End Sub

Kør denne kode ved hjælp af F5-tasten eller manuelt. Den viser den sidst anvendte række.

Produktion:

Den sidst anvendte række i dette regneark 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 giver dig også den sidst brugte række. Se f.eks. Nedenstående regnearksbillede.

Hvis jeg kører koden manuelt eller bruger F5-nøglen, bliver resultatet 12, fordi 12 er den sidst anvendte række.

Produktion:

Nu vil jeg slette den 12. række og se resultatet.

Selvom jeg har slettet en række, viser den stadig resultatet som 12.

For at få denne kode til at fungere, er vi nødt til at trykke på gem-knappen efter hver handling. Derefter returnerer denne kode nøjagtige resultater.

Jeg har gemt projektmappen og ser nu resultatet.

Metode nr. 3

Vi kan finde VBA sidste række i det anvendte interval. Nedenstående kode returnerer også den sidst anvendte række.

Kode:

Sub Last_Row_Example4 () Dim LR så længe LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub

Dette returnerer også den sidst anvendte række.

Produktion:

Interessante artikler...