a macro which finds last cell in a column

[vikram]

please tell me the macro which can find last cell in a column

thank u so muc

 

[pikus]

x = the number of the column you are concerned with (column "A" = 1
column "B" = 2 etc.)

last = Worksheets("Sheet1").UsedRange.Row - 1
Worksheets("Sheet1").UsedRange.Rows.Count
Do Until Worksheets("Sheet1").Cells(last, x).Value <> ""
last = last - 1
Loo

 

[Tom Ogilvy]

Dim rng as Range colNum as Long
colNum = 1
set rng = cells(rows.count,colNum).End(xlup)

 

[Tom Ogilvy]

Excel down assumes contiguous data (no empty cells). xlup doesn't.

 

[Jarek]

Note - not typical, but for example (column A):

if the only not empty cell in column A is A65536 (the last row of th
sheet), then xlUp selects the cell A1 (the first row of the sheet)

Jare

 

[Tom Ogilvy]

No one said you shouldn't test your results.