讓Excel產生重覆的亂數序列

基於統計品管教學的需求，課堂上希望學員以Excel產生亂數，然後進行統計解析，但因產生亂數所以學員的亂數都不盡相同，因此講師也不易給予正確答案，解決方法是使用VBA產生亂數，就會得到重覆的亂數序列

VBA程式於下，改變程式中的"2"值，就會改變序列，Cells(i,4)表示產生10亂數，放置到第4欄的1-10列上
Private Sub CommandButton1_Click()
    Dim i As Integer
    Rnd (-5)
    Randomize 2
    For i = 1 To 10
        Cells(i, 4) = Rnd
    Next i
End Sub