[第61期]列出所有最长字符串

donghan · 发表于 2010-7-10 08:32

如果大家都理解对了版主的意思，得2分的人应该很多的

donghan · 发表于 2010-7-10 16:37

原帖由 wangg913 于 2010-7-9 11:29 发表
这是第二次错解题意了，以后要注意了。
不过解这题目的时候，跟“冻豆腐”大师学到不少东西。感觉自己数组公式的水平提高不少。

“冻”大师什么时候给你开小灶了呀，真羡慕。

冻豆腐 · 发表于 2010-7-11 08:11

这是位数的关系，把10^7,改为9*10^6应该没有问题。

donghan · 发表于 2010-7-16 11:32

按我出题的意图，求对称中最长的字符串，目前答案有以下几个感觉是对的：
1、wangg913 的单个单元格数组公式：
=INDIRECT("a"&SUM(INT(LARGE((MMULT((CODE(RIGHT(1&A$1:A$8&1,COLUMN(A:U)))-CODE(MID(1&A$1:A$8,COLUMN(A:U),1)&1))^2,ROW(1:21))=0)*LEN(A$1:A$8)-ROW($1:$8)%,ROW()^{0,1,0})*10^{0,2,-2}+{2,0,1})*{100,-1,-100}))&""
下拉
2、冻豆腐的单个单元格数组公式：
=INDIRECT("A"&RIGHT(9*10^6-MMULT(LARGE((MMULT(1-(CODE(MID(0&A$1:A$8&0,COLUMN(A:BJ),1)&0)=CODE(RIGHT(0&A$1:A$8&0,COLUMN(A:BJ)))),ROW(4:65))=0)*LEN(A$1:A$8&0)/1%-ROW($1:$8),ROW()^{0,1,1}),{10;-10;1}^5),2))&""
下拉
3、综合各公式再简化的多单元格数组公式（187字符）：
=INDEX(A:A,MMULT(INT(LARGE((MMULT(FIND(MID(A1:A8,COLUMN(A:BG),1),RIGHT(A1:A8,COLUMN(A:BG))&A1:A8),ROW(1:59)^0)=59)*LEN(A1:A8)-ROW()%,ROW()^{0,1,0})*10^{0,2,-2}+{2,0,1}),{100;-1;-100}))&""
公式解释请参考以下链接
http://club.excelhome.net/thread-600331-1-1.html
4、简化的另一个单个单元格数组公式：
=INDIRECT("a"&SUM(INT(LARGE((MMULT(FIND(MID(A$1:A$8,COLUMN(A:BH),1),RIGHT(A$1:A$8,COLUMN(A:BH))&A$1:A$8),ROW(1:60)^0)=60)*LEN(A$1:A$8)-ROW($1:$8)%,ROW()^{0,1,0})*10^{0,2,-2}+{2,0,1})*{100,-1,-100}))&""
下拉

[ 本帖最后由 donghan 于 2010-7-19 17:34 编辑 ]

wangg913 · 发表于 2010-7-19 10:19

目前这样看起来更短些。多单元格统一公式。长度193。
=INDEX(A:A,MMULT(INT(LARGE((MMULT(FIND(MID(A1:A8,COLUMN(A:BG),1),RIGHT(A1:A8,COLUMN(A:BG))&A1:A8),ROW(1:59)^0)=59)*LEN(A1:A8)-ROW(1:8)%,ROW(1:8)^{0,1,0})*10^{0,2,-2}+{2,0,1}),{100;-1;-100}))&""

wddn · 发表于 2010-7-19 10:32

公式不需要引用这么多列数，这样就可以了:：
=INDEX(A:A,SMALL(IF((LEN(A$1:A$8)=MAX(LEN(A$1:A$8)))*(MMULT(--EXACT(RIGHT(LEFT(A$1:A$8,COLUMN(A:AD))),LEFT(RIGHT(A$1:A$8,COLUMN(A:AD)))),ROW(1:30)^0)=30),ROW($1:$8),9),ROW(A1)))&""
最近太忙了，e没有时间上论坛了。

donghan · 发表于 2010-7-19 11:31

原帖由 wangg913 于 2010-7-19 10:19 发表
目前这样看起来更短些。多单元格统一公式。长度193。
=INDEX(A:A,MMULT(INT(LARGE((MMULT(FIND(MID(A1:A8,COLUMN(A:BG),1),RIGHT(A1:A8,COLUMN(A:BG))&A1:A8),ROW(1:59)^0)=59)*LEN(A1:A8)-ROW(1:8)%,ROW(1:8)^{0,1 ...

再化简ROW(1:8)为ROW(),目前最终为187字符：
=INDEX(A:A,MMULT(INT(LARGE((MMULT(FIND(MID(A1:A8,COLUMN(A:BG),1),RIGHT(A1:A8,COLUMN(A:BG))&A1:A8),ROW(1:59)^0)=59)*LEN(A1:A8)-ROW()%,ROW()^{0,1,0})*10^{0,2,-2}+{2,0,1}),{100;-1;-100}))&""
公式解释见下连接：
http://club.excelhome.net/viewth ... amp;extra=page%3D1#

donghan · 发表于 2010-7-20 17:31

原帖由 wddn 于 2010-7-19 10:32 发表
公式不需要引用这么多列数，这样就可以了:：
=INDEX(A:A,SMALL(IF((LEN(A$1:A$8)=MAX(LEN(A$1:A$8)))*(MMULT(--EXACT(RIGHT(LEFT(A$1:A$8,COLUMN(A:AD))),LEFT(RIGHT(A$1:A$8,COLUMN(A:AD)))),ROW(1:30)^0)=30),R ...

多单元格数组公式：
=INDEX(A:A,SMALL(IF(MAX(LEN(A1:A8))=LEN(A1:A8)*(MMULT(FIND(MID(A1:A8,COLUMN(A:BH),1),RIGHT(A1:A8,COLUMN(A:BH))&A1:A8),ROW(1:60)^0)=60),ROW(),9),ROW()))&""

lhx120824 · 发表于 2010-8-10 18:18

看看你们的公式，才知道写公式就如写文章，既能用文字表达清楚，又能简到不能再简，真不容易，没有一定的道业那只能旁观。不过看长了有点长进，就是看到长公式不再晕了。

huotie · 发表于 2015-4-14 22:16

大神，请帮我看一下这个应该怎么改？
谢了~

		自动登录	找回密码
密码			免费注册

[Excel 函数与公式] [第61期]列出所有最长字符串

回复 30楼 lzzgzby 的帖子

回复 3楼东方之珠0 的帖子

本帖子中包含更多资源

[Excel 函数与公式] [第61期]列出所有最长字符串

回复 30楼 lzzgzby 的帖子

回复 3楼 东方之珠0 的帖子

本帖子中包含更多资源

回复 3楼东方之珠0 的帖子