PTT：Excel大樂透49取6亂數列出1000筆組合

Sub lotto()
Dim Fn As Object
Set Fn = Application.WorksheetFunction
For k = 1 To 1000
 For i = 1 To 6
     Cells(k, i) = Fn.RoundUp(Rnd * 49, 0)
     For j = 1 To i - 1
         If Cells(k, i) = Cells(k, j) Then i = i - 1
     Next
 Next
Next
End Sub

如果你有Mathematica的話，那就方便多了

<<>
Table[RandomKSubset[Range[49], 6], {i, 1, 1000}]

這樣就ok～～ Tags: Excel, Teaching

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