Excel中的For循环：从基础到实战

在Excel中处理重复性任务时，For循环是自动化的核心工具。无论是遍历单元格、处理数组还是操作对象，For循环都能大幅提升效率。本文将带你掌握VBA中的For循环，并提供可直接套用的代码示例。

For Next循环

最基本的循环结构，语法如下：

For i = 起始值 To 结束值 [Step 步长]
    循环体
Next i

示例：将A1:A10单元格值加10。

Dim i As Integer
For i = 1 To 10
    Cells(i, 1).Value = Cells(i, 1).Value + 10
Next i

For Each循环

对对象集合中的每个元素执行操作，无需显式索引。

For Each 元素 In 集合
    循环体
Next 元素

示例：修改所有选定单元格的背景色为黄色。

Dim rng As Range
For Each rng In Selection
    rng.Interior.Color = vbYellow
Next rng

数组循环

结合For循环高效处理数组数据。

Dim arr() As Variant
arr = Range("A1:A10").Value  ' 将区域存入数组
For i = 1 To UBound(arr, 1)
    arr(i, 1) = arr(i, 1) * 2
Next i
Range("A1:A10").Value = arr  ' 写回工作表

实战案例：批量创建图表

假设有6个月份的数据在B2:G2，需要为每个月生成图表。

Dim cht As ChartObject
Dim col As Integer
For col = 2 To 7
    Set cht = ActiveSheet.ChartObjects.Add(Left:=100 + (col-2)*150, Top:=100, Width:=100, Height:=100)
    cht.Chart.SetSourceData Source:=Range(Cells(2, col), Cells(2, col))
    cht.Chart.ChartType = xlColumnClustered
Next col

注意事项

• 避免在循环中频繁读写工作表，优先使用数组处理数据后再一次性写入。
• 使用Step参数控制步长，例如Step -1实现倒序循环。
• 嵌套循环时注意缩进清晰，避免逻辑混乱。

掌握For循环，你就能将重复劳动交给Excel自动完成。现在打开VBA编辑器（Alt+F11），尝试编写第一个循环吧！