有時需要在Excel中從某列隨機(jī)提取一些數(shù)據(jù)，而且數(shù)據(jù)不能被重復(fù)提取。例如在進(jìn)行隨機(jī)抽樣時，就需要進(jìn)行隨機(jī)地、不重復(fù)地提取操作。在Excel中，可以用多種方法實(shí)現(xiàn)從一列中隨機(jī)不重復(fù)地提取數(shù)據(jù)，下面介紹其中的一些方法。假如要從A1:A100區(qū)域中隨機(jī)挑出一些名單：
方法一：RAND函數(shù)+排序
1.在B1單元格中輸入公式：
=RAND()
回車后向下填充到B2:B100區(qū)域。
2.按照B列進(jìn)行排序。方法是選擇B1:B100區(qū)域中的任意單元格，單擊工具欄中的排序按鈕“A→Z”，A列中的名單就會變成隨機(jī)排列了，并且每次單擊排序按鈕都會產(chǎn)生一個新的隨機(jī)序列。從A列中復(fù)制一些名單到其他區(qū)域即可。
方法二：RAND+RANK函數(shù)
先用上述方法在B1:B100區(qū)域填充RAND函數(shù)，然后在C1單元格中輸入公式：
=INDEX($A$1:$A$100,RANK(B1,$B$1:$B$100))
再拖到填充柄向下填充，即可獲得所需的隨機(jī)數(shù)據(jù)。如果要獲得新的隨機(jī)數(shù)據(jù)，按F9鍵即可。這個方法適合于不改變工作表結(jié)構(gòu)的情況。
方法三：VBA代碼
還可以用下面的VBA代碼來進(jìn)行隨機(jī)不重復(fù)地提取。假如要從某列（本例為A1:A1000）中隨機(jī)不重復(fù)地提取100個數(shù)據(jù)，將其放到指定區(qū)域（本例為C1:C100）中：
Sub RandomSelect()
Dim TempArr, TheList(1 To 1000, 1 To 1) As Variant
TempArr = Range("a1:a1000")
For i = 1000 To 1 Step -1
j = Int(Rnd * i) + 1
TheList(i, 1) = TempArr(j, 1)
TempArr(j, 1) = TempArr(i, 1)
Next i
Range("c1:c100") = TheList
End Sub
上述代碼中讀取和寫入數(shù)據(jù)時沒有用For-Next循環(huán)，速度較快，特別適合于數(shù)據(jù)量較大的情況
