While循環

Sub MarkRed()

　　  Dim i
 　　 i = 2

　　　While Cells(i, 2) <> ""
 
       If Cells(i, 3) < 60 Then
          Cells(i, 3).Font.Color = vbRed

     End If
       i = i + 1
  Wend
  End Sub

--------------------------------------------------------------------------------------------------------------------------------

Sub 成績平均点()

   Dim i, count, total
   
   total = 0
   count = 0
   
   i = 13
   Do While Cells(i, 2) <> ""
        total = total + Cells(i, 3)
        count = count + 1
        i = i + 1
    Loop
    
    If count > 0 Then
        Cells(14, 5) = total / count
    End If

End Sub