Excel VBA。这个宏会产生随机排列吗？

Question

我目前依靠这个宏来生成随机序列，我只是想检查我得到的序列是否确实是随机的(显然，计算机可以随机执行的最好操作)。

Sub Random()
For x = 1 To Selection.Rows.Count
   r = Int(Rnd(1) * (Selection.Rows.Count) + 1)
   For z = 1 To Selection.Columns.Count
       y = Selection.Cells(x, z).Formula
       Selection.Cells(x, z).Formula = Selection.Cells(r, z).Formula
       Selection.Cells(r, z).Formula = y
   Next z
Next x
End Sub

很抱歉这个问题太平淡了，但我需要安心。

非常感谢

Answer 1

将此行添加到 For 行之后

Randomize Timer

这将确保您永远不会再次获得相同的随机数，因为它使用计时器作为生成数字的随机性的种子。

你的代码应该是

Sub Random()
For x = 1 To Selection.Rows.Count
   Randomize Timer
   r = Int(Rnd(1) * (Selection.Rows.Count) + 1)
   For z = 1 To Selection.Columns.Count

       y = Selection.Cells(x, z).Formula
       Selection.Cells(x, z).Formula = Selection.Cells(r, z).Formula
       Selection.Cells(r, z).Formula = y
   Next z
Next x
End Sub