Дана матрица размером N*M(т.е.двумерный массив...)

Sub P1()
'Если речь идёт о главной диагонали, то речь идёт о
'квадратной матрице, т.к. главная диагональ есть только в квадратной матрице.
'Квадратная матрица - это матрица, в которой одинаковое количество строк
'и столбцов.
Dim A(1 To 5, 1 To 5) As Double
Dim i As Long, j As Long
Dim СуммаДляСреднего As Double, СуммаДляСтрок As Long
Dim Кол As Long
'Заполняем матрицу данными из Excel (чтобы было с чем работать).
For i = 1 To 5 Step 1
    For j = 1 To 5 Step 1
        A(i, j) = Cells(i, j).Value
    Next j
Next i
'Анализируем элементы массива над главной диагональю.
For i = 1 To 4 Step 1
    For j = 5 To i + 1 Step -1
        If A(i, j) < 0 Then
            СуммаДляСреднего = СуммаДляСреднего + A(i, j)
            СуммаДляСтрок = СуммаДляСтрок + i
            Кол = Кол + 1
        End If
    Next j
Next i
'Вывод результатов в Excel.
'Среднее арифметическое.
Cells(7, 1).Value = СуммаДляСреднего / Кол
'Сумма строк.
Cells(7, 3).Value = СуммаДляСтрок
End Sub

Sub P2()
Dim i As Long, j As Long
'Чтобы лучше представлять, как обрабатывать область над
'главной диагональю, сделайте следующее:
'Заполните на листе Excel диапазон ячеек A1:E5 числом 1.
'Затем сделайте так, чтобы было одновременно видно и
'Excel и VBA. Поставьте курсор на код и нажимайте клавишу F8.
'Я сам так подбираю код - чтобы было видно наглядно.
For i = 1 To 4 Step 1
    For j = 5 To i + 1 Step -1
        Cells(i, j).Value = ""
    Next j
Next i
End Sub