Question

Від кожного елемента нижнього трикутника матриці Х(n,n) відняти min елемент верхнього трикутника(VBA excel)

Answer 1

Sub Subtract_min_upper_triangle()

   Dim X(1 To n, 1 To n) As Double

   Dim min_upper As Double

   min_upper = Application.WorksheetFunction.Min(X)

   For i = 1 To n

       For j = 1 To n

           If i > j Then

               X(i, j) = X(i, j) - min_upper

           End If

       Next j

   Next i

End Sub