不用错误分支语句：
Sub 分数统计（）
Dim a%
For a = 2 To 8
If Cells（a, 2） = "未考" Or Cells（a, 3） = "未考" Then
Cells（a, 4） = ""
Else
Cells（a, 4） = Cells（a, 2） + Cells（a, 3）
End If
Next
End Sub
Sub 分数统计（）
Dim a%
For a = 2 To 8
If Cells（a, 2） = "未考" Or Cells（a, 3） = "未考" Then
Cells（a, 4） = ""
Else
Cells（a, 4） = Cells（a, 2） + Cells（a, 3）
End If
Next
End Sub
本站有权保留或删除有争议评论。 参与本评论即表明您已经阅读并接受上述条款。