Sub test()
X = Int(Rnd() * 100) + 1
Y = Application.WorksheetFunction.Count([A:A]) + 1
Cells(Y, 1) = X
End Sub
原則上Rnd()是隨機數，但把檔案SAVE後，每次再開檔案都會重複相同的抽獎結果
71
54
58
29
31
....
這是一個不公平的隨機抽奬，有冇方法做到一個公平，不可預測的抽奬程式。
更新1:
Thanks 馬王肺話 Randomize [number] 若加入了 [number] ，又有如何含意？
更新2:
簡化程式，用 Randomize 和用 Randomize [100]有何分別？ Sub test() Randomize Cells(Application.WorksheetFunction.Count([A:A]) + 1, 1) = Int(Rnd() * 100) + 1 End Sub Sub test() Randomize [100] Cells(Application.WorksheetFunction.Count([A:A]) + 1, 1) = Int(Rnd() * 100) + 1 End Sub
