помогите сделать лабу в VBA, по темам, "Матрицы" и "одномерные массывы"

как обычно - отвечаю на 1 вопрос)) )

Sub ppp()
Dim A(10)
Cells.ClearContents
min_A = A(1) ' для начала назначим минимум
max_A = A(1) ' и максимум
nn = 3 ' c этой строки выводим результаты в 1-й столбец
A(1) = -7
A(2) = 5
A(3) = 0
A(4) = 5
A(5) = -7
A(6) = 8
A(7) = 5
A(8) = 9
A(9) = 1
A(10) = 5
For ii = 1 To 10
Cells(1, ii) = A(ii) ' выводим массив в строку
If A(ii) < min_A Then ' а вдруг минимум ?
min_A = A(ii)
End If
If A(ii) > max_A Then ' а вдруг максимум
max_A = A(ii)
End If
Cells(ii + nn, 1) = A(ii) ' заполним данные повторений
Cells(ii + nn, 2) = 1
For kk = ii + 1 To 10
priz = False ' признак что это число мы ужеобрабатывали
For ll = 1 To ii - 1
If A(ii) = A(ll) Then
priz = True ' вот тут мы увидели повтор обработки
Exit For
End If
Next ll
If priz Then
Cells(ii + nn, 1) = ""
Cells(ii + nn, 2) = ""
Exit For
End If
If A(ii) = A(kk) Then
Cells(ii + nn, 2) = Cells(ii + nn, 2) + 1 ' вот тут наращиваем повторения
End If
Next kk
Next ii
End Sub

вот как выглядит результат работы макроса