[第64期]Excel-单一储存格寻找三连或四连

fugb-2010

初学者难免使用多层IF及公式过长，但能符合第1条奖赏，重在参与吧！
请楼主检验：
D1=IF(COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))=4,IF(MIN(--MID(A1,ROW($1:$4),1))+3=MAX(--MID(A1,ROW($1:$4),1)),A1,IF(MIN(--MID(A1,ROW($1:$4),1))+2=LARGE(--MID(A1,ROW($1:$4),1),2),SUBSTITUTE(A1,MAX(--MID(A1,ROW($1:$4),1)),""),IF(MAX(--MID(A1,ROW($1:$4),1))-2=LARGE(--MID(A1,ROW($1:$4),1),3),SUBSTITUTE(A1,MIN(--MID(A1,ROW($1:$4),1)),""),""))),IF((COUNT(FIND({0,1,2,3,4,5,6,7,8,9},A1))=3)*(MIN(--MID(A1,ROW($1:$4),1))+2=MAX(--MID(A1,ROW($1:$4),1))),TEXT(SUM(MID(A1,SMALL(FIND(ROW($1:$10)-1,A1&"1&0123456789"),ROW($1:$3)),1)*10^(3-ROW($1:$3))),REPT(0,3)),""))
         数组公式   
        下拉填充

[ 本帖最后由 fugb-2010 于 2010-8-6 19:55 编辑 ]

泓()

D1=CHOOSE(SUM(--(MMULT(LOOKUP((ROW($1:$8)+{0,1,2}),ROW($1:$10),--(FREQUENCY(--(MID(A1,{1;2;3;4},1)),ROW($1:$10)-1)>0)),{1;1;1})=3))+1,"",SUBSTITUTE(A1,SUM(--(MID(A1,{1;2;3;4},1)))-SUM(MATCH(3,MMULT(LOOKUP((ROW($1:$8)+{0,1,2}),ROW($1:$10),--(FREQUENCY(--(MID(A1,{1;2;3;4},1)),ROW($1:$10)-1)>0)),{1;1;1}),0)+{-1;0;1}),"",1),A1&"")       
字元數:        326


[ 本帖最后由 泓() 于 2010-8-5 12:23 编辑 ]

wjc2090742

=IF(DEVSQ(-MID(A1,{1,2,3,4},1))=5,A1,TEXT(MAX((MOD(MMULT(-RIGHT(SMALL(MID(A1,{1,2,3;1,2,4;1,3,4;2,3,4},1)+10*ROW(1:4),{1,2,3}+{0;3;6;9})-{1,2,3}),{100;10;1}),111)=0)*REPLACE(A1,{4;3;2;1},1,)),"000;;"))

数学的思路，普通公式，不计=号189字符。
=IF(DEVSQ(-MID(A1,{1,2,3,4},1))=5,A1,TEXT(MAX((MMULT((MID(A1,{1,2,3;1,2,4;1,3,4;2,3,4},1)+(SUM(-MID(A1,{1,2,3,4},1))+MID(A1,{4;3;2;1},1))/3)^2,{1;1;1})=2)*REPLACE(A1,{4;3;2;1},1,)),"000;;"))

[ 本帖最后由 wjc2090742 于 2010-8-11 09:11 编辑 ]

kkitt

终于小于210了 206个字(算=号)

D1=TEXT(SUM(MID("0"&A1,1+LARGE((FREQUENCY(IF(MMULT(--(SUBSTITUTE(A1,{0;1;2;3;4;5;6;7}+{0,1,2},)<>A1&""),{1;1;1})=3,ROW($1:$8)+{0,1,2}),MID(A1,{1;2;3;4},1)+1)>0)*ROW($1:$5),{1;2;3;4}),1)*10^{0;1;2;3}),"000;;")

[ 本帖最后由 kkitt 于 2010-8-13 23:20 编辑 ]

fjrlgj

D1=IF(OR(MMULT(-ISERR(FIND(ROW($2:$9)-{0,1,2},A1)),{1;1;1})=0),TEXT(MIN(--SUBSTITUTE(A1,IF(MMULT({1,-1},LARGE(-MID(A1,{1,2,3,4},1),{1,2,3;2,3,4}))-1,SMALL(--MID(A1,{1,2,3,4},1),{1,2,4})),,1)),"000"),"")
数组公式,下拉

东方之珠0

这块骨头有点难啃,总是有点顾此失彼的感觉,哎…,楼主真是台湾人?这就算是同胞为您捧个场吧.

sunya_0529

翻查了一下他的原話，確實說的是150個字符，太有挑戰性了，公式的精簡到了這個份上，減一個字符都算是一種很大的進步，我就不想走火入魔了，等著分享現成的思路。

樓主當時出題的時候有預見到會有如此短的公式嗎？說實話，初看到這道題，思路已經框死了，想來想去，就只有一個思路。看了“凍豆腐”版主和大頭兄等幾個3分公式，真是有一種坐井觀天的感覺。對於數組的修煉，我還剛開始，閉關30天去了……

piny

原帖由 sunya_0529 于 2010-8-23 10:48 发表


想起大头兄说过的一句话，用公式解决一个问题，公式长度一般不超过160个字符。

哈哈，到目前为止，似乎这一猜想还是正确的。对解题而言，要达到大头的水平，自觉差距甚远。现在要换一下方向，去找一些难题，让 ...

呵 我印象中大頭老師說是不超過150字元，所以目前最佳解152字元似仍有想像空間 ^^

sunya_0529

原帖由 wangg913 于 2010-7-27 15:57 发表
=IF(COUNT(FIND(1111,SUM(10^MID(A1,{1,2,3,4},1)))),A1,IF(COUNT(FIND(111+{0,1,10,100},SUM(10^MID(A1,{1,2,3,4},1)))),SUBSTITUTE(A1,-LOOKUP(,{3,4}-FIND({"010",2},SUM(10^-MID(A1,{1,2,3,4},1))%&0)),,1),"")) ...

想起大头兄说过的一句话，用公式解决一个问题，公式长度一般不超过160个字符。

哈哈，到目前为止，似乎这一猜想还是正确的。对解题而言，要达到大头的水平，自觉差距甚远。现在要换一下方向，去找一些难题，让大头“裸奔”！！！

fjrlgj

原帖由 wangg913 于 2010-7-27 15:57 发表
=IF(COUNT(FIND(1111,SUM(10^MID(A1,{1,2,3,4},1)))),A1,IF(COUNT(FIND(111+{0,1,10,100},SUM(10^MID(A1,{1,2,3,4},1)))),SUBSTITUTE(A1,-LOOKUP(,{3,4}-FIND({"010",2},SUM(10^-MID(A1,{1,2,3,4},1))%&0)),,1),"")) ...

-LOOKUP(,{3,4,-9999}-FIND({"010",2,1111},SUM(10^-MID(A1,{1,2,3,4},1))%&0))
真不知道大头的脑瓜子是什么材料组成的,佩服!佩服!