lastincolumn function

zyzzyva57 · #7 01-30-2010, 03:28 PM

Here are some ideas to try:

Function LastInColumn(a As Range)
LastInColumn = Range("a1").Cells(1048576, a.Column).End(xlUp).Address
End Function

====================

Function LastInRange(InputRange As Range)
LastInRange = InputRange.Cells(InputRange.SpecialCells(xlLastCel l).Row +
1, InputRange.Column).End(xlUp)
End Function

Or shorten it by using the With statement:

Function LastInRange(InputRange As Range)
With InputRange
LastInRange = .Cells(.SpecialCells(xlLastCell).Row + 1, .Column).End(xlUp)
End With
End Function

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Cross-reference function with Visio?	Barometer	Word	0	11-04-2009 12:38 PM
Outlook 2003/ Send to function	ptservice	Outlook	0	09-24-2009 07:09 AM
Help! for using an appropriate function/Macro in Excel	pawan2paw	Excel	1	06-04-2009 12:28 PM
Need help on what function to use???	Primeraman	Excel	1	06-13-2006 10:16 AM
Help with Combination function	sanasath	Excel	0	12-13-2005 07:24 AM