Average of last column

G

grok

pleaseHello all. I've been reading these threads to figure out how to do
what I want but can't quite get there. Here's what I'm trying to do:

I have a worksheet that gets written from an app. After the app stops I
want to open the worksheet and compute the average of the last column (not
including the header row) and place the result one cell below the cell in the
last row, last col no matter how many rows and cols are present.

I think I need a macro which calls a formula which calls a function. Could
someone please provide a solution?

grok
 
D

Don Guillett

One way

Sub averagelastcolumn()
lc = Cells(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, lc).End(xlUp).Row
Cells(lr + 1, lc) = Application.Average(Range(Cells(2, lc), Cells(lr, lc)))
End Sub
 
G

grok

Works like a charm! Thanks.

Don Guillett said:
One way

Sub averagelastcolumn()
lc = Cells(1, Columns.Count).End(xlToLeft).Column
lr = Cells(Rows.Count, lc).End(xlUp).Row
Cells(lr + 1, lc) = Application.Average(Range(Cells(2, lc), Cells(lr, lc)))
End Sub
Click to expand...
 
Top