代码排位 感谢各位热心帮助的老师

gsxxjd

请根据综合得分，把排名结果显示在排名列谢谢要求
1、用代码
2、能多表通用
（各表数据多少不同，我只做了两张表，实际还有）
3、合计、片区行数据不参加排位
4、分班分校排名

gsxxjd

别沉了，谢谢大家

abc123281

[i4]==RANK(H4,$H$4:$H$24)

gsxxjd

谢谢，我想请你用代码解决这个问题可以不？

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, k
  arr = Range("a1:k" & Cells(Rows.Count, "a").End(xlUp).Row)
  For i = 1 To UBound(arr, 1)
    If arr(i, 1) = "班级" Then
      i = i + 1
      For j = i To UBound(arr, 1)
        If arr(j, 1) = "片区" Then
          For k = i To j: arr(k, 11) = k: Next
          Call dsort(arr, i, j, 1, UBound(arr, 2), 8, False)
          Call rank(arr, i, j, 8, 9, True)
          Call dsort(arr, i, j, 1, UBound(arr, 2), 11, True)
          i = j: Exit For
        End If
      Next
    End If
  Next
  [a1].Resize(UBound(arr, 1), UBound(arr, 2) - 1) = arr
End Sub

Function dsort(arr, first, last, left, right, key, order)
  Dim i, j, k, t
  For i = first To last - 1
    For j = i + 1 To last
      If arr(i, key) < arr(j, key) Xor order Then
        For k = left To right
          t = arr(i, k): arr(i, k) = arr(j, k): arr(j, k) = t
        Next
      End If
  Next j, i
End Function

Function rank(arr, first, last, key, col, order)
  Dim i, j, m
  m = 1: arr(first, col) = 1
  For i = first + 1 To last
    If order Then
      m = m + 1
    Else
      If arr(i, key) <> arr(i - 1, key) Then m = m + 1
    End If
    arr(i, col) = IIf(arr(i, key) = arr(i - 1, key), arr(i - 1, col), m)
  Next
End Function

gsxxjd

谢谢，能帮忙改个通用的不？，实际有多张表，每张数据多少不同

一把小刀闯天下

相应行替换一下，给你再加了一个条件，满意来朵小花，，，
If arr(j + 1, 1) = "片区" Or arr(j + 1, 1) = "合计" Then

gsxxjd

合计、片区行数据不参加排位

gsxxjd

一把小刀闯天下 发表于 2019-1-19 12:47
相应行替换一下，给你再加了一个条件，满意来朵小花，，，
If arr(j + 1, 1) = "片区" Or arr(j + 1, 1) = ...

老师：合计、片区行数据不参加排位，应怎样改，另外4个单位要单独排

扑腾

请见附件：