寻找最佳数字组合(用VBA或函数公式都可)

香川群子 · 发表于 2013-10-24 20:37

jxlhx97601 发表于 2013-10-24 20:26
谢谢,这个代码真不错.如果想增加寻找结果的组数,(也就是说,原来如果只显示出出现最多的前10位,现在想多显示 ...

代码注释你没看！

With [a2].Offset(, m + 4)
      .CurrentRegion.Offset(1) = ""
      .Resize(k, 3) = jg                                     '输出结果到工作表
      .Resize(k, 3).Sort .Offset(0, 0), 2, , , , , , 2 '结果按出现次数倒排序
      .Resize(k, 3).Offset(15) = ""                      '仅保留前15个结果（需要增减保留数时改Offset括号里的值即可）
End With

jxlhx97601 · 发表于 2013-10-24 21:17

本帖最后由 jxlhx97601 于 2013-10-24 21:19 编辑

仔细学习代码,第一问题已经解决".Resize(k, 3).Offset(15) = "" '仅保留前15个结果（需要增减保留数时改Offset括号里的值即可）",期待高手帮忙解决第二个问题:想增加一个验证功能,即在A1输入(年份+序号),通过点验证按钮,在C1:I1显示A1所表示的所在行的数字.附件在10楼上.

jxlhx97601 · 发表于 2013-10-24 21:21

香川群子发表于 2013-10-24 20:37
代码注释你没看！

With [a2].Offset(, m + 4)

发现了,谢谢{:soso_e113:}

jxlhx97601 · 发表于 2013-10-24 21:56

增减保留数超过15时在M15中出现了"年份序号 2003058 2005139 2006079 2008050 2012078 2013061,不知哪里出错?

jxlhx97601 · 发表于 2013-10-24 22:21

经过验证,发现是在A1:I1输入了数据才出现了"年份序号 2003058 2005139 2006079 2008050 2012078 2013061,不知有无解决方法?

liurj · 发表于 2014-7-12 22:17

香川群子发表于 2013-10-24 20:37
代码注释你没看！

With [a2].Offset(, m + 4)

这代码写的真好，下载学习中，谢谢！

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

[求助] 寻找最佳数字组合(用VBA或函数公式都可)