sourse, рекурсию нужно как-то так реализовывать (считает начиная с нижней клетки вверх до первой, где встретит нечисловое значение):
Цитата:
Function MySum(c as Cell)
If Not IsNumeric(Cell.Offset(-1).Value) Then
Return 0
Else Return c.Value + MySum(Cell.Offset(-1))
End If
End Sub
|
MS Office не юзаю, поэтому проверить не могу. Среднее значение рекурсивно навскидку только с накапливанием в переменную кол-ва шагов, то есть то же, но со счётчиком, увеличивающимся с каждым вызовом MySum на 1, а потом делим полученную сумму на число шагов из счётчика.