52个数字为一组,一共要10组,全是这52个数字随机随机分布排列在A1-A52,B1-B52,C1-C52……谢谢
1. å¨é项ä¸å¾éâå¯ç¨è¿ä»£è®¡ç®âï¼å¹¶ææ大循ç¯è¿ä»£æ¬¡æ°è®¾ç½®å°1000以ä¸åç¡®å®ã
2. éæ©A1ï¼è¾å ¥å ¬å¼ï¼
=IF(OR(A1="",A1=0,A1=ROW($24:$30),A1=ROW($44:$50),A1=ROW($64:$80),COUNTIF(A$1:A$52,A1)>1),RANDBETWEEN(11,93),A1)
åæ¶æCtrl+Shift+Enterä¸é®è¾å ¥æ°ç»å ¬å¼ï¼åä¸ææå¤å¶å ¬å¼å°A52ä¸å¾å°52个ä¸éå¤æ°ã
3. B1:B52ãC1:C52ä¸æ ·è¾å ¥ï¼OKã
å¾ä¸ï¼EãFãGåä¸åå«å¯¹AãBãCåååå æ ¼çæ°åå¨è¯¥ååºç°çæ°æ¬¡ï¼å¯ä»¥çåºå为1次ã
看下面制作的动画,我使用了excel的填充和排序功能做的,填充数值时要按住ctrl键填充序列数值,rand函数是随机排序的好函数,它的小数位数为8位数,对于52个的数值,排序绝对不会重复,只要照着这个做10组就可以了,当然VBA也可完成,不过能简化就不用复杂的方式来解决问题。
点击查看
=INDEX({11;12;13;14;15;16;17;18;19;20;21;22;23;31;32;33;34;35;36;37;38;39;40;41;42;43;51;52;53;54;55;56;57;58;59;60;61;62;63;81;82;83;84;85;86;87;88;89;90;91;92;93},IF(ROW(A1)=1,RANDBETWEEN(1,52),SMALL(IF(COUNTIF(OFFSET(A$1,,,MAX(ROW(A1))-1,),{11;12;13;14;15;16;17;18;19;20;21;22;23;31;32;33;34;35;36;37;38;39;40;41;42;43;51;52;53;54;55;56;57;58;59;60;61;62;63;81;82;83;84;85;86;87;88;89;90;91;92;93})=0,ROW($1:$52),0),RANDBETWEEN(ROW(A1),52))))
数组公式,按CTRL+SHIFT+回车,右拉,下拉52行。追问
可惜不能采纳3个人,不好意思,谢谢
追答用一个数组公式,随机生成你要求的52个不重复数字,只要右拉、下拉就可以;
能解决问题就好。
在B1中输入或复制粘贴下列公式
=RAND()
下拉填充或双击B1右下角的小黑方块(填充柄)
选择B列任一非空单元格 (一次或多次)单击常用工具栏上的升序排序或降序排序
A列中的结果就是随机排列且不重复的追问
但是这样只有1组啊,我试过用这个方法放到第二组,就不行,第一组也会变啊
哈,这个方法行了
谢谢
真是可惜,不能同时采纳两个人
追答选择B列任一非空单元格 (一次或多次)单击常用工具栏上的升序排序或降序排序
选择A1:A52 复制
右键单击任一单元格 选择性粘贴 数值 确定
我知道,我是等第一个回答的家伙补充,因为他只是简单说说,我看不懂他发那个文件,他要是不回复,我就采纳你
本回答被提问者采纳需要利用VBA自定义函数,见附件所示。
请问为什么看不到?
请问你发给我的文件怎样操作?
为什么看不到数字,全是英文?
追答哦,操作需要选中52个单元格按ctrl+shift+enter输入,如图所示
然后其中的getRandList函数是VBA自定义函数,你需要把代码拷贝到你的工作表中再使用