エクセルのRANK関数の応用

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

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

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

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

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

No.1 ベストアンサー 回答者： hige_082 回答日時： 2010/01/22 22:28

マクロとのことでしたが

前回が関数でとのことでしたので
関数で作ってみました
関数だとこんなになってしまった
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))))

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

この回答へのお礼

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

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

お礼日時：2010/01/24 23:50