WHILE....WED,DO WHILE...LOOP循环

需求？

1、把语文成绩<60的标记为红颜色
2、计算平均分

解决方法，WHILE…WED

Option Explicit

Sub WHILE循环()
    Dim Y '行号
    Y = 2
    While Cells(Y, 1) <> "" '当第Y行第一列的内容不为空的时候,遇到空单元格结束循环
        If Cells(Y, 2) < 60 Then
            Cells(Y, 2).Font.Color = vbRed  '标记红色
        Else
        End If
        Y = Y + 1 '如果没有这句代码，每次要检查两行，循环将不会停止
    Wend

解决方法2，DO WHILE…LOOP

Option Explicit
Sub DOWH()
    Dim I, Total, Count   'I行号，Total 总分，Count 总人数
    Total = 0 '累加器
    Count = 0 '计数器
    I = 2
    Do While Cells(I, 1) <> ""
        Total = Total + Cells(I, 2) 'Total 总分
        Count = Count + 1 '总人数
        I = I + 1
    Loop
    If Count > 0 Then
        Cells(17, 4) = Total / Count
    End If
End Sub