vba随机抽取人名不重复_excel如何实现随机抽取且不重复

点击查看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、然后，...

答：A1中空着，A2中输入 =SMALL(IF(COUNTIF(A$1:A1,ROW($1:$30))=0,ROW($1:$30)),1+INT(RAND()*(31-ROW(A1)))) 同时按下CTRL+SHIFT+回车，输入数组公式，用自动填充柄下拉四格到A6，不断按下F9键查看效果。 也可以下拉到A31，再F9，看看有重复的没有。

答：A2中输入 =SMALL(IF(COUNTIF(A$1:A1,ROW($1:$84)),85,ROW($1:$84)),ROUNDUP(RAND()*(85-ROW(A1)),)) 同时按下CTRL+SHIFT+ENTER输入数组公式，再用自动填充柄拉17格。 说明一下,A1被作为辅助单元格，中间不得输入范围内数字，否则出错。公式下拉...

答： 如图，A14公式=INDEX(A$1:A$11,SMALL(IF(COUNTIF(A$13:A13,A$2:A$11)=0,ROW($2:$11)),RANDBETWEEN(1,COUNT(A$2:A$11)-ROW(A1)+1)))，公式输完后按CTRL+SHIFT+ENTER结束。公式下拉。 B14公式=VLOOKUP($A14,$A:$Q,COLUMN(B1),)，公式右拉，下拉。...

答：原数据有多少个，放在哪里(单元格区域)？ 抽取的5个数据放在哪里(单元格区域)？

答：1、如果数据在Sheet2 的A:D列，在Sheet2的A列前插入两列辅助列； 2、在左上角的名称框中，输入A2:A953，按Enter键，将A2:A953单元格选中，输入=RAND()，按Ctrl+Enter组合键结束，快速向A2:A953单元格中输入随机数(随机数的重复机率极低)； 3、...

答：1、以B列为辅助列，选择B1:B100单元格，输入以下公式，按Ctrl+Enter组合键结束 =RAND() 2、输入以下公式，得到A列的随机且不重复的5个单元格字符组成的字符串 =INDEX(A:A,MATCH(LARGE(B:B,1),B:B,0))&INDEX(A:A,MATCH(LARGE(B:B,2),B:B,0))&INDE...

答：可以考虑用字典法： set d=CreateObject("Scripting.dictionary") for i=1 to 100 L: s=round(rand(),3) if d.exists(s) then goto L d(s)="" next

答：用自定义函数可以完成。 举例说明。例如有数据表如图： 如图在A列有30句断句，要求在C1得到随机抽取的5个句子组合。 第一步：点击开发工具-visual basic。如图： 第二步：插入模块并编制代码如下： Public temp(1 To 5) As Integer Function sjf...

答：1、在C2单元格输入以下公式，然后向下填充公式，得到一列随机数 =RAND() 2、在D2单元格输入以下公式，然后向下填充公式，得到随机数在同一员工下的排名 =SUMPRODUCT((B2:B200=B2)*(C2:C200>C2))+1 3、在Sheet2的A列为员工工号的基础上，在B2单元...

答：假设从A1到A100中随机取5 个不重复数，B2公式： =IF(ROW(A1)=1,INDEX(A$1:A$100,RANDBETWEEN(1,100)),INDEX(A$1:A$100,SMALL(IF(COUNTIF(B$1:B1,A$1:A$100)=0,ROW($1:$100)),RANDBETWEEN(1,101-ROW(A1))))) 数组公式，需要按CTRL+SHIFT+回车，完...

答： 如图，C2公式=SMALL(IF(COUNTIF(C$1:C1,A$1:A$10)=0,A$1:A$10),RANDBETWEEN(1,11-ROW(A1)))，公式输完后先按CTRL+SHIFT不放，再按ENTER结束，公式下拉。

答：方法/步骤 1、先建立从A到Q的文本。ABCDEFGHJKLMNOPQ从这个文本中产生一个随机字母。=MID(A2,RANDBETWEEN(1,LEN(A2)),1)含义是从左侧单元格的文本中，从随机位置开始取一个字符串长度为1的文本，随机位置的数值上限，是文本长度。 2、让原来的26...

答：sheet1的A1:A30 输入 =rand() sheet1的B1输入公式： =INDEX(Sheet2!$A$1:$A$30,INDEX(MATCH(SMALL($A$1:$A$30,ROW($1:$30)),$A$1:$A$30,0),COLUMN()+5*ROW()-6)) 按CTRL+SHIFT+回车结束，公式右拉到F1，下拉到F6 其中数据在Sheet2的A1:A30

答：不重复比较困难，公式只能做到随机抽取，估计vba扩展功能才能实现 使用公式可以尝试 =INDEX($A$2:$A$23,RANDBETWEEN(1,22),1)

答：把42个人的名字放在A1到A42单元格 选中B1：B42 编辑栏输入=rand() crlt+enter，选中B列，复制-右键选择性粘贴-数值(防止等下rand数变化了扯皮) 选中AB两列，数据-排序，主要关键字B列，(升序降序随便) 排序完了，前15个就是随机抽取的，因ra...

答：选中需要查找不同数据的列，依次按Alt+H+L+H+D，选择不相同，即可查出所有不同的数据～望采纳，谢谢！一定要随机可以尝试用if函数……

答：这里举个简单的例子 假如有名字51个，在A列 现在D列按你的要求把它们打乱排序 输入 数组公式，输完后 按CRTL+SHIFT+ENTER =INDEX(A$1:A$51,LARGE(IF(ISNA(MATCH(A$2:A$51,D$1:D1,)),ROW(A$2:A$51)),1+INT(ROWS(A1:A$50)*RAND())))

答：初学者写的，能达到要求，但是肯定不是最好的 Sub 按频率随机生成5个不同数值() ar = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 1 To 20 Range("A" & i) = ar(i - 1) Next i For ii = 1 To 100 Range("B" & ...

答：在B1:B26单元格输入以下公式，按Ctrl+Enter组合键结束 =RAND() 在C1单元格输入以下公式，然后向下填充公式 =INDEX(A:A,MATCH(LARGE(B:B,ROW(A1)),B:B,0)

更多精彩内容推荐：