一、如何在excel中用公式进行随机抽取
假设有100个身份证号，在A列，那么在A列前面插入一个辅助列，在身份证号码前按顺序填充1、2、3、4……直到100（也就是给每个身份证号码一个独立的序号），在任意单元格（假设单元格 C2）写入公式：=RANDBETWEEN(1,100) ，（公式中的100要根据身份证号码的个数来定，100个身份证号码就写100,500个身份证号码就改成500），然后在单元格 C3写入公式：=VLOOKUP($C$2,A:B,2,FALSE)每次按F9就可以随机抽取一个身份证号码，显示在单元格C3 。
不过EXCEL2003中Randbetween 函数默认并不加载，需要加载的话可以到工具-加载宏，选“分析工具库”，确定即可。
二、随机竞选班委,要从excel名单中随机抽取应该怎么弄
随机竞选班委，要从excel名单中随机抽取的具体步骤如下：
需要准备的材料分别是：电脑、Excel表格。
以win7系统、Excel表格2010版为例：
1、首先打开Excel表格，进入到编辑页面中。
2、然后名字的单元格后面的单元格输入公式：=RAND()。
3、然后再点击后面的单元格输入格式：C1 =INDEX(A:A,MATCH(SMALL(B$1:B$100,ROW(A1)),B$1:B$100,0）），回车确定，下拉6个单元格，按“F9”就可以随机抽出7个人。
三、怎么用excel在一列中随机抽取
假设数据在a列（QQ号） 在空白单元格输入 =INDEX(A:A,INT(RAND()*100),1） 就会随机抽取一个qq号了 向下拖就会出现很多 最好A:A范围明确指定 如A1:A100上面公式抽取的可能有重复的你可以用代码解决QQ号数据在A列 在宏填写代码如下： Sub seldata() Dim r As Long r = Range("a65536").End(xlUp).Row Randomize For j = 1 To 100 Randomize i = Int((r - 1 + 1) * Rnd + 1) Cells(j, 2).Value = Cells(i, 1).Value Next j End Sub 运行宏seldata 在B列中可得到随即且不重复的100个数值。
个数你可以自定义，在代码里面。
四、excel随机抽取
按ALT+F11， 将如下代码放到 Thisworkbook 中，回到你的表，按ALT+F8执行Seperate_random 这个宠Public Sub Seperate_random() Dim i As Long Range("C1").FormulaR1C1 = "=RAND()" Range("C1").Select Selection.AutoFill Destination:=Range("C1:C20000") Range("C1:C4").Select Columns("A:C").Select ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add Key:=Range("B:B"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ActiveSheet.Sort.SortFields.Add Key:=Range("C:C"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveSheet.Sort .SetRange Range("A:C") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Application.Calculation = xlManual Cells(1, 3) = Cells(1, 3) + 1 For i = 2 To 20000 If Cells(i, 2) <> Cells(i - 1, 2) Then Cells(i, 3) = Cells(i, 3) + 1 Else Cells(i, 3) = Cells(i, 3).Value End If Next i Application.Calculation = xlCalculationAutomatic Columns("A:C").Select ActiveSheet.Sort.SortFields.Clear ActiveSheet.Sort.SortFields.Add Key:=Range("C:C"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveSheet.Sort .SetRange Range("A:C") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End WithEnd Sub处理后前5000的就是你要的随机的.。
五、如何从excel中随机提取整行数据
先给数据做随机编号。可用随机函数：
1、插入辅助列（B列吧），在B1输入=INT(RAND()*5000+1）回车并向下填充（假设有5000行）。
2、选B列——复制——原地不动——右键——选择性粘贴——数值——确定。
3、选数据区域——菜单栏——数据——排序——主要关键字：列B——升序（或降序均行）——确定。
4、这样就把各行给随机打乱了。取前200行就是随机提取的行。
5、如果怕把原来各行的顺序打乱，B列排序前先插入一列（C列）——前两格输入1、2——选1、2两格向下填充形成序列号——B列排序并提取后，选C列排序就可以恢复原状了。
