很多这样的数据，如何根据总分降序排列，谢谢。

evolymeh · 发表于 2022-5-17 12:52

紫色海水 · 发表于 2022-5-17 14:31

K3：
=INDEX(A$3:A$18,MATCH(1=1,$I$3:$I$18*1=LARGE($I$3:$I$18,ROUNDUP(ROW(A1)/2,0)),)+1*(MOD(ROW(A1),2)=0))
三键结束，右拉下拉

3190496160 · 发表于 2022-5-17 15:21

Sub 排序()
With ActiveSheet
rs = .Cells(Rows.Count, 3).End(xlUp).Row
ar = .Range("a1:i" & rs)
For i = 3 To UBound(ar)
      If Trim(ar(i, 1)) = "" Then ar(i, 1) = ar(i - 1, 1)
      If Trim(ar(i, 2)) = "" Then ar(i, 2) = ar(i - 1, 2)
      If Trim(ar(i, 4)) = "" Then ar(i, 4) = ar(i - 1, 4)
      If Trim(ar(i, 5)) = "" Then ar(i, 5) = ar(i - 1, 5)
      If Trim(ar(i, 9)) = "" Then ar(i, 9) = ar(i - 1, 9)
Next i
For i = 3 To UBound(ar)
      For s = i + 1 To UBound(ar)
         If ar(i, 9) < ar(s, 9) Then
            For j = 1 To UBound(ar, 2)
                  k = ar(i, j)
                  ar(i, j) = ar(s, j)
                  ar(s, j) = k
            Next j
         End If
      Next s
Next i
.Range("a1:i" & rs) = ar
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-5-17 15:22

如何根据总分降序排列.rar (14.63 KB, 下载次数: 6)

evolymeh · 发表于 2022-5-17 16:59

谢谢二位大师的指点。

evolymeh · 发表于 2022-5-18 18:41

Set rng = Range(Cells(i, "F"), Cells(i, "H"), Cells(i, "J"), Cells(i, "L"))

如何修改？谢谢高手

evolymeh · 发表于 2022-5-18 18:44

如何获得Cells(i, "F"), Cells(i, "H"), Cells(i, "J"), Cells(i, "L")这个区域中最大值的COLUMN?

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

[求助] 很多这样的数据，如何根据总分降序排列，谢谢。