до работать нужно код vba

[rogge]

Дана матрица размера M × N. В каждом столбце матрицы найти
максимальный элемент.

Sub smth()
    Dim a() As Integer
    Dim max, n, m, i, j As Integer

      
      
n = CInt(InputBox("введите число n"))
m = CInt(InputBox("введите число M"))
ReDim a(1 To 10, 1 To 10) As Integer
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("A(" & i & " , " & j & " ) ")
Next j
Next i

For j = 1 To n

max = a(1, j)
For i = 2 To m
If a(i, j) > max Then
max = a(i, j)
End If
  
Next i
Next j
MsgBox max
End Sub

Сделал, но выводит один максимум, помогите

[Stilet]

Sub smth()
    Dim a() As Integer
    Dim max, n, m, i, j As Integer

      
      
n = CInt(InputBox("введите число n"))
m = CInt(InputBox("введите число M"))
ReDim a(1 To 10, 1 To 11) As Integer

For i = 1 To m
 For j = 1 To n
  a(i, j) = InputBox("A(" & i & " , " & j & " ) ")
  If (i=1) or (a(i,j)>a(i,11)) Then
   a(i,11)=a(i,j)
  End If
 Next j
Next i

For j = 1 To n
 MsgBox a(j,11)
Next j
End Sub

Годится?