Основы работы в VBA. Массивы

         Двумерным называется массив, у которого размерность равна 2. Фактически он представляет собой таблицу состоящую из строк и столбцов. Двумерные массивы, у которых значения индексов одинаковые, т.е. число строк равно числу столбцов, называют квадратной матрицей. При работе с квадратными матрицами используются специальные математические понятия, значение которых рассмотрим на примере матрицы размерами 4х4 – B(4,4):

j = i – элемент находится на главной диагонали (\( b_{11}, b_{22}, b_{33}, b_{44} \));

j = n - i + 1 (n – размерность матрицы) – элемент находится на побочной диагонали  (\( b_{41}, b_{32}, b_{23}, b_{14} \));

i < j – элемент находится над главной диагональю (\( b_{12}, b_{13},b_{14},b_{23}, b_{24}, b_{34}, \));

i > j – элемент находится под главной диагональю (\( b_{21}, b_{31},b_{32},b_{41}, b_{42}, b_{43}, \)).

Транспонированной матрицей В(n, n) называется такая квадратная матрица, у которой столбцы соответствуют строкам исходной квадратной матрицы А(n, n):

Элементы главной диагонали у матриц А и В одни и те же. Следовательно операция транспонирования матрицы А сводится к перестановке строк матрицы.

Dim a() As Single

Dim b() As Single

n = 5

ReDim a(n, n): ReDim b(n, n)

For i = 1 To n

For j = 1 To n

a(i, j) = Cells(i, j)

b(j, i) = a(i, j)             'транспонирование матрицы

Next j

Next i

For i = 1 To n

For j = 1 To n

Cells(n + 1 + i, j) = b(i, j) 'вывод результата

Next j

Next i

Результат программы: