|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
回复 1楼 wangg913 的帖子
版主把路给堵死了(不准用countif(offset())),搞了几个,其中有个长度209,太恶心了。
终于碰巧,有了一个,先交上:
长度:165
E21=MID(SUM(RIGHT(LARGE(MMULT(COLUMN(A:T)^0,(A1:A20=COLUMN(A:J)-1)*2^ROW($1:$20)*5)+COLUMN(A:J)-1,ROW($1:$10)))/10^ROW($1:$10))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
数组公式,下拉。
简化:长度:149
E21=MID(SUM(RIGHT(LARGE(MMULT(2^COLUMN(A:T),5*(A1:A20=COLUMN(A:J)-1))+COLUMN(J:S),ROW($1:$10)))/10^ROW($1:$10))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
再给一个,硬凑,长度:199
E21=MID(SUM(RIGHT(SMALL(FIND(COLUMN(A:J)-1,RIGHT(0&SUM(A8:A20*10^ROW($2:$14))%,13)&SUM(A1:A8*10^ROW($2:$9))%&5^19)/1%+COLUMN(A:J)-1,COLUMN(A:J)))/10^COLUMN(A:J))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
(说明其中A8字符是0也不会遗失)
再给一个,长度:204
E21=MID(SUM(RIGHT(SMALL(MATCH(COLUMN(A:J)-1,IF(ROW($1:$30)<21,LOOKUP(21-ROW($1:$20),ROW($1:$20),A1:A20),ROW($1:$30)-21),)/1%+COLUMN(J:S),COLUMN(A:J)))/10^COLUMN(A:J))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
硬搞一个,长度:203(呵呵^^)
E21=MID(SUM(RIGHT(SMALL(FIND(COLUMN(A:J)-1,A20&A19&A18&A17&A16&A15&A14&A13&A12&A11&A10&A9&A8&A7&A6&A5&A4&A3&A2&A1&5^19)/1%+COLUMN(J:S),COLUMN(A:J)))/10^COLUMN(A:J))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
以上公式最后全是MID(SUM(RIGHT(SMALL/LARGE()))结束,换一种思路:
公式长度:183
E21=MID(SUM(N(OFFSET(A$1,LARGE(MOD(SMALL((ROW(1:20)-1)*(A1:A20=COLUMN(A:J)-1)+COLUMN(A:J)/1%,20*COLUMN(A:J)),100),COLUMN(A:J)),))/10^COLUMN(A:J))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
公式长度:178
E21=MID(SUM(RIGHT(LARGE(RIGHT(SMALL(ROW($1:$20)*(A1:A20=COLUMN(A:J)-1)/1%+COLUMN(A:J)*10001,20*COLUMN(A:J)),4)-1,COLUMN(A:J)))/10^COLUMN(A:J))&0,3,COUNT(MATCH(COLUMN(A:J)-1,A1:A20,)))
[ 本帖最后由 fangjianp 于 2011-4-5 16:49 编辑 ] |
评分
-
3
查看全部评分
-
|