Массивы. Одномерные и двумерные

Option Explicit
    
Sub Zadanie1()
Dim A(1 To 10, 1 To 10)
Dim B(1 To 10, 1 To 10)
Dim R, C
Dim MIN1, MIN7
Dim Nmin1, Nmin7
'заполняем
Randomize
For R = 1 To 10
    For C = 1 To 10
    A(R, C) = Int(90 * Rnd + 9)
    B(R, C) = A(R, C)
    Next C
Next R
'назначаем для начала значения равные первым элементам
MIN1 = A(1, 1)
Nmin1 = 1
 MIN7 = A(7, 1)
 Nmin7 = 1
'ищем в каждой строке миниумы и запоминаем значение и положение
For C = 1 To 10
If MIN1 > A(1, C) Then MIN1 = A(1, C): Nmin1 = C
If MIN7 > A(7, C) Then MIN7 = A(7, C): Nmin7 = C
Next C
'присваиваем
B(1, Nmin1) = MIN7
B(7, Nmin7) = MIN1
'показываем
Range(Cells(1, 1), Cells(10, 10)) = A
Range(Cells(1, 15), Cells(10, 24)) = B
End Sub

Sub Zadanie2()
Dim A(1 To 10, 1 To 10)
Dim B(1 To 10, 1 To 10)
Dim S(1 To 10)
Dim R, C
Dim MIN
'заполняем
Randomize
For R = 1 To 10
    For C = 1 To 10
    A(R, C) = Int(90 * Rnd + 9)
    B(R, C) = A(R, C)
    Next C
Next R
'меняем
For C = 1 To 10
B(6, C) = A(C, C)
B(C, C) = A(6, C)
Next C
'заполняем массив миниумами
For R = 1 To 10
MIN = A(R, 1)
    For C = 1 To 10
      If MIN > A(R, C) Then MIN = A(R, C)
    Next C
    S(R) = MIN
Next R
 
'показываем
Range(Cells(1, 1), Cells(10, 10)) = A
Range(Cells(1, 15), Cells(10, 24)) = B
Range(Cells(13, 1), Cells(13, 10)) = S