Snasui Excel Forum

Code: Select all

    Range("A1").Select
    ActiveWindow.SmallScroll ToRight:=1
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(R[-33]C:R[-1]C)"
    Selection.AutoFill Destination:=Range(Selection, Selection.End(xlToRight)), Type:=xlFillDefault

Code: Select all

Dim rAll As Range
Dim lng As Long
Dim i As Integer
Dim j As Integer
lng = Range("B" & Rows.Count).End(xlUp).Row
i = Range("B1", Range("B1").End(xlToRight)).Count
Set rAll = Range("B2:B" & lng)
For j = 1 To i
    rAll(rAll.Count).Offset(1, 0) = Application.Average(rAll)
    rAll(rAll.Count).Offset(2, 0) = Application.StDev(rAll)
    Set rAll = rAll.Offset(0, 1)
Next j