リストのデータを重複なしでランダムに抽出する

質問

シート１に下記のように14種類の名前リストがあります

　　　　A
1　　　Ａ
2　　　Ｂ
3　　　Ｃ
4　　　Ｄ
5　　　Ｅ
6　　　Ｆ
7　　　Ｇ
8　　　Ｈ
9　　　Ｉ
10　　Ｊ　
11　　Ｋ
12　　Ｌ
13　　Ｍ
14　　Ｎ

上記の名前を下記のように別シートの数列おきの列（行は同一）に重複なしに行毎にランダムに抽出する事が関数で出来るでしょうか？（エクセルは２０１０です）
ちなみに下記は一列おきのセルに抽出した例です

　　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　Ｉ　Ｊ　Ｋ　Ｌ　Ｍ　Ｎ　Ｏ　Ｐ　Ｑ　Ｒ　Ｓ　Ｔ　Ｕ　Ｖ　Ｗ　Ｘ　Ｙ　Ｚ　ＡＡ
１　Ｄ　　　Ｌ　　　Ｋ　　　 Ｉ　　　 Ａ　　 Ｍ　　　Ｎ　　　 Ｂ　　　Ｈ　　　Ｊ　　　 Ｃ　　　 Ｆ　　　 Ｅ　　　Ｇ
２　Ｋ　　　Ｊ　　　Ｍ　　　Ｈ　　　 Ｉ　　　Ｇ　　　Ｆ　　　 Ｅ　　　Ｄ　　　 Ａ　　　 Ｂ　　　Ｎ　　　Ｃ　　　 Ｌ
３　Ｅ　　　Ｊ　　　Ａ　　　 Ｌ　　　Ｂ　　 Ｍ　　　 Ｋ　　　Ｃ　　　Ｎ　　　 Ｇ　　　 Ｆ　　　Ｄ　　　 Ｈ　　　Ｉ

どなたか教えていただける方がおりましたらよろしくお願いします。

という質問をさせていただき、mike gさんに下記のような回答をいただきました

１．Sheet1 の例えばセル C1 に式 =RAND() を入力して、此れを右に２列（注1参照）ドラッグ＆ペースト
２．範囲 C1:E1 を下方にズズーッと（14行目まで）ドラッグ＆ペースト
以下は別シート（Sheet2）における操作です。
３．セル A1 に次式を入力して、此れを右方にズズーッと（セル AA1 まで）ドラッグ＆ペースト（注2参照）
　　=IF(MOD(COLUMN(),2)=1,INDEX(Sheet1!$A$1:$A$14,MATCH(SMALL(OFFSET(Sheet1!$C$1,,ROW()-1,14,),CEILING(COLUMN()/2,1)),OFFSET(Sheet1!$C$1,,ROW()-1,14,),0)),"")
４．１行目全体を下方にズズーッと（３行目まで）ドラッグ＆ペースト

注1：「右に２列」は別シートの行数が３行の場合で、４行（５行）の場合は「右に３列（４列）」に読み替える。
注2：式中の 2 は「一列おき」の場合で、二列（三列）おきの場合は 2 を 3(4) に書き替える。

これで完璧に出来たのですが
実際にはSheet2のセルH6から15列おきに抽出したいのです。
15列おきは出来たのですが、セルH6から抽出を始めるにはどの部分を変更すれば良いのでしょうか？
どなたか教えて頂ける方がおりましたらよろしくお願いします。

回答No.2

noname#204879 · ベストアンサー

H6: =IF(MOD(COLUMN(A1),16)=1,INDEX(Sheet1!$A$1:$A$14,MATCH(SMALL(OFFSET(Sheet1!$C$1,,ROW(A1)-1,14,),CEILING(COLUMN(A1)/16,1)),OFFSET(Sheet1!$C$1,,ROW(A1)-1,14,),0)),"")

お礼

たびたびお世話になりありがとうございます。

15が16でしたが完璧に出来ました。

少しずつ理解できるようになりました。

回答No.1

某HN クロメート(Chromate)（@CoalTar）

そのものずばりではないですが、たぶん、ヒントになる回答。
B1セル =RAND()
C1セル =INDEX($A$1:$A$14,RANK(B1,B$1:B$14))
B1:C1セルを下へオートフィル
そのまま右へオートフィル(欲しい行数＊2)
---- * ---- * ---- * ---- * ---- * ----
C17セル 1 下へ連番
D16セル 1 右へ 飛び飛びで連番。

D17セル =IF(D$16="","",INDEX($B$1:$I$14,D$16,$C17*2))
右へ下へオートフィル

お礼

ありがとうございます。

参考になりました。