１〜５０までの数をランダムに発生させる。
Sub シャッフル()
'ランダムな数を発生させる。
Dim i As Long
Dim j As Long
Dim k As Long
Dim L As Long
Dim kazu() As Long
ReDim kazu(49)
Dim Bangou As Long
For i = 0 To 49
kazu(i) = 0
Next
For j = 1 To 50
start:
i = Int((50 * Rnd) + 1)
L = 0
For k = 1 To 50
If i = kazu(k - 1) Then L = 1
Next
If L = 1 Then GoTo start
kazu(j - 1) = i
Range("a" & j + 4).Value = i
Next
End Sub