1から10までの乱数を重複なしで表示する。エクセルVBA

1番目から順に乱数で取得した値をセットしているんですね。

それで 既にある場合は 飛ばして 次の値をセットしているんですね。

これだと どれだけランダムになるのかが 難しいところです。

こうやって 1から10までセットして次は その配列を シャッフルしたらいいでしょう。

つまり 乱数で 取得した 二つの値の 配列を 入れ替えるのです。

乱数で 3と5を取得した場合、3と5に入っている値を 交換します。

これを 大量回数(これも乱数で取得)やれば けっこう ランダムになるかなと思います。

ご質問のコードで間違いはありません。

ご参考まで、配列 a をシャッフルするサブルーチンを掲げます。

Sub Shuffle(a)
    Dim k, j As Long
    Dim t
    Randomize
    For k = UBound(a) To 0 Step -1
        j = Fix(Rnd * (k + 1))
        t = a(j)
        a(j) = a(k)
        a(k) = t
    Next
End Sub

No.3はこれですね。

• http://en.wikipedia.org/wiki/Fisher%E2%80%93Yates_shuffle#Modern_method

さらに今回の場合、wikipediaの次の節にある"inside-out"式を使って配列に入れながら混ぜる方法が良いかもしれません。

ransuu(1) = 1
for i=2 to 10
　j=Int(Rnd() * i) + 1
　ransuu(i)=ransuu(j)
　ransuu(j)=i
next

これは下記と等価です

for i=1 to 10
　ransuu(i)=i
next
for i=2 to 10
　j=Int(Rnd() * i) + 1
　t=ransuu(i) ' ransuu(i)はまだ交換した事がないのでiと同じ
　ransuu(i)=ransuu(j)
　ransuu(j)=t
next

これのループを逆に回すとNo.3になり、さらに交換ではなくてセルへの代入にすると下記になります。

for i=1 to 10
　ransuu(i)=i
next
for i=10 to 2 Step -1
　j=Int(Rnd() * i) + 1
　Cells(i, 1).Value=ransuu(j)
　ransuu(j)=ransuu(i) ' ransuu(i)は今後アクセスすることがないので消さなくてもOK
next
Cells(1, 1).Value=ransuu(1)