Вот пример кода на VBA, который меняет минимальный и максимальный элементы в каждой строке матрицы:

Sub ChangeMinMax()
Dim matrix(1 To 5, 1 To 5) As Integer
Dim i As Integer, j As Integer
Dim minVal As Integer, maxVal As Integer
Dim minIndex As Integer, maxIndex As Integer
' Заполняем матрицу случайными значениями
Randomize
For i = 1 To 5
For j = 1 To 5
matrix(i, j) = Int((100 - 1 + 1) * Rnd + 1)
Next j
Next i
' Меняем минимальный и максимальный элементы в каждой строке
For i = 1 To 5
minVal = matrix(i, 1)
maxVal = matrix(i, 1)
minIndex = 1
maxIndex = 1
' Находим минимальный и максимальный элементы в текущей строке
For j = 2 To 5
If matrix(i, j) < minVal Then
minVal = matrix(i, j)
minIndex = j
End If
If matrix(i, j) > maxVal Then
maxVal = matrix(i, j)
maxIndex = j
End If
Next j
' Меняем местами минимальный и максимальный элементы
Dim temp As Integer
temp = matrix(i, minIndex)
matrix(i, minIndex) = matrix(i, maxIndex)
matrix(i, maxIndex) = temp
Next i
End Sub

Этот код сначала заполняет матрицу случайными значениями от 1 до 100, затем ищет минимальный и максимальный элементы в каждой строке и меняет их местами. Вы можете добавить этот код в модуль VBA в Excel и запустить его для выполнения.