在Excel自动化领域，VBA循环是处理重复性任务的超级引擎。掌握循环技巧，能让你的工作效率提升十倍！下面通过实战案例，带你深入理解VBA循环的威力。

一、For Each循环：遍历集合的利器

最适合处理Excel对象集合（如工作表、单元格区域等）：

Sub 批量重命名工作表()
    Dim ws As Worksheet
    Dim i As Integer
    i = 1
    
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ws.Name = "数据表_" & i  ' 新名称格式
        i = i + 1
    Next ws
    
    MsgBox "所有工作表重命名完成！"
End Sub

关键点：For Each循环自动处理集合中的每个元素，无需手动计数，代码简洁高效。

二、Do While循环：动态数据处理的法宝

当处理不确定行数的数据时特别有效：

Sub 标记空行()
    Dim r As Integer
    r = 1 ' 从第1行开始
    
    ' 循环直到遇到空单元格
    Do While Cells(r, 1).Value <> ""
        If WorksheetFunction.CountA(Rows(r)) = 0 Then
            Rows(r).Interior.Color = RGB(255, 200, 200) ' 标记空行
        End If
        r = r + 1
    Loop
    
    MsgBox "空行标记完成！"
End Sub

三、经典For循环：精准控制的最佳选择

需要精确控制循环次数时的首选：

Sub 创建月度工作表()
    Dim i As Integer
    
    ' 创建12个月的工作表
    For i = 1 To 12
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Format(DateSerial(Year(Date), i, 1), "yyyy-mm")
    Next i
    
    ' 添加目录页
    Sheets.Add Before:=Sheets(1)
    ActiveSheet.Name = "目录"
    For i = 1 To 12
        Cells(i, 1).Value = Sheets(i + 1).Name
        Cells(i, 1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & Sheets(i + 1).Name & "'!A1"
    Next i
End Sub

四、循环中的高效技巧

1. 提前退出循环：使用Exit For或Exit Do提升效率

For i = 1 To 1000
    If Cells(i, 1).Value = "停止" Then
        Exit For  ' 找到目标立即退出
    End If
Next i

2. 嵌套循环处理二维数据

For row = 1 To 10
    For col = 1 To 5
        Cells(row, col).Value = row * col  ' 创建乘法表
    Next col
Next row

3. 禁用屏幕刷新加速循环

Application.ScreenUpdating = False  ' 开始循环前关闭刷新
'...执行循环操作...
Application.ScreenUpdating = True   ' 结束后恢复

五、实战案例：数据清洗自动化

Sub 数据清洗()
    Dim lastRow As Long
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 从最后一行向上遍历（避免删除行导致的错位）
    For i = lastRow To 2 Step -1
        ' 删除空行
        If IsEmpty(Cells(i, 1)) Then
            Rows(i).Delete
        ' 清除错误值
        ElseIf IsError(Cells(i, 2)) Then
            Cells(i, 2).ClearContents
        ' 格式化日期
        ElseIf IsDate(Cells(i, 3)) Then
            Cells(i, 3).NumberFormat = "yyyy-mm-dd"
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "数据清洗完成！共处理 " & lastRow & " 行数据"
End Sub

最佳实践建议：

1. 循环前设置Calculation = xlCalculationManual避免公式重算
2. 处理大量数据时使用数组代替直接操作单元格
3. 始终添加错误处理On Error Resume Next
4. 关键操作添加注释说明

重要提醒：循环中删除行时务必从下往上遍历（使用Step -1），否则会导致索引错位！

掌握这些循环技巧，你将能轻松应对：
批量数据处理
报表自动生成
数据清洗转换
系统自动化操作

循环结构是VBA自动化的脊梁。通过本文的实战案例，你已经获得了处理Excel重复任务的强大能力。立即动手尝试这些代码，开启你的高效办公之旅吧！

Tips：每个高效的VBA程序背后，都有一个精心设计的循环引擎。