Calculate a moving average : Excel Buildin Function « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. Excel Buildin Function

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

 

Related examples in the same category