Zadnja vrstica VBA - Najboljše 3 metode za iskanje zadnje uporabljene vrstice?

V VBA, ko moramo najti zadnjo vrstico, obstaja veliko različnih metod, najpogosteje uporabljena metoda pa je metoda End (XLDown), obstajajo pa tudi druge metode, kot je iskanje zadnje vrednosti s pomočjo funkcije find v VBA, End (XLDown ). Vrstica je najlažji način, da pridete do zadnje vrstice.

Excel VBA Zadnja vrstica

Če je pisanje kode prvi napredek, ki ste ga dosegli v VBA, je naslednji korak za vas ustvarjanje dinamične kode. Excel je poln referenc na celice. V trenutku, ko se sklicujemo na celico, ta postane fiksna. Če se naši podatki povečajo, se moramo vrniti na sklic na celico in spremeniti sklice, da bo rezultat posodobljen.

Za primer si oglejte spodnjo kodo.

Koda:

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

Zgornja koda v D2 pravi, da mora biti vrednost celice vsota obsega ("B2: B7").

Zdaj bom na seznam dodal še več vrednosti.

Zdaj, če zaženem kodo, mi prej ne bo dala rezultatov posodobitev, še vedno se drži starega obsega, tj. Obsega (“B2: B7”).

Tu je dinamična koda zelo pomembna.

Pri ustvarjanju dinamične kode je zelo pomembno najti zadnjo uporabljeno vrstico v stolpcu. V tem članku bomo razpravljali o načinih iskanja zadnje vrstice v Excelu VBA.

Kako najti zadnjo uporabljeno vrstico v stolpcu?

Spodaj so primeri iskanja zadnje uporabljene vrstice v Excelu VBA.

1. metoda

Preden vam razložim kodo, si zapomnite, kako se pomaknete do zadnje vrstice običajnega delovnega lista.

Uporabili bomo bližnjično tipko Ctrl + puščica dol.

Pripeljal nas bo do zadnje uporabljene vrstice pred katero koli prazno celico. Tudi v VBA bomo uporabili isto metodo za iskanje zadnje vrstice.

1. korak: Spremenljivko definirajte kot LONG.

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Sub Sub End End

2. korak: Za to spremenljivko bomo dodelili zadnjo uporabljeno številko vrstice.

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Konec Sub

3. korak: Zapišite kodo kot CELLS (Rows.Count,

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Celice (Vrstice. Število, Konec Sub

4. korak: Zdaj navedite številko stolpca kot 1.

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Celice (Vrstice. Število, 1) Konec Sub

CELLS (Rows.Count, 1) pomeni prešteti, koliko vrstic je v prvem stolpcu.

Torej nas bo zgornja koda VBA pripeljala do zadnje vrstice lista excel.

5. korak: Če smo v zadnji celici lista, da gremo do zadnje uporabljene vrstice, bomo pritisnili bližnjično tipko Ctrl + puščica gor .

V VBA moramo uporabiti tipko za konec in navzgor, tj. End VBA xlUp

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Celice (vrstice. Število, 1). Konec (xlUp) Konec Sub

6. korak: Zdaj nas pripelje do zadnje uporabljene vrstice od spodaj. Zdaj potrebujemo številko vrstice tega. Torej uporabite lastnost ROW, da dobite številko vrstice.

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Celice (vrstice. Število, 1). Konec (xlUp). Vrstica Konec Sub

7. korak: Zdaj ima spremenljivka zadnjo uporabljeno številko vrstice. Pokažite vrednost te spremenljivke v polju za sporočila v kodi VBA.

Koda:

Sub Last_Row_Example2 () Dim LR As Long 'Za razumevanje LR = Zadnja vrstica LR = Celice (vrstice. Število, 1). Konec (xlUp). Vrstica MsgBox LR Konec Sub

Zaženite to kodo s tipko F5 ali ročno. Prikazala se bo zadnja uporabljena vrstica.

Izhod:

Zadnja uporabljena vrstica na tem delovnem listu je 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

Koda vam da tudi zadnjo uporabljeno vrstico. Na primer, poglejte spodnjo sliko delovnega lista.

Če kodo zaženem ročno ali s tipko F5, bo rezultat 12, ker je 12 zadnja uporabljena vrstica.

Izhod:

Zdaj bom izbrisal 12. vrstico in videl rezultat.

Čeprav sem izbrisal eno vrstico, je rezultat še vedno prikazan kot 12.

Da bo ta koda delovala, moramo po vsakem dejanju pritisniti gumb za shranjevanje. Potem bo ta koda vrnila natančne rezultate.

Delovni zvezek sem shranil in zdaj vidim rezultat.

3. metoda

V uporabljenem obsegu najdemo zadnjo vrstico VBA. Spodnja koda vrne tudi zadnjo uporabljeno vrstico.

Koda:

Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub

Vrnila se bo tudi zadnja uporabljena vrstica.

Izhod:

Zanimive Članki...