Помогите написать макрос!!!

[zmax123]

В Excel имеется столбик с данными:

А-название столбика
1-я строка 5
2-я строка 1
4
8
2
9
.....
100-я строка 4

Необходимо каждое значение в столбике возвести в квадрат, а затем взять 20 первых строк и подсчитать по формуле КОРЕНЬ((А1^2+А2^2+...+A20^2)/2), потом взять 20 следующих строк выполнить тоже самое и так до 100 строки. Затем необходимо полученные рассчетные данные вывести в столбик, например

С
5
7
3
1
4

То есть будет пять значений!

Заранее очень Вас благодарю!!!

[EducatedFool]

Выберите 5 пустых ячеек на листе, и введите в них формулы:

=КОРЕНЬ(СУММКВ($A$1:$A$20)/2)
=КОРЕНЬ(СУММКВ($A$21:$A$40)/2)

и т.д.

[zmax123]

Да нет, тут все сложнее, 100 строк я привел в качестве примера. В действительности у меня 45000 строк, поэтому без макроса тут никак. Если Вы поможите написать макрос на примере 100 строк, то на 45000 я уже сам переделаю! Очень нужна помощь!!!!!

[EducatedFool]

В действительности у меня 45000 строк, поэтому без макроса тут никак

Неужели?
Пишем в первую ячейку формулу

=КОРЕНЬ(СУММКВ(ДВССЫЛ("$A$"&(СТРОКА()-1)*20+1&":$A$"&СТРОКА()*20))/2)

и растягиваем эту формулу на нужное количество строк (2250)

Ну а если так надо макрос, пожалуйста:

Sub макрос()
    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.UsedRange.Rows.Count / 20
        Cells(i, 4).FormulaLocal = "=КОРЕНЬ(СУММКВ($A$" & (i - 1) * 20 + 1 & ":$A$" & i * 20 & ")/2)"
    Next
End Sub

[zmax123]

Спасибо большое! Пойду пробовать!!!