エクセルで、乱数の関数 同じ数が無いように

質問

乱数を発生させる関数で、ＲＡＮＤ関数は、小数点（０～１の間）で、ＲＡＮＤＢＥＴＷＥＥＮ関数は整数で出るとのことですが、ＲＡＮＤＢＥＴＷＥＥＮ関数は同じ数字がいくつか重複して出ます。整数で同じ数が出ないようにする関数はないでしょうか？

回答No.2

keithin · ベストアンサー

そういう関数はありませんが，そういう数字を簡単に並べる方法は沢山あります。

たとえば１から１０をランダムに並べるなら。

方法１
Ａ１：Ａ１０に　=RAND()　を記入しておく
Ｂ１に　=RANK(A1,A:A)　と記入し，Ｂ１０までコピーする。
Ｆ９を押すたびに何度でも順序が入れ替わる。

方法２
Ａ１：Ａ１０に　=RAND()　を記入しておく
Ｂ１：Ｂ１０に　１から１０までの数字を記入しておく
Ａ列昇順で全体を並べ替える。何度でも。

方法３：
エクセルのオプションで反復計算のチェックを入れ，回数を10000回ほどにしておく
Ａ１に　=IF(AND(A1<>0,COUNTIF($A$1:$A$10,A1)=1),A1,RANDBETWEEN(1,10))　と記入し，
Ａ１０までコピー貼り付ける。

お礼

返事が遅くなって申し訳ありません。乱数を発生させて、重複しない数字を入力する方法をいくつか紹介していただき、ありがとうございました。
早速試してみたところ、どれも簡単にうまくできるので助かりました。
今後とも、よろしくお願いします。

回答No.4

KURUMITO

例えばA１セルからA１１セルに間に１０から２０までの数値を重複することなく表示させるとしたら、例えばC１セルに =RAND() と入力してC１１セルまでオートフィルドラッグコピーします。これは１０から２０までの数値ですので１１行を必要とします。
次にA１セルには次の式を入力してA１１セルまで下方にオートフィルドラッグコピーします。

=RANK(C1,C$1:C$11)+9

9の数字はRANK関数では１から１１までの数値が得られますので１０から２０までの数値にするためにプラスしています。
勿論、A１セルからA１１セルに１から１１までの数値を表示させるのでしたら＋９は必要ありません。

お礼

返事が遅くなって申し訳ありません。乱数を発生させて、重複しない数字を入力する方法を紹介していただき、ありがとうございました。
早速試してみたところ、簡単にうまくできるので助かりました。
＋９の部分も教えていただいて、感謝しています。
今後とも、よろしくお願いします。

回答No.3

acha51

出にくくするには下記の式でできます。RANDと現時間を乗算して適当な位置の数字を
取り出すというものです。
ここで最後の）前の１は1ケタです、必要な桁数を入れます。
=MID(RAND()*NOW(),3,1)

お礼

返事が遅くなって申し訳ありません。乱数を発生させて、重複しない数字を入力する方法を紹介していただき、ありがとうございました。
早速試してみたところ、簡単にうまくできるので助かりました。
今後とも、よろしくお願いします。

回答No.1

noname#204879

》 整数で同じ数が出ないようにする…

その「整数」の範囲を示してください、０や負数もありかどうかも含めて。

お礼

返事が遅くなって申し訳ありません。回答をよせていただきありがとうございました。「整数」の範囲は、この時は１～１００くらいまでのイメージで質問しました。説明不足ですみません。その後、１～の範囲では教えていただきました。もし、０やマイナスの範囲まで広げるやり方をご存じでしたら、（もしご都合がよければで結構です）教えてください。
今後とも、よろしくお願いします。