大家好，今天跟大家分享如何用VBA代码快速计算不同考生选择题的个人总得分。

应用案例

某场考试共有20道单项选择题，答案从A、B、C、D4个选项中进行选择，下图工作表C列中显示了不同考生20道题的答题结果，20道题的标准答案为：BBBABCBDADBBADBBADDD，每答对一题得5分，未答对的题不得分，要求在D列中求取所有考生的总得分。

操作步骤

1 打开工作表，在“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。

2 在打开的VBA编辑器窗口中，执行“插入”—“模块”命令，此时会在窗口左侧列表中新增一个“模块1”。

3 在模块1的代码编辑窗口中输入如下代码：

Public Function score(ans As String) As Integer

Const key As String = "BBBABCBDADBBADBBADDD"

Dim i As Integer

For i = 1 To 20

If Mid(ans, i, 1) = Mid(key, i, 1) Then

score = score 5

End If

Next i

End Function

4 返回工作表，选中D2单元格，在英文状态下输入公式：=score(C2)，即可返回第一个考生“春香”的总得分85。

5 将D2单元格中的公式向下填充，可快速得到所有人的得分。

今天的分享就到这里，欢迎关注，一起学习更多职场办公技能！#职场技能##职场加油站##头条职场##职场升职季##office办公技能#