VBA - posledný neprázdny riadok [Všetky verzie]

Medzi verziami 2003 a 2007 sa výrazne zmenil počet riadkov, ktoré možno dosiahnuť v hárku programu Excel. V dôsledku toho kódy VBA, ako je uvedené nižšie, zabraňujú prenosnosti zošita z jednej verzie do druhej:

- Verzie <2007:

 Dim LastLine As Long LastLine = Rozsah ("A65536") Koniec (xlUp). 

- Od roku 2007:

 Dim LastLine As Long LastLine = Rozsah ("A1048576") Koniec (xlUp) .Row 

V každom prípade by ste teraz mali používať [Všetky verzie]:

 Dim LastLine As Long LastLine = Stĺpce (1). Nájdite ("*",,,, xlByColumns, xlPrevious) .Row 

alebo:

 Dim LastLine As Long LastLine = Rozsah ("A" & Rows.Count) .End (xlUp) .Row 

Pri použití stĺpcov budete tiež čeliť rovnakému problému ... Tento kód môžete použiť (tu je príklad, existujú aj iné syntaxe):

 Dim LastCol ako celé číslo LastCol = Bunky (1, Cells.Columns.Count) .End (xlToLeft). 

Kódy tu uvedené sa týkajú posledného neprázdneho riadka v stĺpci A (stĺpce (1). Nájdite ("*",,,, xlByColumns, xlPrevious) .Row, Range ("A" & Rows.Count) .End ( xlUp) .Row) a posledný stĺpec, ktorého prvý riadok nie je prázdny (bunky (1, Cells.Columns.Count) .End (xlToLeft) .Column) . Samozrejme, že kód môžete prispôsobiť svojmu pohodliu.