[讨论]谁的代码最短

wshcw

128字符:

=IF(MOD(SUM(-(MOD(MID(A1,{1,2,3},1),2))),3),MID(A1,MATCH(ABS(MODE(MOD(MID(A1,{1,2,3},1),2))-1),MOD(MID(A1,{1,2,3},1),2),),1),"")

icongmu

我也来一个，129字符，呵呵

希望各前辈帮忙简化！

=MID(A1,IF(OR(SUM(MOD(MID(A1,{1,2,3},1),2))={3,0}),4,MATCH(IF(MODE(MOD(MID(A1,{1,2,3},1),2)),,1),(MOD(MID(A1,{1,2,3},1),2)),)),1)

wddn

=IF(MOD(SUM(MOD(MID(A1&"000",{1,2,3},1),2)),3),MID(A1,MATCH(1-MODE(MOD(MID(A1,{1,2,3},1),2)),MOD(MID(A1,{1,2,3},1),2),),1),"")

126字符，空单元格不出错误值。

chrisfang

117字符：

=IF(MOD(SUM(MOD(LEFT(A1,{1,2,3}),2)),3),MID(A1,MATCH(1-MODE(MOD(LEFT(A1,{1,2,3}),2)),MOD(LEFT(A1,{1,2,3}),2),),1),"")

wddn

QUOTE:

以下是引用chrisfang在2008-9-18 9:30:00的发言：

117字符：

=IF(MOD(SUM(MOD(LEFT(A1,{1,2,3}),2)),3),MID(A1,MATCH(1-MODE(MOD(LEFT(A1,{1,2,3}),2)),MOD(LEFT(A1,{1,2,3}),2),),1),"")

好！

将3个mid改为LEFT又减了3个字符，受教了。

这样，A列空值返回空，只要121字符，减了5个字符。

=IF(MOD(SUM(MOD(LEFT(A1&0,{1,2,3,4}),2)),3),MID(A1,MATCH(1-MODE(MOD(LEFT(A1,{1,2,3}),2)),MOD(LEFT(A1,{1,2,3}),2),),1),"")

[此贴子已经被作者于2008-9-18 9:55:35编辑过]

xcd

QUOTE:

以下是引用wddn在2008-9-18 8:35:00的发言：

=IF(MOD(SUM(MOD(MID(A1&"000",{1,2,3},1),2)),3),MID(A1,MATCH(1-MODE(MOD(MID(A1,{1,2,3},1),2)),MOD(MID(A1,{1,2,3},1),2),),1),"")

126字符，空单元格不出错误值。

不错,

换个思路,100字符以内,且保证空单元格不出错误值,大家想想

chrisfang

88字符：

=MID(A1,LOOKUP(SUM(MOD(0&LEFT(A1,{1,2,3}),2)*{4,2,1}),ROW($1:$8)-1,{4,3,2,1,1,2,3,4}),1)

chrisfang

73字符：

=MID(A1,MOD(TEXT(SUM(MOD(0&LEFT(A1,{1,2,3}),2)*{4,2,1}),"[<4]-0")+4,7),1)

chrisfang

60字符：

=MID(A1,ABS(SUM(MOD(0&LEFT(A1,{1,2,3}),2)*{4,2,1})-3.5)+1,1)

icongmu

QUOTE:

以下是引用chrisfang在2008-9-18 10:34:00的发言：

73字符：

=MID(A1,MOD(TEXT(SUM(MOD(0&LEFT(A1,{1,2,3}),2)*{4,2,1}),"[<4]-0")+4,7),1)

继续学习中……

[此贴子已经被作者于2008-9-18 10:46:10编辑过]