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

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

VBA 入门

VBA 是 Excel 的宏语言，可以控制 Excel 的几乎所有功能。本节课我们将学习循环和条件判断，这是自动化处理大量数据的核心技能。

核心概念

• For Each 循环：遍历一个集合（如所有选定单元格）。
• If 语句：根据条件执行不同操作。
• Range 对象：代表一个或多个单元格。

实战：标记低于平均值的销售额

假设 A 列有 10 个销售额数值，我们想将低于平均值的单元格标红。

代码示例

Sub MarkBelowAverage()
    Dim cell As Range
    Dim total As Double
    Dim count As Integer
    Dim average As Double
    
    ' 计算平均值
    For Each cell In Range("A1:A10")
        total = total + cell.Value
        count = count + 1
    Next cell
    average = total / count
    
    ' 标记低于平均值的单元格
    For Each cell In Range("A1:A10")
        If cell.Value < average Then
            cell.Interior.Color = RGB(255, 0, 0)
            cell.Font.Color = RGB(255, 255, 255)
        End If
    Next cell
End Sub

练习提示

修改上述代码：
1. 不仅标红低于平均值的单元格，还要在右侧 B 列对应行写入“Below”。
2. 添加一个 Else 条件，将高于平均值的单元格标绿，并在 B 列写入“Above”。