請問用EXCEL產生1-49的不重複亂數

閣下是要玩大樂透是吧！？

教你簡單寫出大樂透的公式！

=SMALL(COUNTIF($A1:A1,ROW($1:$36))*99+ROW($1:$36),INT(RAND()*(37-COLUMN(A1)))+1) 

右拉至Ｇ１，再下拉１５５列 

最後檢查選出的數字是否重複

=COUNTIF(H:H,H1)

就會輸出不同的數字了！！

在 c1 欄位輸入函式  =50*RAND()

在 D1 輸入 =COUNT(A:A)

進入VBA 創立一個 巨集 

把以下資料貼上 執行巨集 就 OK了（邏輯 每次產生一個亂數數字 比對是否重複 重複則產生新數字）
For i = 1 To 50
10
Cells(i, 1).Value = Int(Cells(1, 3).Value)
 If i >= 2 Then
  cnt = Cells(1, 4).Value
  For j = 1 To cnt - 1
  val1 = Cells(cnt, 1).Value
  val2 = Cells(j, 1).Value
  If val1 = val2 Then GoTo 10
  Next j
 End If
Next i
 

Have a good day 希望有幫到你

直接去網路上搜尋大樂透程式就好啦

還要自己寫程式多麻煩阿

這個有難