菜鸟的排名难题

cbtaja · 发表于 2016-5-13 22:25

lsc900707 发表于 2016-5-13 21:02
大师，运行结果不对吧？

你把代码放错地方了，当然就不对了！
你还是直接下载4楼的附件吧。

lsc900707 · 发表于 2016-5-13 22:36

对不起，确实是我弄错了。

lsc900707 · 发表于 2016-5-14 13:04

本帖最后由 lsc900707 于 2016-5-14 22:51 编辑

最后由lzqlaj大师精简成如下代码，问题圆满解决。
Dim rng
   ls = Cells(2, 256).End(xlToLeft).Column
   Set rng = Range(Cells(3, l), Cells(p, l))
   rng.FormulaR1C1 = "=SUMPRODUCT((R3C1:R" & p & "C1=RC1)*(R3C8:R" & p & "C8 > RC8))+1"
   rng.Value = rng.Value
   Set rng = Nothing

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

[求助] 菜鸟的排名难题