如何用Excel來做抽樣，但不重複?

Question

樂透1~49個數字，如果要抽樣選出6個數字，如何設定抽樣但是6個數字不重複?
如果要選出1萬組的6個數字又該怎麼做比較快(而且每一組6個都不能重複)?
使用Excel軟體，我摸好久還是不行，我會使用抽樣，但是有可能有些組有重複數字，總不能一組一組檢查吧@@拜託幫我忙!!謝謝

Answer 1

這單獨用 Excel 函式可能沒辦法，我寫了兩個巨集，提供給你參考首先 Macro1() 是定義在 Ctrl+a，這個巨集會在目前所在的位置，橫向產生 6 個 1 ~ 49 不重覆的亂數，然後將游標移到下一列而 Macro2() 是定義在 Ctrl+b，這個巨集會重覆呼叫 Ctrl+a 10 次，產生 10 組 6 個亂數，實際次數可自行修改若要使用這兩個巨集，可先隨意錄製兩個巨集，然後把我的程式覆蓋掉你原先的巨集就可以了另外若要使用巨集，則要降低巨集的安全性，否則無法執行Sub Macro1()'' Macro1 Macro' Johnny 在 2005/4/9 錄製的巨集'' 快速鍵: Ctrl+a'Dim num(5) As IntegerFor i = 0 To 5    Do        num(i) = Rnd() * 49 + 1        bRepeat = False        For j = 0 To i - 1            If num(i) = num(j) Then                bRepeat = True                Exit For            End If        Next j    Loop While (bRepeat)Next iFor i = 0 To 5    ActiveCell.Value = num(i)    ActiveCell.Offset(0, 1).SelectNext iActiveCell.Offset(1, -6).Select    End SubSub Macro2()'' Macro2 Macro' Johnny 在 2005/4/9 錄製的巨集'' 快速鍵: Ctrl+b'For i = 1 To 10    Call Macro1Next iEnd Sub

Answer 2

鴻博娛樂 http://www.hbbet.net
財神娛樂 http://www.cs777.net
富貴娛樂 http://www.fk888.net
24小時不打烊, 多種遊戲任你玩