現時点では、このマクロを使用してランダムなシーケンスを生成しています。取得しているシーケンスが実際にランダムであることを確認したかっただけです (コンピューターがランダムに実行できる最善の方法です)。
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
非常に平凡な質問で申し訳ありませんが、これについては安心が必要です。
どうもありがとう