別のシートから、数字をランダムに選択するには

質問

従業員の役割分担表を1週間2週間分の表を手動で作成しています。
沢山の職場だと、手動での選択作業に時間が掛かり過ぎてしまいます。
エクセルの関数を使用して出来るものか、それとも他の方法なのか、乱数の関数では、従業員の識別No.が出る保証が無いので、他の方法が無いものか試行錯誤しています。
従業員には、識別No.が決まっていて、その識別No.を使って、ランダムに2人や5人等選択して、必要期間分の役割分担表を作成出来ればと思います。

作業の流れとして

シート1に、従業員の識別No.を入れておきます(職場によって人数は異なります)

123456
236541
796854
102365
100003
300003
999997
651234
300215

例>シート2に、選択結果を表示(1日分で、3人の場合下記の様に表示出来ればと思います)

123456　236541　796854

例>シート2に、選択結果を表示(10日分で、3人の場合下記の様に表示出来ればと思います)

123456 236541 796854
102365 100003 300003
999997 651234 300215
236541 796854 102365
236541 796854 102365
123456 236541 102365
102365 236541 796854
651234 300215 796854
300003 999997 123456
300215 236541 100003

この様な結果を出す事が可能でしょうか？

ご教授お願いします。

宜しくお願いします。

回答No.1

aokii · ベストアンサー

K1:K９にデータがあり、M～U列に３人づつ取り出すとします。

A1:J9に =RAND()　と入れます。
L1:U3に =VLOOKUP(SMALL(A:A,ROW()),A:$K,COLUMN($K1)-COLUMN(A1)+1,FALSE)　

これで重複の無い3個が横に１０組取り出せます。L1:U3の縦横を逆にすればご希望の表示になります。

ちなみに、ランダムに選択では不公平だと思いますので、できれば輪番制をお勧めします。

お礼

無事解決出来ました。
縦横を逆にしたら、希望通りの配列になりました。

回答No.4

MarcoRossiItaly

＞……乱数の関数では、従業員の識別No.が出る保証が無いので、他の方法が無いものか……

RAND 関数（乱数の関数）でいきなりコードを算出するのはなく、行番号を算出します。つまり RAND を使います。
TRUE 型の VLOOKUP 関数などを用いれば、いきなりコードを抽出することはできるのですが、一定の確率で、抽出したデータ同士に重複が発生してしまいます。そのため、いったん重複のない行番号を作業列に求めます。

C1　=1+int(rand()*(rows(シート1!$A$1:$A$9)-2))
D1　=c1+1+int(rand()*(rows(シート1!$A$1:$A$9)-c1-1))
F1　=index(シート1!$A$1:$A$9,c1)

これを入力したら、D1 セルを E1 に、F1 を G1:H1 にそれぞれコピペ。後は C1:H1 を下方向に好きな行数だけオートフィルしてください。

なおランダムでは、等確率でコードを抽出しますが、抽出結果には偏り（個数の不揃い）が発生します。ですから No.1 さんのおっしゃるように、輪番などにしないなら、公平でないとも考えることができるシステムをわざわざ採用する理由の説明を求められる可能性がありますね。

まあ「公平、平等」という概念自体が、物の見方ひとつで結果が大きく変わってしまう、哲学にも深く関るような、非常に判断の難しい問題でもありますが。輪番なら平等（である気がする）と受け止められやすいというのは、人間という生き物の性質のようです。人間には機械と違って、感情がありますからね。

また、RAND は再計算するたびに異なる値を算出するので、どの瞬間値を確定値にするのかについて、何らかの基準をあらかじめ用意する必要があります。なお、ある瞬間値を固定して保存するには、瞬間値の表示されているセルを他のセルなどに値複写します。

回答No.3

KURUMITO

シート1のＡ2セルから下方に識別Ｎｏが入力されているとします。
その識別Ｎｏをランダムに並び替えるために例えばＣ2セルには次の式を入力して下方にドラッグコピーします。

=IF(A2="","",RAND())

並び替えた識別番号をＤ列に表示させるためにＤ2セルには次の式を入力して下方にドラッグコピーします。

=IF(A2="","",INDEX(A:A,RANK(C2,C:C)+1))

その後にお望みのデータをシート2に表示させるとしてＡ2セルには次の式を入力してＣ2セルまで横方向にドラッグコピーしたのちに必要な日数分だけ下方にドラッグコピーします。

=INDEX(Sheet1!$D:$D,MOD((ROW(A1)-1)*3+COLUMN(A1)-1,COUNT(Sheet1!$C:$C))+2)

1日を5人とする場合には上の式で*3を*5にすればよいですね。

お礼

無事解決出来ました。
人数対応も数式で変更して確認しましたが、表示出来ました。
ありがとうございます。

回答No.2

keithin

シート１のＡ２以下に社員番号があります

シート２の
Ｚ２に
=IF(Sheet1!A2="","",RAND())
と記入、社員の人数をカバーできるだけ沢山、下向けにコピーして埋めておきます

シート２の
Ａ２に
=INDEX(Sheet1!$A:$A,MATCH(SMALL($Z:$Z,ROW(A1)*3+COLUMN(A1)-3),$Z:$Z,0))
と記入、右にあと２つと下向けにコピーします。

お礼

無事解決出来ました。
有難う御座います。