VBA案例：求总分、平均分、成绩等级、标记颜色

需求

计算出单个人员的总分、平均分、成绩等级
各科目小于60分标记红色

解决方法

Option Explicit
Sub TEST()
    Dim HANG, ZONG, PING, LIE
    HANG = 2 '行号
    Do While Cells(HANG, 1) <> "" '第二行第一列不为空，遇到为空的行停止
        For LIE = 2 To 5 '列号，每行均有4列数据
            If Cells(HANG, LIE) < 60 Then
                Cells(