VBA第6课 循环判断数据

Sub do_loop循环判断()Dim cj%cj = 1Docj = cj + 1    If cj > 10 Then        Exit Do               '退出循环    Else        If Cells(cj, 2) >= 90 Then Cells(cj, 3) = "优秀"        If Cells(cj, 2) >= 80 And Cells(cj, 2) <= 90 Then Cells(cj, 3) = "良好"        If Cells(cj, 2) >= 60 And Cells(cj, 2) <= 80 Then Cells(cj, 3) = "合格"        If Cells(cj, 2) < 60 Then Cells(cj, 3) = "不及格"        End IfLoopEnd Sub

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

下面较常用:

在下标有规律且单元格区域相邻的情况下:

Sub 循环()Dim n As IntegerFor n = 1 To 8Range("c" & n) = Range("a" & n) * Range("b" & n)Next nEnd Sub

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

在下标无规律的情况下,且单元格不相邻如:

Sub 循环2()Dim rg As RangeFor Each rg In Range("a1:b8, E9:F13")If rg = "" Thenrg = 0End IfNext rgEnd Sub

转载请注明作者与出处：http://blog.csdn.net/u013511642  王小涛_同學