Как это сделать?
Sub max_el()
Dim i, j, max As Integer
' Cells in A
i = 11
j = 1
max = 0
While (j <= i)
If (max < Cells(j, 1)) Then max = Cells(j, 1)
j = j + 1
Wend
Cells(14, 1) = max
' Cells in B
i = 11
j = 1
While (j <= i)
If (max = Cells(j, 2)) Then Cells(14, 2) = "Yeap"
j = j + 1
Wend
If Cells(14, 2) <> "Yeap" Then Cells(14, 2) = "Nope"
End Sub