你的意思是從一個範圍內隨機抽取一個號碼嗎？ 請在A1填入一個最小值，請在B1輸入一個最大值，請在C1輸入公式 =RANDBETWEEN(A1,B1) A1和B1不要鎖定，方便隨時更改搖號範圍。C1單元格可以鎖定。 F9鍵是刷新鍵，每按一次F9鍵，C1顯示的結果會變化一
如何製作簡易號碼抽籤？下面介紹一下如何使用Excel製作簡易抽籤號碼。
方法
打開Excel
材料/工具：Excel2010 1、打開電腦後，直接進入到excel軟件中，新建一個空白的表格文檔，在表格中某一列單元格中錄入好我們要抽取的內容，例如姓名，編號等等。 2、錄入完成後，我們在當前表格文檔中重新再去選擇一個單元格，將其作為最終抽取結
選擇合適的單元格。
如果是隨機抽籤，那麼應該先有個自動生成隨機數的區域，假如有55個學生，那麼在R列的R1:R55輸入=RAND() 按Ctrl+Enter組合鍵結束； 然後在座位號中輸入=RANK($R1,$R:$R)這樣的排序公式，每按一次F9，R列的隨機數更新一次，座位號也重新刷新一次。
點擊“合併並居中”。
用了兩個函數實現的，雙擊任意單元格會刷新抽籤。確定抽籤順序後建議複製姓名和排名，選擇性粘貼為文本。見圖種，另存為圖片，該後綴為rar，解壓可得excel原表格
輸入以下公式：=INT(RAND()*(100+1))
新建一個空白excel表格 選中多個單元格，並進行合併居中（本步驟可以省略） 選中單元格，輸入公式=INT(RAND()*(100-1+1))+1，按回車鍵確認 1.記住連同=號一起輸入； 2.如果是在1-50中抽取，則將公式中100替換成50，以此類推。選中單元格，在“開
修改字體大小。
最簡單的辦法用rand函數+排序的方法 假設你的表含有表頭並且50個人名在A列，將B列作為輔助列，在B2中輸入以下公式並下拉 =INT(50*RAND())+1 然後以B列為關鍵列進行排序即可。 注：如果是07或07以上版本B2中公式可寫成以下形式： =RANDBETWEEN(1,
按F9可以刷新。多次按F9即可獲得隨機抽籤數。
A列1-22 B列數22個隨機數字 然後排序B列 給B列複製出來讓你的團隊選擇，選擇完了把對應的名字填到C列就可以了
擴展閲讀，以下內容您可能還感興趣。
excel或者ppt製作抽籤
裁53張小紙條，分別寫上1-53的號碼，每人抽一張。
某單元格輸入：
=ROUND(RAND()*53,)+1，（EXCEL2003版）
=RANDBETWEEN(1,53)，（EXCEL2007版）
每按一次F9鍵，將隨機產生一個1-53的數字。追問我這個需要演示的，所以你這個方法我這還真不能採納，謝謝！
如何利用excel的VB按鈕進行分班抽籤
最簡單的用法:
1.在控制工作欄中選多按鈕放入工作表中,修改其CAPTION屬性(文字);
2.在其LINKCELL中輸入:如A1(你要要通過按鈕改變的單元格)
3退出設計模式,當你選中其中一個時,對應的單元格的內容將變化(true/false)
4:當然你改變其中一個單元格內容時,其它單元格也會變化,按鈕也變化:
空值:按鈕灰顯;
true/非0的數字均認為是選中.
false/0表示為未選中.
5.如果有更進一步的其它需要,還可以對按鈕事件進行編程解決更復雜的問題.追問看不明白，有圖文的嗎?
我想用excel做一個自動抽籤程序( 以下是電腦報裏面介紹的內容，不知道為什麼在我的電腦裏操作失敗了）
同時按Alt和F11進入宏界面，點菜單的插入，模塊，粘貼如下代碼：
Dim Flag As Boolean
Sub aaa()
Dim cell As Range
Do Until Flag
Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select
DoEvents
Loop
Flag = False
End Sub
Sub bbb()
Flag = True
End Sub
回到Excel，在C6:G10輸入25個籤（代碼中的粗體字按實際修改），插入兩個圖形比如方框，一個寫”抽籤“，一個寫”暫停“，右鍵點第一個框，指定宏，aaa；右鍵點第2個框，指定宏，bbb
就可以了。
用Excel做一個抽籤器，有按鈕的那種，可以幫忙寫個代碼嗎？
按圖操作就可以做成10選3的隨機抽籤樣版。
excel如何實現隨機抽取且不重複
方法一：公式法
1、我們以生成1-10範圍內的隨機數字為例，講述方法。
首先，在A2單元格中輸入公式：=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$11))=0,ROW($1:$11)),INT(RAND()*(11-ROW(A1))+1))
然後按下Ctrl+Shift+Enter三鍵結束數組公式。
2、然後，下拉填充公式到A12單元格，也就是填充11個單元格，為什麼要填充11個呢，我們明明只要10個數字？這是因為，最後一個數字是不會變化的，所以呢，要生成10個隨機數，需要填充11個單元格，同樣的生成11個隨機數的話，要填充12個單元格，除此之外，公式中的11還要改成12。
3、生成隨機數後，每按下一次F9（或者其他單元格進行一次計算），隨機數就會刷新一次，重新生成一組隨機數，要注意嘍！
4、好了，一組不重複的隨機數字生成了，現在我們回頭看看這個公式是怎麼實現的吧。首先看Small函數的第一個參數，也就是數字區域，這裏是利用if和Countif函數來實現此單元格上面的單元格區域，是否有當前單元格的數字，如果有，就返回False，而如果沒有就返回這個數字，從而生成一組由上面單元格沒有的數字和Flase組成的序列，下圖是按F9得到的結果：
5、Small函數的第二個參數，也就是從這個序列中取第幾個最小值，在得到的數字中，利用隨機函數rand和row函數，實現在這有個個數中隨機抽取一個數字，從而得到排序中這個數字順序的一個數字。通過這樣一個數組公式，就實現了生成一組不重複的隨機數字啦。
方法二：VBA法
1、VBA功能強大，可以利用很多算法實現隨機數。這裏介紹一種簡單的辦法。首先在Excel中按下Alt+F11，打開VBE界面，雙擊要生成隨機數的工作表，在右側空白處需要輸入代碼。
輸入代碼如下：
Sub m()
Range("A:A").ClearContents'這裏是A列，根據需要修改
For i = 1 To 10'這裏是10個數字，根據需要修改
kkk:
Randomize
x = Int(Rnd * 10) + 1
If Application.CountIf(Range("A:A"), x) = 0 Then
Cells(i, 1) = x
Else
GoTo kkk
End If
Next i
End Sub
2、代碼原理很簡單，就是隨機生成數字，如果A列中有了這個數字，就返回再次隨機生成，一直到沒有這個數字為止；利用循環生成制定數量的數字。
3、按下F5執行代碼，就看到在對應的Sheet中的對應列，生成了一組隨機的不重複的數字。
