Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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 / n
End Sub

Можно и короче записать:
Sub MyMid2()
    Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))
End Sub