已解决感谢各位前辈。

zmhzmh1999 · 发表于 2011-6-28 10:22

多谢九楼前辈的回帖，归位的位置不对啊，如果用VBA的话，看前辈的代码就像天书，改变列数位置等就会把我难死，唉

dsmch · 发表于 2011-6-28 10:51

原帖由 zmhzmh1999 于 2011-6-28 10:22 发表
多谢九楼前辈的回帖，归位的位置不对啊，如果用VBA的话，看前辈的代码就像天书，改变列数位置等就会把我难死，唉

理解错了，这样？

副本Xl0000003.rar (27.88 KB, 下载次数: 14)

zmhzmh1999 · 发表于 2011-6-28 11:03

多谢前辈的代码，运行高效正确，而且适用一行中多个零的情况，超赞的说

，但如果数据超过四百列，五万行的话，读入内存会溢出吧，能有解决方法吗？

dsmch · 发表于 2011-6-28 11:08

用的03版本，50000行不成问题，列超过了256
07版本可以，按alt+f11查看代码，把代码复制到新工作薄试试

[ 本帖最后由 dsmch 于 2011-6-28 11:09 编辑 ]

zmhzmh1999 · 发表于 2011-6-28 11:16

我用的07，数据最大时能达到900列，五万多行啊

，我用的排序代码都不能读入内存，只能一行一行排序，要花六七分钟，前辈的代码如果也能一行行得出结果就完美了，根本不用担心溢出问题。

swyrlbq · 发表于 2011-6-28 11:28

原帖由 zmhzmh1999 于 2011-6-28 10:17 发表
感谢前辈们回帖，六楼七楼的公式都正确，咱们论坛里真是高手如云啊，再次感谢。能否烦请各位前辈再帮忙改改每行中两个零的公式？要以我的水平好像一星期也研究不出来的，拜托各位前辈了。

先选定m1:w1，然后输入=MMULT({1,1},IF(COLUMN(A1:K1)=COUNTIF($A1:$L1,">="&LARGE(IF($A2:$L2,,$A1:$L1),{1;2})),LARGE(IF($A2:$L2,,$A1:$L1),{1;2}),))按三键，下拉。
如果是三个或以上，稍微修改一下公式。

lwwcom · 发表于 2011-6-28 11:30

=IF(ISERROR(MATCH(LARGE($A1:$K1,COLUMN(A1)),IF($A2:$K2=0,$A1:$K1,""),)),"",IF(MATCH(LARGE($A1:$K1,COLUMN(A1)),IF($A2:$K2=0,$A1:$K1,""),),LARGE($A1:$K1,COLUMN(A1)),""))

复制代码

公式有点小长，数组下拉右拉

zmhzmh1999 · 发表于 2011-6-28 11:30

经过测试，前辈的代码适用于很多情况，即使一行中有几个零一样能得出正确结果，实在完美，但在一百列，五万行数据读取中提示溢出，正尝试改为一行行得出结果，无奈水平有限，怎么试也不行，还请前辈指点。

dsmch · 发表于 2011-6-28 11:35

把附件发到dsmch@163.com,帮你看看能否解决。

zmhzmh1999 · 发表于 2011-6-28 11:39

原帖由 swyrlbq 于 2011-6-28 11:28 发表

先选定m1:w1，然后输入=MMULT({1,1},IF(COLUMN(A1:K1)=COUNTIF($A1:$L1,">="&LARGE(IF($A2:$L2,,$A1:$L1),{1;2})),LARGE(IF($A2:$L2,,$A1:$L1),{1;2}),))按三键，下拉。
如果是三个或以上，稍微修改一下公式。

实在麻烦前辈了，公式测试研究中。。。测试完毕，运算正确，万分感谢，我自己再研究研究。

[ 本帖最后由 zmhzmh1999 于 2011-6-28 13:00 编辑 ]

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

[求助] 已解决感谢各位前辈。

回复 18楼 zmhzmh1999 的帖子