Сформировать вектора х(4), значения элементов которого являются максимальные значения столбцов матрицы

Option Base 1 'нумерация с 1 (по умолчанию она с нуля)
 
Sub ВекторМаксимумов()
Const N = 4                 'количество строк (максимум 7)
Dim s(N), a(), i, j, max
max = -1.11111111111111E+16 ' (сильно отрицательное число)
 
s(1) = Array(-12, -10, -10) '1-я строка
s(2) = Array(1, 2, 4)       '2-я строка
s(3) = Array(8, 8, 16)      '3-я строка
s(4) = Array(32, 32, 32)    '4-я строка
's(5) = Array(64, 32, 0)     '5-я строка
's(6) = Array(3, 3, 3)       '6-я строка
's(7) = Array(111, 11, 1)    '7-я строка
 
ReDim a(1 To N, 1 To UBound(s(1))) 'матрица из N строк и 3 столбцов
ReDim x(N) 'вектор (одномерный массив) длины N
 
    For i = 1 To N
        Selection.TypeText vbCr
            For j = 1 To UBound(a, 2)
'            MsgBox "s(" & i & ")(" & j & ") = " & s(i)(j)
                a(i, j) = s(i)(j)   'присвоение значения элементу a(i, j)
                If max < a(i, j) Then max = a(i, j) 'максимум i-й строки
                Selection.TypeText a(i, j) & vbTab  'печать в Word
            Next
                x(i) = max 'i-й элемент вектора максимумов строк
                Selection.TypeText "максимум: " & x(i)  'печать максимума
    Next
End Sub

max=-1.79769313486231E+308 'намного сильнее отрицательное

Sub ПесньМаксимумов()
Const M = 3, N = 4 ' количество строк и столбцов
Dim s(M), i, j, max
    s(1) = Array(-12, -10, -10, 1E+16)                  '1-я строка
    s(2) = Array(1, 2, 4, 238)                          '2-я строка
    s(3) = Array(8, 8, 16, 239)                         '3-я строка
'    s(4) = Array(32, 32, 32, 555)                       '4-я строка (когда M = 4)
ReDim a(1 To M, 1 To N) 'матрица из M строк и N столбцов
ReDim x(1 To N) 'вектор (одномерный массив) из M элементов
 
    For i = 1 To M
            max = -1E+16 ' max изначально задано как число, меньшее всех a(i, j)
            For j = 1 To N
                a(i, j) = s(i)(j) 'создание матрицы a
                If max < a(i, j) Then max = a(i, j) 'максимум i-й строки
                Selection.TypeText a(i, j) & vbTab  'печать элемента a(i, j)
            Next
        Selection.TypeText "(row’s max: " & max & ")" & vbLf 'максимум строки i
    Next
 
    For j = 1 To UBound(a, 2) 'перебор СТОЛБЦОВ матрицы a (2 это её 2-е измерение)
        max = -1E+16            ' сильно отрицательное число
            For i = 1 To M
                If max < a(i, j) Then max = a(i, j) 'максимум j-го столбца
            Next
        x(j) = max              'j-й элемент вектора x, т. е. максимум столбца j
    Next
    
    For j = 1 To UBound(a, 2):  Selection.TypeText x(j) & vbTab: Next 'печать x
    Selection.TypeText "<максимумы по столбцам>" & vbCr
End Sub

Sub ЛавЛавМат()
    Const m = 1, N = 1  ' количество строк (m - натуральное) и столбцов (N максимум 4)
Dim s(1 To m), i, j, max
ReDim a(1 To m, 1 To N) ' матрица из M строк и N столбцов
ReDim x(1 To N)         ' вектор (одномерный массив) из N элементов
 
For i = 1 To m          ' заполнение строк матрицы случайными (здесь - целыми) числами
  s(i) = Array(Fix(18 * Rnd - 9), Fix(18 * Rnd - 9), Fix(18 * Rnd - 9), Fix(18 * Rnd - 9))            '1-я строка
Next
    With Selection
        For i = 1 To m
            max = s(i)(1)   ' здесь max изначально задано как 1-й элемент i-й строки
                For j = 1 To N
                    a(i, j) = s(i)(j) 'создание матрицы a
                    If max <= a(i, j) Then max = a(i, j): .Font.Bold = True 'максимум строки i
                    .TypeText a(i, j) & vbTab  'печать элемента a(i, j)
                    .Font.Bold = False          'сброс жирности
                Next
            .TypeText "(row’s max: " & max & ")" & vbLf 'максимум строки i
        Next
     
        For j = 1 To N          'перебор столбцов (вторых индексов) матрицы a
            max = s(1)(j)   ' здесь max изначально задано как 1-й элемент j-го столбца
                For i = 1 To m
                    If max < a(i, j) Then max = a(i, j) '(новый) максимум j-го столбца
                Next
            x(j) = max          'j-й элемент вектора x, т. е. максимум столбца j
        Next
        
    For j = 1 To UBound(a, 2):  .Font.Color = vbRed: .TypeText x(j) & vbTab: Next 'печать x
    .Font.Color = wdColorAutomatic: .TypeText "< максимум" & IIf(N > 1, "ы", "") & vbCr
    .HomeKey wdStory, True 'выделение
    End With
End Sub