Привет Сделать макрос для вычисления разницы квадратов

Відповідь:

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

Можно и короче записать  VBA:

Sub MyMid2()

   Range("E3") = Application.WorksheetFunction.Average(Range("B3:B14"))

End Sub

Пояснення:

С Вас ♥