エクセルのRANK関数の応用

質問

エクセルのRANK関数を使って、順位を表示させたいのですが、
空白セルと、"０"の値が１位にカウントされてしまいます。

これを除外して表示させる方法は無いようなので、

これをＶＢＡで作る事は出来ますでしょうか？

"０"と空白セルは除外し、数値の小さい順に表示させたいのです。

以上よろしくお願いします。

回答No.1

hige_082 · ベストアンサー

マクロとのことでしたが
前回が関数でとのことでしたので
関数で作ってみました
関数だとこんなになってしまった
A1～A10で試してみて

=IF(A1="","",IF(COUNT($A$1:$A$10)-COUNTIF($A$1:$A$10,0)<RANK(A1,$A$1:$A$10),"",COUNT($A$1:$A$10)-COUNTIF($A$1:$A$10,0)-RANK(A1,$A$1:$A$10)+IF(COUNTIF($A$1:$A$10,A1)=1,1,2-COUNTIF($A$1:$A$10,A1))))

うまく行かないパターンがあるかも

お礼

ばっちり！うまく行きました。
いろいろ、お手数をおかけしました。

ありがとうございました。