Sub while实例() Dim rs% rs = 2 Do While Cells(rs, 2) <> "" If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good" rs = rs + 1 Loop End Sub
时间: 2024-11-11 06:48:25
Sub while实例() Dim rs% rs = 2 Do While Cells(rs, 2) <> "" If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good" rs = rs + 1 Loop End Sub