Sub util實例() Dim rs% rs = 2 Do Until Cells(rs, 2) = "" If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good" rs = rs + 1 Loop End Sub