Ez a nap első tippje, és ezzel megpróbálok szembenézni egy gyakori kérdéssel az VBA használatával az Excelben. Vagyis
Hogyan találhatom meg az utoljára használt sort egy adott lapon?
Ennek megvalósítására több módszer létezik, némelyik pontosabb, mint más, de ezek mind az Ön igényeit szolgálhatják.
Egy általános módszer
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Ami nem túl pontos, mert az Excel nem nagyon megfelelő formában tartja nyilván az utolsó cellát.
Egy másik módszer az utolsó oszlop megtalálásához egy adott oszlopban:
LastRowColA = Range("A65536").End(xlUp).Row
De ez BIZTOSAN nem mondja meg, hogy a teljes lapban utoljára használt sor van-e, hacsak nem lehet biztos abban, hogy az A oszlop tárolja az adatokat.
Néhány extra módszer megbízhatóbb.
LastRow = Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
vagy
LastRow = ActiveSheet.UsedRange.Rows.Count
Ez a módszer bármilyen lapon használható, nemcsak az aktív lapon.