Помощь автоматизации, Excel или SPSS, необходимо рассчитать медиану для каждого пятого значения

Question

У меня есть один большой столбец, мне нужно медиана каждого пятого / пятого значения в списке. У меня есть Excel и SPSS. Как я могу сделать это, не делая это вручную? 600 значений. При расчете у меня должен быть столбец с 120 медианными значениями.

Answer 1

Это проще сделать в spss.Следующий синтаксис создаст новый набор данных с вычисленными медианами (ваши исходные данные хранятся в переменной с именем origVar):

compute grp=trunc(($casenum-1)/5)+1.
dataset declare medians.
aggregate /out='medians'/break=grp /groupMedian=MEDIAN(origVar).

Answer 2

Если ваши данные в столбце А. Результат медианы будет записан в столбце с.

Sub test()
    Dim rngDB As Range, rng As Range
    Dim vR() As Variant
    Dim i As Long, n As Long

    Set rngDB = Range("a1", Range("a" & Rows.Count).End(xlUp))

    For i = 1 To rngDB.Rows.Count Step 5
        Set rng = Range("a" & i).Resize(5)
        n = n + 1
        ReDim Preserve vR(1 To n)
        vR(n) = WorksheetFunction.Median(rng)
    Next i
    Range("c1").Resize(n) = WorksheetFunction.Transpose(vR)

End Sub