抽選会の当選番号を決めるのに、入場者は５００人、賞品は３６個として、エ

質問

抽選会の当選番号を決めるのに、入場者は５００人、賞品は３６個として、エクセルで

A1:F6に

=RAND()*(500＋1)－1

を入れたところ、何度かやっているうちに、同じ数字が出てきました。
０から１の間の小数を四捨五入しているらしいので当然ですが、同じ番号が有っては都合が悪いので、同じ番号が出たら文字の色を変えるとか、セルの色を変えるとかして警告したいのですが、簡単な方法があれば教えてください。

回答No.1

noname#204879 · ベストアンサー

添付図参照

F2: =RAND()
G2: =RANK(F2,$F$2:$F$501)
A2: =SMALL($G$2:$G$37,(ROW(A1)-1)*4+COLUMN(A1))

回答No.2

KURUMITO

お考えの方法では表示された数値を整数に変換しているのでしょう。その場合には当然同じ数値となって表示されますね。本来ＲＡＮＤ関数で求められる数値で同じ数値が得られることは皆無といっても良いでしょう。
つぎのようにすればよいでしょう。
初めに作業列としてＨ１セルには　=RAND()　と入力し、Ｉ1セルには　=RANK(H1,H$1:H$500)　を入力してそれぞれのセルの式をＨ５００、Ｉ５００セルまでオートフィルドラッグします。
これによってＲＡＮＤ関数で得られた数値にランクが付けられ1から500までの数値がＩ列にランダムに表示されます。
当選番号を決めるにあたって、Ｉ列で1から36までの数値のある行を表示させることにすればよいでしょう。
Ａ1セルには次の式を入力してＦ1セルまでオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(OR(ROW(A1)>6,COLUMN(A1)>6),"",MATCH((ROW(A1)-1)*6+COLUMN(A1),$I:$I,0))

Ｆ9キーを押すことで抽選を繰り返すこともできますね。

お礼

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