Option Explicit
Public res() As Variant

Sub Main()

PopupRandomly  1000 ,  10 
MsgBox MapMaximum(res)
Dim q
On Error Resume Next
q = MapMatchByTwo(res, MapMaximum(res))
If Err Then
Err.Clear
End If
On Error GoTo  0 
If Not IsNull(q) Then
MsgBox "Equivalent two elements: " & q( 1 ) & " was found at row: " & q( 0 )
Else
MsgBox "No matches found"
End If

End Sub

Public Function Maximum(ar As Variant) As Variant

    Dim i As Integer, maxi As Variant
    maxi = Null
    For i =  0  To UBound(ar)
        If IsNull(maxi) Then
            maxi = ar(i)
        ElseIf Not IsNull(ar(i)) Then
            If maxi < ar(i) Then
                maxi = ar(i)
            End If
        End If
    Next i
    Maximum = maxi
    
End Function
' for debug only:
'Public Sub TestOnMaxValue(ar As Variant)
'
'Dim maxi As Variant
'maxi = Maximum(ar)
'Debug.Print "Maximal value is: " & maxi
'
'End Sub

Public Sub PopupRandomly(m As Long, n As Long)
Dim i As Long, j As Long
ReDim res( 0  To m,  0  To n)
Randomize
For i =  0  To m
For j =  0  To n
res(i, j) = Int(( 26  * Rnd) +  1 )
Next
Next
End Sub


Private Function MapMaximum(ByVal v As Variant) As Variant
If IsNull(UBound(v,  2 )) Then Exit Function
Dim a As Long, i As Long, j As Long
ReDim out( 0  To UBound(v,  1 )) As Variant
For i =  0  To UBound(v,  1 )
ReDim tmp(UBound(v,  2 )) As Variant
For j =  0  To UBound(v,  2 )
tmp(j) = v(i, j)
Next
out(a) = Maximum(tmp)
a = a +  1 
Next
MapMaximum = Maximum(out)

End Function
Private Function MatchByTwo(ar As Variant, match As Variant) As Boolean
Dim gotcha As Boolean
gotcha = False
Dim ret( 1 ) As Variant
Dim maxi
maxi = Maximum(ar)
If maxi <> match Then
MatchByTwo = False
Exit Function
End If
Dim i As Long, ct As Long
For i =  0  To UBound(ar)
If ar(i) = maxi Then
ct = ct +  1 
End If
Next
If ct =  2  Then MatchByTwo = True

End Function

Private Function MapMatchByTwo(ByVal v As Variant, match As Variant) As Variant
If IsNull(UBound(v,  2 )) Then Exit Function
Dim a As Long, i As Long, j As Long
ReDim out( 0  To UBound(v,  1 )) As Variant
For i =  0  To UBound(v,  1 )
ReDim tmp(UBound(v,  2 )) As Variant
For j =  0  To UBound(v,  2 )
tmp(j) = v(i, j)
Next
If MatchByTwo(tmp, match) Then
Dim ret( 1 )
ret( 0 ) = i: ret( 1 ) = match
MapMatchByTwo = ret
Exit For
Else: MapMatchByTwo = Null
End If
Next

End Function

Ни пуха