Напишите макрос для Excel для вычисления среднего значения в ячейках B3-B14 и с постановкой этого значения в ячейку Е3, заранее благодарю!!!

Второе решение - это для тех, кто не верит, что быстрее и удобнее связки Excel+VBA для решения большинства задач - только волшебная палочка.

Спасибо, хоть кто-то ответил:)

Гм... "С паршивой овцы хоть шерсти клок"?

Извините, что позволил себе решение опубликовать, наверно Вы ждали ответа Администратора ...

Да нет, что вы, просто пришлось подождать довольно долго. А насчет решения... В общем, мне безразлично кто отвечает, разницы нет. Главное, что ответ правильный. Так что огромное спасибо.

Sub MyMid()    a = Range("B3:B14")    n = UBound(a, 1)    s = 0    For i = 1 To n        s = s + a(i, 1)    Next i    Range("E3").Value = s / nEnd SubМожно и короче записать:Sub MyMid2()    Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))End Sub