VBA - Laatste niet-lege rij [Alle versies]

Tussen de versies van 2003 en 2007 is het aantal rijen dat kan worden bereikt in een Excel-blad aanzienlijk veranderd. Als gevolg hiervan voorkomen de VBA-codes zoals hieronder de portabiliteit van uw werkmap van de ene versie naar de andere:

- Versies <2007:

 Dim LastLine As Long LastLine = Range ("A65536"). End (xlUp) .Row 

- Sinds 2007:

 Dim LastLine As Long LastLine = Bereik ("A1048576"). Einde (xlUp) .Row 

Gebruik in elk geval [Alle versies]:

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

of:

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

U zult ook met hetzelfde probleem geconfronteerd zijn bij het gebruik van de kolommen ... U kunt deze code gebruiken (hier gegeven als een voorbeeld, er zijn andere syntaxis):

 Dim LastCol As Geheel getal LastCol = Cellen (1, Cells.Columns.Count). End (xlToLeft) .Column 

De codes die hier worden vermeld, hebben betrekking op de laatste niet-lege regel in kolom A (Kolommen (1). .Find ("*",,,, xlByColumns, xlPrevious). Row, Range ("A" & Rows.Count). End ( xlUp). Row) en de laatste kolom waarvan de eerste regel niet leeg is (Cellen (1, Cells.Columns.Count) .End (xlToLeft) .Column) . Natuurlijk kunt u de code aanpassen aan uw gemak.