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

学习 VBA 中的 For 循环和 If 条件语句，实现对单元格数据的批量处理。 · 难度：入门 · +15XP

VBA 循环与条件判断

VBA（Visual Basic for Applications）是 Excel 内置的编程语言。循环和条件判断是编写自动化脚本的核心。通过它们，你可以逐行检查数据并做出响应。

核心语法

• For 循环：For i = 1 To 10 ... Next i
• If 条件：If 条件 Then ... Else ... End If
• 单元格对象：Cells(行, 列) 或 Range("A1")

实战案例：标记低于平均值的数值

假设 A 列有 20 个数值，需要将所有低于平均值的单元格填充为红色，高于等于平均值的填充为绿色。

VBA 代码示例

Sub HighlightAboveBelowAverage()
    Dim i As Integer
    Dim total As Double, avg As Double
    Dim count As Integer
    
    count = 20
    total = 0
    
    ' 计算总和
    For i = 1 To count
        total = total + Cells(i, 1).Value
    Next i
    
    avg = total / count
    
    ' 根据平均值着色
    For i = 1 To count
        If Cells(i, 1).Value < avg Then
            Cells(i, 1).Interior.Color = RGB(255, 0, 0) ' 红色
        Else
            Cells(i, 1).Interior.Color = RGB(0, 255, 0) ' 绿色
        End If
    Next i
End Sub

练习提示

修改上述代码，使得当数值等于平均值时填充为黄色。同时尝试使用 Range("A1:A20") 代替 Cells 循环。