Question

excel函数中，11-23,31-43,51-63,81-93,一共52个数字随机分布在A1-A52的单元格里，不重复数字的函

52个数字为一组，一共要10组，全是这52个数字随机随机分布排列在A1-A52，B1-B52，C1-C52……谢谢

Answer 1

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次。

Answer 2

　　看下面制作的动画，我使用了excel的填充和排序功能做的，填充数值时要按住ctrl键填充序列数值，rand函数是随机排序的好函数，它的小数位数为8位数，对于52个的数值，排序绝对不会重复，只要照着这个做10组就可以了，当然VBA也可完成，不过能简化就不用复杂的方式来解决问题。

点击查看

Answer 3

每列得到不重复的52个数，A1公式：
=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个不重复数字，只要右拉、下拉就可以；
能解决问题就好。

Answer 4

在A1:A52中分别输入11-23,31-43,51-63,81-93,一共52个数字
在B1中输入或复制粘贴下列公式
=RAND()
下拉填充或双击B1右下角的小黑方块（填充柄）
选择B列任一非空单元格 （一次或多次）单击常用工具栏上的升序排序或降序排序
A列中的结果就是随机排列且不重复的

追问

但是这样只有1组啊，我试过用这个方法放到第二组，就不行，第一组也会变啊

哈，这个方法行了

谢谢

真是可惜，不能同时采纳两个人

追答

选择B列任一非空单元格 （一次或多次）单击常用工具栏上的升序排序或降序排序

选择A1:A52 复制
右键单击任一单元格 选择性粘贴 数值 确定

追问

我知道，我是等第一个回答的家伙补充，因为他只是简单说说，我看不懂他发那个文件，他要是不回复，我就采纳你

Answer 5

需要利用VBA自定义函数，见附件所示。

追问

请问为什么看不到？

请问你发给我的文件怎样操作？

为什么看不到数字，全是英文？

追答

哦，操作需要选中52个单元格按ctrl+shift+enter输入，如图所示

然后其中的getRandList函数是VBA自定义函数，你需要把代码拷贝到你的工作表中再使用