求班名次的VBA代码

gswycjc · 发表于 2022-12-23 19:27

求每个学生的总分在本班内的排名的VBA代码（例如有三个第4名，则下一个是第7名），求高手赐教。见附件

剑指E · 发表于 2022-12-23 19:59

本帖最后由剑指E 于 2022-12-23 20:01 编辑

给个公式简单处理下,O2:
=COUNTIFS(D:D,D2,F:F,">"&--F2)+1
下拉

洋务德雷 · 发表于 2022-12-23 22:39

看看是不是你要的排名？

Hontyu · 发表于 2022-12-23 23:09

参与一下

LIUZHU · 发表于 2022-12-23 23:10

不得不说，这个问题用VBA其实挺繁琐的，用2楼的公式更好些

LIUZHU · 发表于 2022-12-23 23:11

我嫌VBA太麻烦，用WPS的JS宏写了一个

LIUZHU · 发表于 2022-12-23 23:11

附件在此，测试出的结果和2楼的公式一样

cai2532 · 发表于 2022-12-24 08:56

不错，留个脚印参考下

gswycjc · 发表于 2022-12-24 11:40

二楼的公式这是简单有效。另几位大侠的宏在我的电脑上不能运行，也许是我的VBA安装不完全所致。谢谢各位！

gswycjc · 发表于 2022-12-24 11:41

我暂时是通过排序手段处理的：
Sub 班名次()
c = Range("c65536").End(xlUp).Row
Rows("2:" & c).Sort Key1:=Range("d2"), order1:=1, Key2:=Range("f2"), order2:=2
m = 0
For i = 2 To c
If Cells(i, 6) > 0 And Cells(i, 4) <> Cells(i - 1, 4) Then
Cells(i, 15) = 1
Else
  If Cells(i, 6) > 0 And Cells(i, 6) <> Cells(i - 1, 6) Then
  Cells(i, 15) = Cells(i - 1, 15) + m + 1
  m = 0
Else
  If Cells(i, 6) > 0 Then
Cells(i, 15) = Cells(i - 1, 15)
m = m + 1
  End If
End If
End If
Next i
End Sub

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

[求助] 求班名次的VBA代码

评分

评分