Excelで、抽選する仕組みを作りたい

例えば応募者5人が１から５の札を持っていて、3人が当選する仕組みを作る場合、次のようなやり方を考えました。
　　　　 A B
１　　　=rand() =rank(A1,$A$1:$A$5)
２ =rand() =rank(A2,$A$1:$A$5)
３ =rand() =rank(A3,$A$1:$A$5)
４ =rand() =rank(A4,$A$1:$A$5)
５ =rand() =rank(A5,$A$1:$A$5)
それで、Ｂ列の上から３人が当選というやり方です。

問題は２つあります。
１つめは、応募数が、２００人であったり、１６０人であったり、その都度違うということ。
（当選者数については、上から当選者数だけ選ぶので気にしません。）
２つめは、ぼくが使うんじゃなくて、Ｅｘｃｅｌに数式を入れたりすることができない人が使うということ。

そこで、使う人が、あるセルに応募者数を入れると、１から応募者数までの数字がランダムに並ぶようにしたいのです。

上記のやり方が、回りくどくて、もっといいやり方があるなら、そうしていただいてかまいません。
上記のやり方にこだわってはいません。

よろしくお願いします。

質問者からの補足コメント

• A1セルの =rand() が右にずれてしまいました。
  A列とＢ列の間がくっついてしまいました。

    補足日時：2018/07/17 21:22

No.1 ベストアンサー 回答者： mike_g 回答日時： 2018/07/17 22:27

１．式 =IF(ROW()>D$2,"",RAND()) を入力したセル A1 を下方に(セル A200 まで)ズズーッとオートフィル

２．式 =IF(ROW()>3,"",RANK.EQ(A1,A$1:A$200)) を入力したセル B1 を下２行にオートフィル
３．セル D2 に応募人数(最大値は 200)を入力

この回答へのお礼

ありがとうございました。助かりました。
ここ何年かＥｘｃｅｌで数式を入力することがなかったもので、
ＩＦ関数を使えばよいことをすっかり忘れていました。
それと、ＲＡＮＫ．ＥＱという関数があること、知りませんでした。
とても勉強になりました。

お礼日時：2018/07/18 07:57

No.2 回答者： mike_g 回答日時： 2018/07/17 22:36

[No.1]を少し補正しておきます。

ステップ２において、
「セル B1 を下２行にオートフィル」としたのは、
「セル B1 を好きなだけ下方に(最大セル B200 まで)オートフィル」に変更

当選人数を５に変更したければ、式中の「ROW()>3」を「ROW()>5」に変更するだけ