[开_121][已结}你可以将数字按S形排列吗？

sunbin200388

前几天看到dragonthree兄出的一道题目，是将数字按S形排列，花了些时间想了下，把这道题目改了一下，也是S形排列，不过我的这个S要大些，权称大S吧，dragonthree兄不要生气啊，要求也一样：
1.公式中不要用IF函数。
2.只允许在A1写一个公式，右拉，下拉完成！
3.不要用VBA，用函数和公式完成！
4.字符数越少越好！
5.加一条，公式适用任意行、任意列（可能是7行8列，也可能是9行13列等，拉到哪儿，算到哪儿）
闲话少说，请看附件

moon2778

=CHOOSE(MOD(COLUMN()-1,4)+1,MOD(ROW()-1,21)+1+(COLUMN()-1)*11,COLUMN()*11*(MOD(ROW(),21)=0),(COLUMN()+1)*11-MOD(ROW()-1,21)-1,COLUMN()*11*(MOD(ROW(),21)=1))

不用if，可以choose不？

sunbin200388

原帖由 moon2778 于 2009-9-9 17:15 发表
=CHOOSE(MOD(COLUMN()-1,4)+1,MOD(ROW()-1,21)+1+(COLUMN()-1)*11,COLUMN()*11*(MOD(ROW(),21)=0),(COLUMN()+1)*11-MOD(ROW()-1,21)-1,COLUMN()*11*(MOD(ROW(),21)=1))

不用if，可以choose不？

可以，只是不满足第5条，这个公式只能下拉到21行，如果拉到20行或者22行或者其它行，就不行了。

moon2778

改咯，不晓得是不是这样？
用了迭代2

[ 本帖最后由 moon2778 于 2009-9-9 21:20 编辑 ]

kkitt

=CHOOSE(MOD(COLUMN(),4)+1,(ROW()=1)*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(ROW(),"[=1]""RC[-1]"";""R[-1]C"""),0)+1,(A2="")*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(INDIRECT("rc[-1]",0),"""rc[-1]"";;""r[1]c"""),0)+1)

moon2778

原帖由 kkitt 于 2009-9-9 22:27 发表
=CHOOSE(MOD(COLUMN(),4)+1,(ROW()=1)*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(ROW(),"[=1]""RC[-1]"";""R[-1]C"""),0)+1,(A2="")*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(INDIRECT("rc[-1]",0),"""rc[-1]"";;""r[ ...

kkitt老师出手，确实不同反响。。。。这个公式不用迭代了，我第一次看见用rc单元格地址来写函数。

shuts32

原帖由 kkitt 于 2009-9-9 22:27 发表
=CHOOSE(MOD(COLUMN(),4)+1,(ROW()=1)*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(ROW(),"[=1]""RC[-1]"";""R[-1]C"""),0)+1,(A2="")*(INDIRECT("rc[-1]",0)+1),INDIRECT(TEXT(INDIRECT("rc[-1]",0),"""rc[-1]"";;""r[ ...

学习学习了，，，，

胡剑0227

嗯，亮点应该是使用CHOOSE分条件实现，这样可以把问题分解开来，逐个解决。我也上一个平民化得公式，呵呵：
数字1位于B2单元格
分步1：
=CHOOSE(MOD(COLUMN(),4)+1,,,(2*8+2)*(COLUMN()-2)/4+ROW()-1,)
分步2：
=CHOOSE(MOD(COLUMN(),4)+1,,,(2*8+2)*(COLUMN()-2)/4+ROW()-1,(ROW()=9)*(A2+1))
分步3：
=CHOOSE(MOD(COLUMN(),4)+1,(ROW()=9)*(A2+1)+(B3+1)*(ROW()<>9),,(2*8+2)*(COLUMN()-2)/4+ROW()-1,(ROW()=9)*(A2+1))
最后结果：
=CHOOSE(MOD(COLUMN(),4)+1,(ROW()=9)*(A2+1)+(B3+1)*(ROW()<>9),(ROW()=2)*(A2+1),(2*8+2)*(COLUMN()-2)/4+ROW()-1,(ROW()=9)*(A2+1))

[ 本帖最后由 胡剑0227 于 2009-9-10 13:05 编辑 ]

kkitt

版主的解不合题意呀

胡剑0227

哦，呵呵，是呀，我没仔细看楼主的要求，呵呵。
不过稍微改一下就可以了，呵呵。
=CHOOSE(MOD(COLUMN(),4)+1,IF(LEN(A2),A2+1,B3+1),IF(A1="",A2+1,""),IF(LEN(A2),A2+1,B1+1),IF(A3="",A2+1,""))

依然以B1为起点，这样可以活了。不知道是不是这个意思。

嗨，看来我又没有看要求，汗ing。。。

把if用 相等 相乘 替代吧。
不过，不是很明白那么多要求呀，呵呵。A1...算了，失败了，呵呵

[ 本帖最后由 胡剑0227 于 2009-9-10 14:48 编辑 ]