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