Чтобы взять то, что вы сделали, и повернуть вспять, создайте пользовательскую базовую функцию:
Function REVERSE_ARRAY(aIn)
If NOT IsArray(aIn) Then
REVERSE_ARRAY = "Err:520"
Exit Function
End If
Dim aOut(LBound(aIn,1) To UBound(aIn,1), _
LBound(aIn,2) To UBound(aIn,2)) As Single
Dim i As Integer, reverse_i As Integer
For i = LBound(aIn,1) to UBound(aIn,1)
reverse_i = LBound(aIn,1) + UBound(aIn,1) - i
aOut(reverse_i, 1) = aIn(i, 1)
Next i
REVERSE_ARRAY = aOut()
End Function
Измените функцию массива так, чтобы она гласила:
17-MATCH(MIN(IF(A1:A16>0,A1:A16)),REVERSE_ARRAY(A1:A16),0)
В моем тестировании этот подход и ответ @ AFH дали одинаковые результаты.