Обработка массивов - Пример 1

Результат вычисления среднего роста будут записаны в ячейку B9.

Решение.

Sub средний_рост()

Dim Rost(6) As Double

Dim i As Integer

Dim Сумма, Среднее As Double

' ввод таблицы для обработки

For i = 1 To 6

Rost(i) = Cells(1 + i, 2).Value

Next i

' нахождение суммы чисел в таблице

Сумма = 0

For i = 1 To 6

Сумма = Сумма + Rost(i)

Next i

' вычисление среднего

Среднее = Сумма / 6

'вывод

Cells(9, 2).Value = Среднее

MsgBox (Среднее)

End Sub

Пояснение решения.

В строке Dim Rost(6) As Double объявляется массив чисел двойной точности именем Rost размерностью 6, то есть одномерная таблица Rost емкостью 6 (шесть) ячеек.

Аналогичным образом можно обрабатывать и двумерные массивы.