EXCEl指定条件随机抽样
发布网友
共4个回答
热心网友
如果是一人矩形区域你直接选中这个区域 然后ctrl+f然后 你在查找那个地方输入*2?? 然后查找全部 然后你看到下边 有个地方放工作簿 工作表 值列出了些东西，然后你把那个选中，然后你就 会看到倒数第三位为2的选中了已经，然后你找一个变篮色的单元格右键 复制找个地方粘贴就可以了如果有问题可以发我邮箱fanwei0602@163.com
热心网友
Sub test()
ActiveSheet.Range("a1") = Application.Evaluate("=(RIGHT(RAND(),LEN(RAND())-2))")
If Mid(ActiveSheet.Range("a1"), Len(ActiveSheet.Range("a1")) - 2, 1) = 2 Then
ActiveSheet.Range("a2") = Application.Evaluate("=(RIGHT(RAND(),LEN(RAND())-2))")
End If
End Sub
在excel VBE中插入此段代码，在worksheet1中插入一个命令控件commandbutton，然后
用按住鼠标在sheet1中画出一个按钮，右键此按钮--指定宏--选择 test 就可以了
结果：每鼠标按一次按钮，在sheet1中的A1单元格中就会出现一个随机数，这个随机数有很多位
如果倒数第三位是2，就自动显示在A2中
热心网友
从号码池里抽出倒数第三位为2的电话号码公式是B1=IF(LEFT(RIGHT(A1,3))="2",1,"")，下拉，结果为1时即被选中。
热心网友
假设你的号码源在A列并从A1开始,在B1输入:
=INDEX(LARGE(IF(LEFT(RIGHT(A$1:A$10000,3),1)="2",A$1:A$10000,),ROW($1:$10000)),CEILING(RAND()*SUMPRODUCT(--(LARGE(IF(LEFT(RIGHT(A$1:A$10000,3),1)="2",A$1:A$10000,),ROW($1:$10000))>0)),1),)
数组公式,按CTRL+SHIFT+回车结束
点击任一空白单元格,按DELETE键,B1将产生倒数第三位为2的随机电话号码.
(因你的数据量太大,计算速度会受到影响,稍等一会即可)追问你好。。请问能再详细点吗。。。数组公式，按CTRL+SHIFT+回车结束，没有反应
追答不会呀,我都试验成功啦
要不你用100个数据来试验,同时把上式中的10000全部改成100,试验下就知道了
