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

学习 VBA 中 For 循环和 If 判断，实现批量数据处理。 · 难度：入门 · +15XP

VBA 基础结构

VBA（Visual Basic for Applications）是 Excel 的编程语言。一个 VBA 过程以 Sub 开头，End Sub 结束。你可以通过按下 Alt+F11 打开 VBA 编辑器。

For 循环

以下代码遍历 A1 到 A10 单元格，如果单元格的值小于 60，则将其背景设为红色：

Sub 标记不及格()
    Dim i As Integer
    For i = 1 To 10
        If Cells(i, 1).Value < 60 Then
            Cells(i, 1).Interior.Color = RGB(255, 0, 0)
        End If
    Next i
End Sub

For Each 循环

另一种更安全的方式是使用 For Each 遍历一个区域：

Sub 标记不及格2()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        If cell.Value < 60 Then
            cell.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub

练习提示

在 VBA 编辑器中插入一个新模块，输入上述代码。然后在工作表 A1:A10 输入一些数字（如 45, 78, 55...），运行宏观察效果。尝试修改代码，让大于 90 的单元格变为绿色。