大家帮忙看下如何用vba实现自动填充班内排名名次，祝大家新年快乐

dzzxlbj

排名.rar (6.61 KB, 下载次数: 9)

2020-1-24 22:17 上传

点击文件名下载附件

zmj9151

顶一下，新年快乐

3190496160

要想得到完美解决，就上传像样一点的附件，目前的附件，写出代码来，你还得追问的

liuxi001

http://club.excelhome.net/thread-1455269-1-1.html
参考。。。

网海遨游

针对你提供的数据源

Sub test()
  r = Cells(Rows.Count, 1).End(3).Row
  c = Cells(1, Columns.Count).End(1).Column
  For i = 1 To c Step 2
    For j = 2 To r
    Cells(j, i + 1) = Application.Rank(Cells(j, i), Range(Cells(2, i), Cells(r, i + 1)))
    Next j
  Next i
End Sub

网海遨游

这是附件，请测试。

凌空一羽

Sub lkyy()
Dim ak(1 To 3)
ar = Range("a1").CurrentRegion
For i = 2 To UBound(ar)
    ak(1) = 0
    ak(2) = 0
    ak(3) = 0
    For k = 1 To 3
        For j = 2 To UBound(ar)
            If ar(i, k * 2 - 1) < ar(j, k * 2 - 1) Then ak(k) = ak(k) + 1
        Next
        Cells(i, k * 2) = ak(k) + 1
    Next
Next
End Sub

WYS67

网海遨游 发表于 2020-1-25 13:11
这是附件，请测试。

跟着老师学技巧。

szqhb

跟着学习，收藏之。

vansiper

新年好,其实不用这么麻烦,先在最后一列记下现在的顺序123456789,然后再全选后按语文降序排序,依次写上语文的班级名次,再全选后按数学降序排序,依次写上数学的班级名次,再全选后按英语降序排序,依次写上英语的班级名次,再全选后按之前记录的顺序升序排序