エクセルに関しての質問です。

http://q.hatena.ne.jp/1153342543

こちらの質問を応用してできますでしょうか？

ちなみに 単語１００個は どこに用意されてますでしょうか？

<<前提条件>>

1.もとになる単語100個を選択しておく

2.コピー先の範囲が(A1:J10)であり、データは空である事

＊コマンドボタンに関数を割り当てるところは割愛します

考え方としては、乱数で生成された値を10行10列の値に変換し、そこから後ろに向かってコピー先でデータがまだ入ってないところを探して行き、あいていたらそこにデータをコピーする。

という方針で作りました。

	
Dim a As Range
	
Dim i As Integer
	
Dim j As Integer
	
Dim iRow As Integer
	
Dim iCol As Integer
	
	
Randomize (Now) '乱数のSeedを毎回変えるため
	
For Each a In Selection
	
　    i = Int(Rnd() * 100)
	
　　　'０－１００までの乱数を10行10列の値に変換するところ(コピー元が10行10列だから)
	
　    iRow = Int(i / 10) + 1
	
　    If iRow > 10 Then
	
　        iRow = 1
	
　    End If
	
　    iCol = Int(i Mod 10) + 1
	
　    For j = 0 To 99
	
　        If iCol + j > 10 Then   '列がJ列より外側をさしてたら先頭に戻す
	
　            iCol = -j + 1
	
　            iRow = iRow + 1
	
　            If iRow > 10 Then   '行が10列より外側を指していたら先頭にもどす
	
　                iRow = 1
	
　            End If
	
　        End If
	
　        If Worksheets(2).Cells(iRow, iCol + j).Value = "" Then
	
　            Worksheets(2).Cells(iRow, iCol + j).Value = a.Value
	
　            Exit For
	
　        End If
	
　    Next j
	
Next a
	

http://q.hatena.ne.jp/1154479102

■方式案

Excelの関数、randを使えば良いと思います。

randで作成したランダムな値を元に、１００個の単語を並び替え（ソート）すれば、単語の並びをランダムにできます。

■手順例

①セルA1に下記の式

=RAND()

を代入して下さい。0以上1未満の値が表示されるはずです。

②セルA2～A100にもセルA1と同じ式を代入して下さい。

その際、セルA1を選択し、フィルハンドルにより一気に代入すると便利です。

http://excimer.hp.infoseek.co.jp/HP-Excel/e-FillN.htm

③セルB1～B100に、対象の単語を貼り付けてください。

④セルA1～B100を、行Ａの値を基準に並べ替えてください。

すると、100個の単語がランダムに並び替えられます。

⑤最後に、A1～J10に単語を10ずつ切り取り配置します。

■課題

randは、