重复操作是Excel工作中的“幽灵”，它悄无声息地吞噬着我们的时间和耐心。而VBA，正是驱逐这个“幽灵”的终极武器。今天，我们来聊聊VBA自动化的核心——循环语句，彻底搞懂For Next和For Each的区别与应用场景，让你的代码效率翻倍！

你是否也曾这样？

• 手动复制粘贴成百上千行数据，眼花缭乱。
• 逐个点击工作表进行格式调整，手指发麻。
• 一遍遍执行相同的计算公式，枯燥乏味。

如果有，那么你迫切需要掌握循环语句。它能让计算机不知疲倦地替你完成这些重复劳动。

一、循环的基石：For Next循环

For Next循环是VBA中最基础、最直观的循环语句。它的核心思想是通过计数器来控制循环次数。

基本语法结构：

For 计数器 = 起始值 To 结束值 [Step 步长]
    ' 要重复执行的代码块
Next [计数器]

• 计数器：一个数值变量，用于记录当前循环到第几次。
• 起始值 / 结束值：循环的开始和结束的数值。
• Step 步长：可选参数。每次循环后计数器的增量，默认为1。如果设为2，则计数器变化为 1, 3, 5...；设为-1则可实现倒序循环。

实战场景1：批量处理连续单元格

假设我们需要将A1到A10单元格的值都乘以2。

Sub ForNextDemo()
    Dim i As Integer ' 声明计数器i

    For i = 1 To 10 ' 从1循环到10
        Cells(i, 1).Value = Cells(i, 1).Value * 2 ' 对A列第i行的单元格进行操作
    Next i

End Sub

进阶技巧：倒序循环
为什么需要倒序？当你需要删除行时，从前往后删会导致行号变化，引发错误。从后往前删则完美避开此问题。

Sub DeleteOddRows()
    Dim i As Integer
    ' 从第10行循环到第1行，步长为-1
    For i = 10 To 1 Step -1
        If i Mod 2 = 1 Then ' 判断是否为奇数行
            Rows(i).Delete
        End If
    Next i
End Sub

二、更智能的循环：For Each循环

如果说For Next是“指哪打哪”，那For Each就是“横扫千军”。它不关心位置和索引，只专注于遍历一个集合中的每一个对象。

基本语法结构：

For Each 元素 In 集合
    ' 对每个元素执行的代码块
Next 元素

• 元素：一个对象变量，代表集合中的单个成员。
• 集合：可以是工作表集合(Worksheets)、单元格区域(Range)、图表集合(Charts)等。

实战场景2：处理非连续区域或所有工作表

假设我们需要隐藏所有工作表名称中包含“备份”二字的工作表。

Sub ForEachDemo()
    Dim ws As Worksheet ' 声明一个工作表对象变量

    For Each ws In ThisWorkbook.Worksheets ' 遍历本工作簿中的每一个工作表
        If InStr(ws.Name, "备份") > 0 Then ' 检查工作表名是否包含“备份”
            ws.Visible = xlSheetHidden ' 隐藏该工作表
        End If
    Next ws

End Sub

实战场景3：遍历选中的单元格区域

处理用户选中的任意形状的区域，For Each是唯一的选择。

Sub HighlightNegative()
    Dim rng As Range
    Dim cell As Range

    Set rng = Selection ' 将当前选中的区域赋值给rng
    For Each cell In rng ' 遍历选区中的每一个单元格
        If IsNumeric(cell.Value) And cell.Value < 0 Then
            cell.Interior.Color = vbRed ' 将负数单元格标红
        End If
    Next cell
End Sub

三、For Next与For Each：如何选择？

看完上面的例子，你是否已经有了答案？它们的核心区别在于循环的依据。

一个简单的选择指南：

• 如果你想操作第1行、第2行……第N行，用 For Next。
• 如果你想操作每一个工作表、选中的每一个单元格，用 For Each。

四、避坑指南与最佳实践

1. 避免在For Each循环中修改集合：在For Each循环中直接删除或添加集合成员（如工作表）可能导致意外错误。这种情况下，使用For Next倒序循环更安全。
2. 活用Exit For：在循环体内使用If ... Then Exit For可以提前退出循环，节省时间。
3. 关闭屏幕刷新：在循环开始前加上Application.ScreenUpdating = False，结束后再设为True，可以极大提升代码运行速度。

For Next和For Each是VBA自动化之路上的左膀右臂。理解它们的内在逻辑，根据实际场景选择最合适的工具，是你从VBA新手走向高手的必经之路。

现在，打开你的VBA编辑器，找一个重复性任务，尝试用循环语句来解决它吧！你会发现，效率提升的成就感，无比美妙。