Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Calculate a moving average

Option Explicit Public Sub MoveAverage()   Dim aRange As Range   Dim i As Long      Set aRange = Range("B1:B3")   For i = 3 To 12     Cells(i, "C").Value = WorksheetFunction.Round(WorksheetFunction.Sum(aRange) / 3, 0)     Set aRange = aRange.Offset(1, 0)   Next i End Sub