out of range error with Application.Average(Array(), Array())

[SBF12345]

I am receiving an error on the line below:

M = Application.Average(Arr(2, 8), Arr(N, 8))

Arr() is an array variable, N is an integer, Arr() is currently (1 to 2978, 1 to 9)

How can I use the average function to find the average of the values in the 8th column? Or is there another way I can find the average of a set of values in an array?

Thanks!

 

[shg]

M = (Arr(2, 8) + Arr(N, 8)) / 2#

 

[SBF12345]

I think my syntax is in error. I intended to average all the values between position 2 and N in the array. N is equal to 2878 or something. How can I average all 2000 + values?

 

[shg]

You'd need to write a loop that sums the values of interest and then divide by the count.

 

[shg]

If this is data read in from a worksheet, and the first row is a header (i.e., text), you could do this:

Sub SBF()
  Dim Arr           As Variant
  Dim dAvg          As Double

  Arr = Range("A1:H2978").Value2
  With WorksheetFunction
    dAvg = .Average(.Index(Arr, 0, 8))
  End With
End Sub

But in practice, I'd write a loop.

 

[SBF12345]

Does the "0" in (.Index(Arr,0,8)) define the entire set of elements in the 8th column?

 

[SBF12345]

I worked it out long hand and got a value that seems to work this way. I'll probably stick with the With statement structure. Thanks shg

 

[Rick Rothstein]

If this is data read in from a worksheet, and the first row is a header (i.e., text), you could do this:

Sub SBF()
  Dim Arr           As Variant
  Dim dAvg          As Double

  Arr = Range("A1:H2978").Value2
  With WorksheetFunction
    dAvg = .Average(.Index(Arr, 0, 8))
  End With
End Sub

But in practice, I'd write a loop.

The value generated by the above code does not seem to return the value you get by applying the AVERAGE function to the entire row. Any idea why... and why did you choose the array route when you could have just applied the Worksheet.Average function to the range directly?