Excel - Finding the Last Row, Column or Cell

Submitted by Sergey on January 1, 2008 - 20:36

This is sample code. Add error handling and adjust to your requirements as necessary.

#DEFINE xlA1       1	
#DEFINE xlR1C1     -4150	
#DEFINE xlLastCell 11
 
* Last Row/Column
lnLastRow = oSheet.UsedRange.Rows.Count
lnLastCol = oSheet.UsedRange.Columns.Count
 
* Last Cell - Intersection of the last row and the last column
lcLastCell = oSheet.Cells.SpecialCells(xlLastCell).Address(,,xlR1C1)
Your rating: None Average: 4 (1 vote)

Useful Tips

Submitted by Ravi (not verified) on March 3, 2008 - 16:38.

Thanks for posting useful tips.