[已解决]求助：绝对排名

QQ9947 · 发表于 2009-12-11 22:29

mtA4Q105.rar (3.77 KB, 下载次数: 0)

oobird · 发表于 2009-12-11 22:42

还是用公式方便！

=SUMPRODUCT((B$2:B$21>B2)*(1/COUNTIF(B$2:B$21,B$2:B$21)))+1

girlov · 发表于 2009-12-11 22:49

=SUM(IF(B$2:B$21>B2,1/COUNTIF(B$2:B$21,B$2:B$21)))+1

数组

QQ9947 · 发表于 2009-12-11 22:53

谢谢2楼和3楼两位大侠，函数解决已经有人帮忙解决了，我想知道解决这个问题的VBA代码，了解每个语句的意思和作用，请赐教，谢谢！！

qrst540 · 发表于 2009-12-11 23:23

提示: 作者被禁止或删除内容自动屏蔽

雨狐 · 发表于 2009-12-11 23:28

skrPdtea.rar (9.72 KB, 下载次数: 0)

QQ9947 · 发表于 2009-12-11 23:50

Option Explicit

Sub a()
Dim i%, j%, K%
Dim arr, arrt()
Dim d As New Dictionary
arr = Range("a2:b" & [a65536].End(xlUp).Row)
For i = 1 To UBound(arr)
    d(arr(i, 2)) = ""
Next
For j = 1 To d.Count
    d(WorksheetFunction.Large(d.Keys, j)) = j
Next
ReDim arrt(1 To UBound(arr))
For K = 1 To UBound(arr)
    arrt(K) = d(arr(K, 2))
Next
[e2].Resize(UBound(arrt), 1) = WorksheetFunction.Transpose(arrt)
End Sub

谢谢5楼的代码！

可以写个批注说明每句代码的意思和作用吗？

我看不懂，想研究研究，谢谢了！

[此贴子已经被作者于2009-12-11 23:56:36编辑过]

zsd5237 · 发表于 2009-12-12 05:18

学习[em02][em02]

雨狐 · 发表于 2009-12-12 11:58

添加注释

5DwVtXrv.rar (10.09 KB, 下载次数: 5)

QQ9947 · 发表于 2009-12-12 16:16

多谢8楼，我不懂VBA，只能慢慢理解！

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

qrst540 qrst540 当前离线积分 0 IP卡狗仔卡	发表于 2009-12-11 23:23 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
qrst540 qrst540 当前离线积分 0 IP卡狗仔卡
	回复使用道具举报显身卡