VBA学习07_While循环/DO WHILE 循环

For

当一天和尚,撞一天钟

While

我不会在任务没完成的情况下离开的

WHILE  循环条件
	循环体
WEND

WHILE Cells(i, 1) <> ""
    If Cells(i, 2) < 60 Then
        Cells(i, 2).Font.Color = vbRed
    End If
    
    i = i + 1
WEND	

DO While

Do While Cells(i, 1) <> ""
    If Cells(i, 2) < 60 Then
        Cells(i, 2).Font.Color = vbRed
    End If
    
    i = i + 1
Loop

Sub report()
	Dim i , total ,count 
	
	total  = 0
	count = 0
	
	i = 2
	Do	While  Cells(i,1) <> ""
		total  = tatal + Cells(i,2)    '总成绩
		count  = count + 1     '学生人数
		i = i + 1    '循环变量
	Loop
	
	If count > 0 Then
		Cells(4,4) = total / count
	End If
End Sub

嵌套循环

Sub changeUnit()
	Dim i ,j ,ws
	For Each ws In Worksheets ''--------> 一层循环
		i = 2
		' i 代表行号,遇到第一列为空的行则停止
		Do While ws.Cells(i,1) <> ""   '--------> 二层循环
			' j代表列号,每行都是9列
			For j = 2 To 10  			'--------> 三层循环
				ws.Cells(i,j) = ws.Cells (i,j) * 0.453
			Next j 
			i = i + 1
		Loop
		ws.Cells(i,9) = "磅"
	Next ws
End Sub