Ptt：EXCEL，1-60不重複隨機分派

洗牌法

Sub RandomNumbers()
Dim x(1 To 60) As Integer
For i = 1 To 60
  x(i) = i
Next
For j = 1 To 1000
 a1 = Int(Rnd() * 60) + 1
 a2 = Int(Rnd() * 60) + 1
 temp = x(a1)
 x(a1) = x(a2)
 x(a2) = temp
Next
For l = 1 To 60
 Cells(l, 1) = x(l)
Next
End Sub

亂數排序法

Sub RandomNumbers()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
Rnd (-1)
Randomize 10
For i = 1 To 60
  Cells(i, 1) = Rnd
Next
For j = 1 To 60
  Cells(j, 2) = Fn.Rank(Cells(j, 1), Range("A1:A60"))
Next
End Sub

Tags: Excel, Teaching

• 編輯文章
• 此文章網址
• 轉寄此文章
• 目前有0 意見