Option Base 1

Sub sup()
Range("A1:H100").Clear
Dim A() As Integer
Dim B() As Integer
Dim C() As Integer
Dim D() As Integer
Dim E() As Integer
Dim T() As Integer
Dim N As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer

N = InputBox("Введите количество столбцов")
ReDim A(N, N)
ReDim B(N, N)
ReDim C(N, N)
ReDim D(N, N)
ReDim E(N, N)
ReDim T(N, N)
Randomize Timer

Range("A1").Value = "(2*A*E)+T"
Range("A2").Value = "Матрица A"
For i = 1 To N
    For j = 1 To N
        If i <> j Then
            A(i, j) = 1
        Else
            A(i, j) = 0
        End If
    Next j
Next i
Range(Cells(3, 1), Cells(2 + N, N)) = A

Cells(3 + N, 1).Value = "Матрица T"
For i = 1 To N
    For j = 1 To N
        If i >= j Then
            T(i, j) = 0
        Else
            T(i, j) = Rnd * 10
        End If
    Next j
Next i
Range(Cells(4 + N, 1), Cells(3 + 2 * N, N)) = T

Cells(4 + 2 * N, 1).Value = "Матрица E"
For i = 1 To N
    For j = 1 To N
        E(i, j) = Rnd * 10
        If i <> j Then E(j, i) = C(i, j)
    Next j
Next i
Range(Cells(5 + 2 * N, 1), Cells(4 + 3 * N, N)) = E

Cells(5 + 3 * N, 1).Value = "C = A * E"
For i = 1 To N
    For j = 1 To N
        C(i, j) = 0
        For k = 1 To N
            C(i, j) = C(i, j) + A(i, k) * E(k, j)
        Next k
    Next j
Next i
Range(Cells(6 + 3 * N, 1), Cells(5 + 4 * N, N)) = C

Cells(6 + 4 * N, 1).Value = "B = 2 * C"
For i = 1 To N
    For j = 1 To N
        B(i, j) = 2 * C(i, j)
    Next j
Next i
Range(Cells(7 + 4 * N, 1), Cells(6 + 5 * N, N)) = B

Cells(7 + 5 * N, 1).Value = "D= B + T"
For i = 1 To N
    For j = 1 To N
        D(i, j) = B(i, j) + T(i, j)
    Next j
Next i
Range(Cells(8 + 5 * N, 1), Cells(7 + 6 * N, N)) = D

End Sub