关于与不同部门比较排名的问题

his803

chxw68 发表于 2022-12-6 19:39
那就看不懂了。

抱歉，我没有表述清楚，我起初用的是倒序排名，现在改为正序排名

chxw68

his803 发表于 2022-12-6 19:56
抱歉，我没有表述清楚，我起初用的是倒序排名，现在改为正序排名

看了楼上的公式才明白了一点，你举的这个例子是个极端的情况，容易误导大家。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         .Range("d2:d" & r).ClearContents
   
7.         arr = .Range("a2:d" & r)
   
8.         For i = 1 To UBound(arr)
   
9.             s = 1
   
10.             For j = 1 To UBound(arr)
    
11.                 If j <> i And arr(i, 1) <> arr(j, 1) Then
    
12.                     If arr(j, 3) > arr(i, 3) Then
    
13.                         s = s + 1
    
14.                     End If
    
15.                 End If
    
16.             Next
    
17.             arr(i, 4) = s
    
18.         Next
    
19.         .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
20.     End With
    
21. End Sub
    

复制代码

chxw68

笨办法，效率不高。

his803

chxw68 发表于 2022-12-6 20:03
笨办法，效率不高。

谢谢禇老师的无私帮助，已经完美实现了目的。
的确，我这情况很极端，因为涉及到年终考评，数据只与兄弟部门进行对比。
再次感谢禇老师，送上小花花！

his803

chxw68 发表于 2022-12-6 20:03
笨办法，效率不高。

再次看了老师的代码，老师的思路的确清晰而且独特，困扰我好1天的问题，被您短短几分钟就解决了。膜拜！

tanglf188

his803 发表于 2022-12-6 19:50
对，您理解正确，是我没表达清楚，我弄的是按数量大小进行倒序排名，其实以正序排名也可以

最后的0改为1就是降序，VBA插入函数即可，一个意思

his803

tanglf188 发表于 2022-12-6 20:34
最后的0改为1就是降序，VBA插入函数即可，一个意思

谢谢您的无私帮助！！！

chxw68

可以去掉一个判断条件。

his803

chxw68 发表于 2022-12-7 09:59
可以去掉一个判断条件。

谢谢老师！老师精益求精的精神值得我们学习！