question on using average function in macro

[Suhao He]

Hi, all

I have a question on using average function in macro.

I have couple of cells, for example from cells(3.4) to cells(3,55) and
I want to get the averaged value of them. Is there a function I can
directly use in macro?

I found one object WorksheetFunction.Average(Range). How Can I convert
Cells(3,4)~Cells(3,55) to a range value?

Thanks,

Suhao

 

[Dana DeLouis]

... How Can I convert

Cells(3,4)~Cells(3,55) to a range value?

Hi. One way:

Sub Demo()
Dim avr
avr = WorksheetFunction.Average(Range(Cells(3, 4), Cells(3, 55)))
End Sub

 

[Suhao He]

Oh, man. This is simple.
Thanks!

Hi. One way:

Sub Demo()
Dim avr
avr = WorksheetFunction.Average(Range(Cells(3, 4), Cells(3, 55)))
End Sub