求一人扣分，给其他人加分的方法

cqz1314

记分.rar (8.19 KB, 下载次数: 23)

2020-7-3 23:48 上传

点击文件名下载附件

在E1:T46这个范围内，输入学生的学号，每记录一个学号，就给其他人加1分，个人总加分记录到B列对应单元格里。

比如，记录学号35，那么就给除了35号以外的所有人+1分，
          又记录了学号40号，那么就给除40号以外的所有人+1分，

         这时35号、40号各得1分，其他所有都得2分。

涉及区域选择，请用“E1:T46”这种格式。

辛苦，谢谢。

smhf_6

Sub xxxx()
Dim i, kz, c As Range
Dim dc As Object
Set dc = CreateObject("scripting.dictionary")
For Each c In Range("e1:t46")
If c <> "" Then
dc(c.Value) = dc(c.Value) + 1
kz = kz + 1
End If
Next
For i = 2 To 46
Cells(i, 3) = kz - dc(Cells(i, 1).Value)
Next
Set dc = Nothing
End Sub

'这个代码是需要点击运行的，也可以用事件代码，不过太自动了不太好

smhf_6

若未涂色，也可以一条解决，kz = Range("e1:t46").Count

liu3741186

这个还是很简单的，函数就行，总共填了多少个 减去 对应的学号出现了多少次
在C2输入公式，往下填充就行
=COUNTIF($E$1:$T$46,">0")-COUNTIF($E$1:$T$46,A2)