Excel VBA 基础：循环与条件判断

通过 VBA 中的 For 循环和 If 条件语句，实现批量数据处理与自动化判断。 · 难度：入门 · +15XP

VBA 编程核心

VBA（Visual Basic for Applications）是 Excel 的编程语言，可以控制几乎所有 Excel 对象。本节课聚焦于两个最常用的结构：循环 和 条件判断。

For 循环

遍历指定范围的行或列：

Sub 遍历单元格()
    Dim i As Integer
    For i = 1 To 10
        Cells(i, 1).Value = i * 10  ' 在A列填充10,20,...,100
    Next i
End Sub

If...Then 条件判断

根据单元格值执行不同操作：

Sub 标记大于100()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If cell.Value > 100 Then
            cell.Interior.Color = vbGreen
        Else
            cell.Interior.Color = vbRed
        End If
    Next cell
End Sub

综合案例：批量修改数据

假设 B 列有销售金额，C 列根据金额显示“高/中/低”：

Sub 添加评级()
    Dim i As Long, 金额 As Double
    For i = 2 To Range("B" & Rows.Count).End(xlUp).Row
        金额 = Cells(i, 2).Value
        If 金额 >= 10000 Then
            Cells(i, 3).Value = "高"
        ElseIf 金额 >= 5000 Then
            Cells(i, 3).Value = "中"
        Else
            Cells(i, 3).Value = "低"
        End If
    Next i
End Sub

练习提示

编写一个 VBA 宏，遍历 A 列数据，如果单元格包含“错误”二字，则将其整行字体颜色设为红色并删除该单元格内容（使用 InStr 函数判断）。