[第104期]男女搭配（已总结）

丢丢表格

俗话说: 男女搭配,干活不累 !你现在是总队长, 你要把 C:L 列中的男女给搭配起来.

规则:
以男组女,(单数代表男性,双数表示女性)
每行为一队,组对时,只在行中组. (每行是 0 至 9 的 10 个整数,没有空值和负数)
从C列往右找第一个出现的单数后,再向后找最先出现的双数作配对.
接着再在这个双数后面找到单数后再向后找双数，如此循环……
组对时，必须男大于女。

要求:
纯函数题,不允许使用自定义名称或VBA ,不允许辅助列
若队内无任何一组男女组对成功,则显示空白 如 12 行 所示
O2公式下拉完成(多单元格数组公式亦可),不限OFFICE版本
结果如 P 列所示（显示效果一致即可）:组与组之间留一空值就行 ,只有一组的, 前或后带个空值都没有关系.

评分标准 :.精彩答案（至少<220字符）  3分
<270字符  2分
<330字符  1分                     

提示:
题材出自数据的奇偶组合.



总结在14楼
http://club.excelhome.net/forum.php?mod=viewthread&tid=1112937&page=2&extra=#pid7590172

delete_007

211字符：

1. =SUBSTITUTE(TEXT(SUM(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2<>-1^C2:L2,COLUMN(A:J)*10+C2:L2,909),ROW($1:$5)*2-{1,0}),10),{10;1}),"[<"&REPLACE(COLUMN(A:I)*1011,3,,"]!0;[<")&"];!0")*10^{8;6;4;2;0}),REPT(" 00",5))," 00",)

复制代码

TEXT的第二参数有几种变化：
214字符：
=SUBSTITUTE(TEXT(SUM(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2<>-1^C2:L2,COLUMN(A:J)*10+C2:L2,909),ROW($1:$5)*2-{1,0}),10),{10;1}),"[>="&COLUMN(A:J)*11&"]!0;[>="&COLUMN(A:J)*10&"];!0")*10^{8;6;4;2;0}),REPT(" 00",5))," 00",)
213字符：
=SUBSTITUTE(TEXT(SUM(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2<>-1^C2:L2,COLUMN(A:J)*10+C2:L2,909),ROW($1:$5)*2-{1,0}),10),{10;1}),"[<"&TEXT(COLUMN(A:I)*1011,"00""]!0;[<""00")&"];!0")*10^{8;6;4;2;0}),REPT(" 00",5))," 00",)
暂时还没有其它思路。
换个思路，179字符：

1. =SUBSTITUTE(TEXT(SUM(MOD(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2=-1^C2:L2,909,COLUMN(A:J)*10+C2:L2),{11,12}-A$2:A$6*2),10),{110;-99}),"[>99];!0"),100)*100^A$2:A$6),REPT(" 00",6))," 00",)

复制代码

wangg913

最近时间不多，有时间再简化。2014-4-16

1. =TRIM(SUBSTITUTE(TEXT(SUM(RIGHT(TEXT(MMULT(IFERROR(N(OFFSET(B2,,SMALL(IF(-1^B2:K2<>-1^C2:L2,COLUMN(A:J)),11-A$2:A$6*2+{1,0,1,0}))),100),{1;10;-100;100}),"0;\0"),2)*100^A$2:A$6),REPT(" 00",6)),0&0,))

复制代码

简化一下，2014-4-17

1. =TRIM(SUBSTITUTE(TEXT(SUM(RIGHT(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2--1^C2:L2,COLUMN(A:J)/1%%+C2:L2,380^2),{12,11}-A$2:A$6*2),10^3),{-99;110}),"0;\0"),2)*100^A$2:A$6),REPT(" 00",6)),0&0,))

复制代码

再减，如果仅仅看起来像。2014-4-18

1. =SUBSTITUTE(TEXT(SUM(RIGHT(TEXT(MMULT(MOD(SMALL(IF(-1^B2:K2--1^C2:L2,COLUMN(A:J)/1%+C2:L2,13.2^3),{12,11}-A$2:A$6*2),100),{-99;110}),"0;\0"),2)*100^A$2:A$6),REPT(" 00",6))," 00",)

复制代码

※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

第二种办法，比较繁琐。

1. =TRIM(SUBSTITUTE(TEXT(SUM(TEXT(RIGHT(SMALL(MOD(LARGE((-1^TRANSPOSE(C2:L2)>-1^C2:L2)*(A$2:A$11>COLUMN(A:J))*(-1^B2:K2<>-1^C2:L2)*(10-A$2:A$11&N(TRANSPOSE(C2:L2)>C2:L2)&C2:L2&TRANSPOSE(C2:L2))+COLUMN(A:J)/1%%,A$2:A$11*10-9),10^4),A$7:A$11),3),"[>99]!0")*100^A$2:A$6)%,REPT(" 00",5)),0&0,))

复制代码

aoe1981

不好意思，我没有搞清楚题意：感觉第1队应当是　52　50　；第7队应当是　76　；第11队应当是　54　10　呀？哦，明白了似乎，真的不好意思，不能删帖呀……双数也是要找第一个出现的，对吧？

张文洲

每一行重复值怎么弄
第一行应该是 52 50 吧  难道第2个5能取？

lasharks

几经折腾，终于捣鼓出一个
1. 268字符，高版本中的IFERROR确实好用，省了好多字符

1. =SUBSTITUTE(TEXT(SUM(IFERROR(RIGHT(TEXT(MMULT(MMULT(INDEX(C2:L2,,N(IF(1,SMALL(IF(MOD(C2:L2-B2:K2,2),COLUMN(A:J),10),ROW(INDIRECT("1:"&FLOOR(SUM(MOD(C2:L2-B2:K2,2)),2)/2))*2+COLUMN(A:B)-2)))),{1,10;-1,1}),{100;1}),"#;\0"),2)*100^(5-ROW($1:$5)),)),REPT("00 ",5)),"00 ",)

复制代码

---

你的思路容错的位置和方法有漏洞，要稍加修改才能满足要求，如下（217字符）：
=SUBSTITUTE(TEXT(SUM(RIGHT(TEXT(MMULT(INDEX(C2:M2,,N(IF(1,LARGE(IF(MOD(C2:L2-B2:K2,2),COLUMN(A:J),10),A$2:A$6*2-{0,1})))),{110;-99}),"0;\0"),2)/1%^A$2:A$6*(A$2:A$6+SUM(MOD(C2:L2+B2:K2,2))/2>=6)),REPT("00 ",6)),"00 ",)

          ——delete_007

huahua2005

O2单元格输入公式，三键下拉完成，251字符

1. =TEXT(SUM(RIGHT(SMALL((MMULT(-RIGHT(SMALL(IF(MOD(B2:K2+C2:L2,2),C2:L2+COLUMN(A:J)*10,999),ROW($1:$5)*2+{-1,0})),{-1;1})>0)*SMALL(IF(MOD(B2:K2+C2:L2,2),C2:L2+COLUMN(A:J)*10,999),ROW($1:$5)*2+{-1,0}),ROW($1:$10)))*10^(10-ROW($1:$10))),"## ## ## ## 00;;")

复制代码

qy1219no2

按照楼主释义，题目中第一个结果就有问题吧，应该是52 50

jsxjd

数组公式，下拉。188 Chars：

1. =TRIM(SUBSTITUTE(TEXT(SUM(MOD(TEXT(MMULT(MOD(SMALL(IF(MOD(C2:L2-B2:K2,2),C2:L2+COLUMN(A:J)*10,999),{1;3;5;7;9}+{0,1}),10),{110;-99}),"[<100]\0"),100)*10^{8;6;4;2;0}),REPT(" 00",5)),"00",))

复制代码

数组公式，下拉。177 Chars：

1. =SUBSTITUTE(TEXT(SUM(MOD(TEXT(MMULT(MOD(LARGE(IF(MOD(C2:L2-B2:K2,2),C2:L2+COLUMN(A:J)*10,999),A$2:A$6*2-{0,1}),10),{110;-99}),"[<100]\0"),100)/1%^A$2:A$6),REPT(" 00",9))," 00",)

复制代码

wlc5201130

252
=SUBSTITUTE(TEXT(SUM(RIGHT((MMULT(-RIGHT(SMALL(IF(MOD(B2:K2+C2:L2,2),COLUMN(A:J)*10+C2:L2,999),ROW($1:$5)*2+{-1,0})),{-1;1})>0)*SMALL(IF(MOD(B2:K2+C2:L2,2),COLUMN(A:J)*10+C2:L2,999),ROW($1:$5)*2+{-1,0}))*10^{9,8;7,6;5,4;3,2;1,0}),REPT("00 ",5)),"00 ",)
数组下拉