End of Column

P

Philosophaie

How do you take a column, find the last entry in it and list the row # of the
last entry?
 
F

FSt1

hi,
try this
Sub findendcol()
Dim c As Long
c = Cells(Rows.Count, "B").End(xlUp).Row
MsgBox c
End Sub

regards
FSt1
 
G

Gord Dibben

Without VBA

=ADDRESS(MATCH(99^99,A:A),1,4) address of last numeric cell

=ADDRESS(MATCH(REPT("z",255),A:A),1,4)

to find address of last text cell in column

Note the 4 returns relative-------1,2,3,4 are options

With VBA

Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox lrow
End Sub


Gord Dibben MS Excel MVP
 
P

Philosophaie

How do you add that to a range select?

Range("A1:H9").Select

Replace "9" with "Irow".
 
G

Gord Dibben

Sub lastcell()
Dim lrow As Long
lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:H" & lrow).Select
End Sub


Gord
 
Top