全民一起VBA基础篇第六课：While语句和多重循环

while语句

while cells(i,2) <> “”
可用来检查内容是否为空，来标记是否到尾巴了

Sub highlightquick()
Dim i As Integer
i = 2
While Cells(i, 2) <> "" '判断是否为空
    If Cells(i, 2) > 500 Then '判断单元格的数值
    
        Cells(i, 2).Font.Bold = True    '用来加粗
        
        With Cells(i, 2).Font   '用来改字体颜色
            .Color = -16776961
            .TintAndShade = 0
        End With
        
    End If
    
    i = i + 1

Wend    '和开头的while呼应

End Sub

同样完成和上一篇一样的任务，这次用while循环
这里解决的是没有空行的情况，有空行的情况之后再谈
如果要判断一行中任一列不为空就执行，可以改为

While Cells(i, 2) <> "" or Cells(i, 3) <> "" 

实际编程中用do while 更多
Sub highlightquick()
Dim i As Integer
i = 2
Do While Cells(i, 2) <> “” '判断是否为空
If Cells(i, 2) > 500 Then '判断单元格的数值

    Cells(i, 2).Font.Bold = True    '用来加粗
    
    With Cells(i, 2).Font   '用来改字体颜色
        .Color = -16776961
        .TintAndShade = 0
    End With
    
End If

i = i + 1
Loop    '和开头的while呼应
End Sub

求平均值

Option Explicit
Sub average()
Dim total
Dim count
Dim mean
Dim i
i = 2
total = 0
count = 0
Do While Cells(i, 2) <> ""  '判断是否为空
    total = total + Cells(i, 2) '求和器
    count = count + 1 '计数器
    mean = total / count '算均值
    i = i + 1
Loop

Cells(4, 4) = mean

End Sub

双重循环

对二重表格进行运算

Option Explicit
Sub toKG()

Dim i, j

i = 2

If Cells(7, 9) = "磅" Then '判断是否能进行转换

    Do While Cells(i, 1) <> "" '控制行
    
        For j = 2 To 10 Step 1 '控制列
        
        Cells(i, j) = Cells(i, j) / 0.45
        
        Next j
        
    i = i + 1
    
        Loop
        
        Cells(7, 9) = "千克"
End If

End Sub