VBA - posljednji prazan red [Sve verzije]

Između verzija iz 2003. i 2007. broj redaka koji se mogu pronaći u Excelovom listu značajno su se promijenili. Zbog toga VBA kodovi, kao što je prikazano u nastavku, sprječavaju prenosivost radne knjige iz jedne verzije u drugu:

- Verzije <2007:

 Dim LastLine kao dugo LastLine = Raspon ("A65536"). Kraj (xlUp) .Row 

- Od 2007:

 Dim LastLine Long LongLine = Raspon ("A1048576"). Kraj (xlUp) .Row 

U svakom slučaju, sada biste trebali koristiti [Sve verzije]:

 Dim LastLine As Long LastLine = Stupci (1) .Find ("*",,,, xlByColumns, xlPrevious) .Row 

ili :

 Dim LastLine kao dugo LastLine = Raspon ("A" & Redovi.Count) .End (xlUp) .Row 

Također ćete se suočiti s istim problemom kada koristite stupce ... Možete koristiti ovaj kôd (ovdje naveden kao primjer, postoje i druge sintakse):

 Dim LastCol As Integer LastCol = Stanice (1, Cells.Columns.Count) .End (xlToLeft) .Column 

Ovdje navedene oznake odnose se na posljednji prazni redak u stupcu A (Stupci (1). Find ("*",,,, xlByColumns, xlPrevious). Red, Range ("A" & Rows.Count). End ( xlUp) .Row) i zadnji stupac čija prva linija nije prazna (Cells (1, Cells.Columns.Count). End (xlToLeft) .Column) . Naravno, možete prilagoditi kod prema Vašoj želji.