Toto je môj prvý tip dňa a spolu s ním sa pokúsim čeliť jednej bežnej otázke pomocou VBA v programe Excel. To je
Ako nájdem posledný použitý riadok v konkrétnom hárku?
Existuje niekoľko metód, ako to dosiahnuť, niektoré presnejšie ako iné, ale všetky môžu slúžiť vašim potrebám.
Jedna bežná metóda
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Čo nie je veľmi presné, pretože program Excel nesleduje poslednú bunku vo veľmi adekvátnej forme.
Ďalšou metódou na vyhľadanie posledného použitého riadku v konkrétnom stĺpci je:
LastRowColA = Range("A65536").End(xlUp).Row
To vám však NEOVIČE nepovie posledný použitý riadok v celom hárku, pokiaľ si nie ste istí, že stĺpec A obsahuje údaje.
Spoľahlivejšie je niekoľko ďalších metód.
LastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
alebo
LastRow = ActiveSheet.UsedRange.Rows.Count
Túto metódu je možné použiť na ľubovoľnom hárku, nielen na aktívnom hárku.