Finding Last value in a column

[chris miller]

Currently I am using the following Macro to find the last/bottom value of a
column:

Sheets("Daily").Activate
n = Cells(Rows.Count, "l").End(xlUp).Row
Cells(n, "l").Copy Sheets("Data").Range("D8")

I was wondering if it is possibe to use a function instead if a macro to
find the last vlaue in a column?

Thnaiks

 

[Gary''s Student]

Perhaps:

Function lastvalueincolumn(r As Range) As Variant
lastvalueincolumn = ""
cl = r.Column
If IsEmpty(Cells(Rows.Count, cl).Value) Then
n = Cells(Rows.Count, cl).End(xlUp).Row
lastvalueincolumn = Cells(n, cl).Value
Else
lastvalueincolumn = Cells(Rows.Count, cl).Value
End If
End Function


used as:

=lastvalueincolumn(A:A)

 

[Gord Dibben]

=LOOKUP(1E+100,A:A)


Gord Dibben MS Excel MVP