[第92期]随机九宫格[已总结]

delete_007

一、说明：
  1、A1:I9单元格区域由9个九宫格够成。
  2、将1到9共九个数字，随机填入9个九宫格内。
  3、数字在每个九宫格内的位置也是随机的。
  4、把9个九宫格按位置叠合后，必须形成一个填充完整的九宫格。
  5、做到数字与位置的绝对随机。
  6、模拟结果（见下图）非唯一结果，仅供参考理解题意。

二、要求：
  函数作答，一个公式完成，不允许使用辅助区或VBA。

三、答题规则：
  1、贴出A1内的公式、区域数组公式或内存数组公式皆可。
  2、开贴根据汇总情况评分，精彩答案外加技术分1分奖励。


已总结，见13楼。http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=988907&pid=6903068

模拟结果一：

模拟结果二：

模拟结果三：

delete_007

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(1,9*ROW()^0)+ROW()%,MOD(COLUMN()-1,3)+MOD(ROW()*3-2,9))),"[="&RIGHT(SMALL(RANDBETWEEN(1,9*ROW()^0)+ROW()%,INT(ROW()/3-1%)*3+INT(COLUMN(C:K)/3)))&"];")

复制代码

预设答案：180字符。

ddhhyy16

{:soso_e154:}=SUM(SUBTOTAL(9,OFFSET(A1,{0,3,6},{0;3;6},1,1)))

悟空师弟

158字符，献丑了：

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)/1%+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),100),"[="&MOD(MOD(COLUMN(A:I),3)+MOD(ROW(1:9),3)*3,9)+1&"]0;")

复制代码

简化一下：151

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)/1%+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),100),"[="&MOD(COLUMN(A:I),3)+MOD(ROW(1:9),3)*3+1&"]0;")

复制代码

148：（随机率小有不均）

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(9:17))/1%+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),100),"[="&MOD(COLUMN(A:I),3)+MOD(ROW(1:9),3)*3+1&"]0;")

复制代码

有点晕，上面的公式的确随机率都不够……要206：

1. '=TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)*10+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),10),"[="&MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)*10+ROW(1:9),MOD(COLUMN(A:I),3)+MOD(ROW(3:11),3)*3+1),10)&"]0;")

复制代码

200：（随机率小有不均 ）

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(9:17))*10+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),10),"[="&MOD(SMALL(RANDBETWEEN(1,ROW(9:17))*10+ROW(1:9),MOD(COLUMN(A:I),3)+MOD(ROW(3:11),3)*3+1),10)&"]0;")

复制代码

再简一个：205：

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)*10+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),10),"[="&MOD(SMALL(RANDBETWEEN(1,ROW(1:9)^0+9)*10+ROW(1:9),MOD(COLUMN(A:I),3)+MOD(ROW(1:9),3)*3+1),10)&"]0;")

复制代码

199：（随机率小有不均）

1. =TEXT(MOD(SMALL(RANDBETWEEN(1,ROW(9:17))*10+ROW(1:9),INT(ROW(1:9)/3.1)*3+INT(COLUMN(C:K)/3)),10),"[="&MOD(SMALL(RANDBETWEEN(1,ROW(9:17))*10+ROW(1:9),MOD(COLUMN(A:I),3)+MOD(ROW(1:9),3)*3+1),10)&"]0;")

复制代码

继续简：
178字符：

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(ROW()^0,9)+ROW()%,INT(ROW(3:11)/3+{0,0,0,3,3,3,6,6,6}))),"[="&RIGHT(SMALL(RANDBETWEEN(ROW()^0,9)+ROW()%,{3,6,9,3,6,9,3,6,9}-MOD(ROW(1:9),3)))&"]0;")

复制代码

157字符：（随机情况有些呆板）

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(ROW()^0,9)+ROW()%,INT(ROW(3:11)/3+{0,0,0,3,3,3,6,6,6}))),"[="&MOD({3,6,9,3,6,9,3,6,9}-MOD(ROW(),3)+RANDBETWEEN(1,9),9)+1&"]0;")

复制代码

顺⑦.zì繎。

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(1,ROW(9:17))+ROW(1:9)%,INT(ROW(3:11)/3+{0,0,0,3,3,3,6,6,6}))),"[="&RIGHT(SMALL(RANDBETWEEN(1,ROW(9:17))+ROW(1:9)%,MOD(ROW(1:9),3)+{1,4,7,1,4,7,1,4,7}))&"]0;")

复制代码

先占位，日后在想。

补充内容 (2013-4-20 10:36):
感觉上面的公式 有频率的限制。。修改下  绝对的随机
175字符
=TEXT(RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,MOD(ROW(),3)+{1,4,7,1,4,7,1,4,7})),"[="&RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,INT(ROW(3:11

delete_007

==================答题截止==================
评分及总结见附件，如有意见或建议，敬请批评指正。

羽希

不限制07吧?

ykqrs

=iIFERROR(INDEX({1;2;3}*3-{2,1,0},MATCH(,0/(ROW()={1;5;9}),),MATCH(,0/(COLUMN()={1,5,9}),)),"")
这几天尽想这格格了，这回差不多了
=IF(AND(OR(COLUMN()={1,5,9}),OR(ROW()={1,5,9})),LARGE(ISERROR(RANK(ROW($1:$9),OFFSET($A1,,,,COLUMN()-1)))*ISERROR(RANK(ROW($1:$9),OFFSET($A$1,,,ROW()-1,9)))*ROW($1:$9),INT(RAND()*(10-((COLUMN()+3)/4+ROW()-(ROW()+3)/4))+1)),"")

sunya_0529

好久没有参加竞赛了，赞助一下——

1. =TEXT(INDEX(RIGHT(SMALL(MID(RANDBETWEEN(10^8,10^9),ROW($1:$9),1)+ROW($1:$9)%,ROW($1:$9)))&RIGHT(SMALL(MID(RANDBETWEEN(10^8,10^9),ROW($1:$9),1)+ROW($1:$9)%,ROW($1:$9))),ROUNDUP(COLUMN()/3,0)+INT((ROW()-1)/3)*3)-((TEXT(MOD(COLUMN(),3),"#;;3")+TEXT(MOD(ROW(),3),"#;;3")*3-3)&0),"[<] ;[<10];")

复制代码

2013/04/22 18:46
由于是多单元格数组公式，不用拖拉复制，因此上面的公式中的$可以去掉，可以省不少字符，却又不影响效果——

1. =TEXT(INDEX(RIGHT(SMALL(MID(RANDBETWEEN(10^8,10^9),ROW(1:9),1)+ROW(1:9)%,ROW(1:9)))&RIGHT(SMALL(MID(RANDBETWEEN(10^8,10^9),ROW(1:9),1)+ROW(1:9)%,ROW(1:9))),ROUNDUP(COLUMN()/3,0)+INT((ROW()-1)/3)*3)-((TEXT(MOD(COLUMN(),3),"#;;3")+TEXT(MOD(ROW(),3),"#;;3")*3-3)&0),"[<] ;[<10];")
   

复制代码

顺⑦.zì繎。

顺⑦.zì繎。 发表于 2013-3-29 08:33
先占位，日后在想。

补充内容 (2013-4-20 10:36):

173字符

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,MOD(ROW(),3)+{1,4,7,1,4,7,1,4,7})),"[="&RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,INT(ROW()/3.1+{1,1,1,4,4,4,7,7,7})))&"]0;")

复制代码

靠。。玩的不转。居然重新跟帖了。。郁闷。。

1. =TEXT(RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,MOD(ROW(),3)+{1,4,7,1,4,7,1,4,7})),"[="&RIGHT(SMALL(RANDBETWEEN(ROW()*0,9)+ROW()%,INT(ROW(3:11)/3+{0,0,0,3,3,3,6,6,6})))&"]0;")

复制代码