VBA - Рейтинг от наименьшего к низкому путем подсчета отрицательных значений?

Question

Как ранжировать от высшего к низшему путем подсчета отрицательных значений?

Я бы, вероятно, использовал что-то вроде этого, следуя если логика elseif, но я могуКажется, не могу понять

Set CountRng = range("B1:E1") 
CountApple = Application.WorksheetFunction.CountIf(CountRng, "<0")
CountOrange ..
CountBanana ..

If CountApple > CountOrange then or endif...

Может быть, есть лучший способ сделать это?

Answer 1

Вы можете использовать эту формулу:

=SUMPRODUCT(--(COUNTIF(OFFSET($B$1,(ROW($1:$3)-1),0,1,4),"<0")>COUNTIF(B1:E1,"<0")))+1