VBA code for averaging every 12 cells in column of data

[mdavid800]

Hi there I am looking for some help

I’m looking for a VBA code that will give me the averages of every 12 cells in a column of data.

What I have is data in cells “C35” to “C8928” what I want to do is average every 12 cells( i.e. cells C35 to C46 and then C47 to C58 and so on ) using VBA and then show the averages in column F from cells F1 to F744 (as I would have 744 averages).

Ive tried a number of ways of doing this but nothing seems to be working and have come looking for some help again from the forum.

Thank you in Advance

David

 

[VoG]

Try

Sub test()
Dim i As Long
For i = 35 To 8919 Step 12
    Range("F" & Rows.Count).End(xlUp).Offset(1).Value = WorksheetFunction.Average(Range("C" & i).Resize(12))
Next i
End Sub

 

[gsbelbin]

If you want to avoid code you could enter this in F1 and copy down

=AVERAGE(INDIRECT(ADDRESS(35+(ROW()-1)*12,3) & ":" & ADDRESS(46+(ROW()-1)*12,3)))

 

[mdavid800]

Thank you the Code worked great , also thanks for the formula. very much appreciated