' Транспонирование.

Public Sub TranspMatrix()
    Dim avarMatrix() As Variant
    Dim avarMatrixTransp() As Variant
    Dim intI As Integer
    Dim intJ As Integer
    
    ReDim avarMatrix( 1  To  3 ,  1  To  2 )
    
    Randomize
    
    Debug.Print "Исходная матрица: "
    
    For intI = LBound(avarMatrix,  1 ) To UBound(avarMatrix,  1 )
        For intJ = LBound(avarMatrix,  2 ) To UBound(avarMatrix,  2 )
            avarMatrix(intI, intJ) = Int(Rnd *  10 ) +  1 
            Debug.Print avarMatrix(intI, intJ);
        Next intJ
        Debug.Print ""
    Next intI
    
    Debug.Print "=========================="
        
    ReDim avarMatrixTransp( 1  To UBound(avarMatrix,  2 ),  1  To _
      UBound(avarMatrix,  1 ))
    
    Debug.Print "Транспонированная матрица: "
    
    For intJ = LBound(avarMatrix,  2 ) To UBound(avarMatrix,  2 )
        For intI = LBound(avarMatrix,  1 ) To UBound(avarMatrix,  1 )
            avarMatrixTransp(intJ, intI) = avarMatrix(intI, intJ)
            Debug.Print avarMatrixTransp(intJ, intI);
        Next intI
        Debug.Print ""
    Next intJ
End Sub

' Суммирование.

Public Sub SummMatrix()
    Dim avarMatrix1() As Variant
    Dim avarMatrix2() As Variant
    Dim avarMatrixSumm() As Variant
    Dim intI As Integer
    Dim intJ As Integer

    ReDim avarMatrix1( 1  To  3 ,  1  To  2 )
    ReDim avarMatrix2( 1  To  3 ,  1  To  2 )
    ReDim avarMatrixSumm( 1  To  3 ,  1  To  2 )
    
    Randomize

    Debug.Print "Матрица № 1: "
    
    For intI = LBound(avarMatrix1,  1 ) To UBound(avarMatrix1,  1 )
        For intJ = LBound(avarMatrix1,  2 ) To UBound(avarMatrix1,  2 )
            avarMatrix1(intI, intJ) = Int(Rnd *  10 ) +  1 
            Debug.Print avarMatrix1(intI, intJ);
        Next intJ
        Debug.Print ""
    Next intI
    
    Debug.Print "=========================="
    Debug.Print "Матрица № 2: "
    
    For intI = LBound(avarMatrix2,  1 ) To UBound(avarMatrix2,  1 )
        For intJ = LBound(avarMatrix2,  2 ) To UBound(avarMatrix2,  2 )
            avarMatrix2(intI, intJ) = Int(Rnd *  10 ) +  1 
            Debug.Print avarMatrix2(intI, intJ);
        Next intJ
        Debug.Print ""
    Next intI
    
    Debug.Print "=========================="
    Debug.Print "Суммированная матрица: "
    
    For intI = LBound(avarMatrixSumm,  1 ) To UBound(avarMatrixSumm,  1 )
        For intJ = LBound(avarMatrixSumm,  2 ) To UBound(avarMatrixSumm,  2 )
            avarMatrixSumm(intI, intJ) = avarMatrix1(intI, intJ) + _
              avarMatrix2(intI, intJ)
            Debug.Print avarMatrixSumm(intI, intJ);
        Next intJ
         Debug.Print ""
    Next intI
End Sub

Const min1 As Integer =  1 \nConst min2 As Integer =  3 \nConst max1 As Integer =  3 \nConst max2 As Integer =  7 \n\nSub Test()\n    Dim intA(min1 To max1, min2 To max2) As Integer\n    Dim intB(min1 To max1, min2 To max2) As Integer\n    Dim intC(min1 To max1, min2 To max2) As Integer\n    Dim intFor1 As Integer\n    Dim intFor2 As Integer\n\n    For intFor1 = min1 To max1\n        For intFor2 = min2 To max2\n            intA(intFor1, intFor2) = intFor1\n            intB(intFor1, intFor2) = -intFor1\n            intC(intFor1, intFor2) = -intFor1\n        Next intFor2\n    Next intFor1\n    \n    PrintMatr intA\n    PrintMatr intB\n    PrintMatr intC\n    \n    SumMatrix intA, intB, intC\n    \n    TranspMatrix intA\n    TranspMatrix intB\n    TranspMatrix intC\nEnd Sub\n\nSub SumMatrix( _\n  intMx1() As Integer, _\n  intMx2() As Integer, _\n  intMx3() As Integer)\n    Dim intI As Integer\n    Dim intJ As Integer\n    Dim aintSummMatrix() As Integer\n    \n    ReDim aintSummMatrix(LBound(intMx1,  1 ) To UBound(intMx1,  1 ), _\n      LBound(intMx1,  2 ) To UBound(intMx1,  2 ))\n    \n    Debug.Print "Суммированная матрица:"\n    Debug.Print "=========================="\n    \n    For intI = LBound(aintSummMatrix,  1 ) To UBound(aintSummMatrix,  1 )\n        For intJ = LBound(aintSummMatrix,  2 ) To UBound(aintSummMatrix,  2 )\n            aintSummMatrix(intI, intJ) = intMx1(intI, intJ) + _\n              intMx2(intI, intJ) + intMx3(intI, intJ)\n            Debug.Print aintSummMatrix(intI, intJ);\n        Next intJ\n        Debug.Print\n    Next intI\nEnd Sub\n\nSub TranspMatrix( _\n  intMx() As Integer)\n    Dim intI As Integer\n    Dim intJ As Integer\n    Dim aintTranspMatrix() As Integer\n    \n    ReDim aintTranspMatrix( 1  To UBound(intMx,  2 ),  1  To _\n      UBound(intMx,  1 ))\n      \n    Debug.Print "Транспонированная матрица:"\n    Debug.Print "=========================="\n      \n    For intJ = LBound(intMx,  2 ) To UBound(intMx,  2 )\n        For intI = LBound(intMx,  1 ) To UBound(intMx,  1 )\n            aintTranspMatrix(intJ, intI) = intMx(intI, intJ)\n            Debug.Print aintTranspMatrix(intJ, intI);\n        Next intI\n        Debug.Print\n    Next intJ\nEnd Sub\n  \nSub PrintMatr( _\n  intA() As Integer)\n    Dim intI As Integer\n    Dim intJ As Integer\n    \n    Debug.Print "Печать матрицы:"\n    Debug.Print "=========================="\n    \n    For intI = LBound(intA,  1 ) To UBound(intA,  1 )\n        For intJ = LBound(intA,  2 ) To UBound(intA,  2 )\n            Debug.Print intA(intI, intJ);\n        Next intJ\n        Debug.Print\n    Next intI\nEnd Sub