質問: 表(リスト)からランダムに抽出するには? excelで次のような表を作りました。(例として書きます) 1. みかん 2. バナナ 3. もも 4. なし 5. 栗 ・・・(以下同様) と続いていきます。 今回、その表から、ランダムにデータを抽出し、別のセルに書き出したいのですがどうやっていいのかわかりません。(理想図を下に書きます。) 2. バナナ 5. 栗 1. みかん ・・・・・(以下同様) このようにして、今ある表から、ランダムに並び替えた、 『新たな表』 を作りたいのです。 どのように関数(rand関数?)を設定したらいいのかよくわかりません。 教えてください。お願いします。 ちなみにoffice2000です。
回答: #7様 > 数回実験してみた処たった5行のデータなのに重複が生じた そうですか、それは驚きです。 素人なのでこんな方法で良いか解りませんが、自分なりに下記のように検証した 限りではmsgが出る事はありませんでした。 先の方法で200件のデータを作成 c1:c200に =countif($b$1:$b$200,b1) d1 に =sum(c1:c200) e1 に 200 下記を10回試した。 sub test() randomize for i = 1 to 10000 application.calculate if range("d1").value <> range("e1") then msgbox "重複" exit sub end if next i end sub #6さんのマクロ以外にも、#8さん、#9さんと回答が出揃ってますのでこの辺にしておきます。 回答ありがとうございました。