Excel VBA：如何在For Each循环中跳过指定数量的单元格

问题核心 #

For Each循环是按集合固有顺序遍历元素，无法直接跳过后续指定数量的元素，需要通过额外逻辑实现跳过需求。以下提供两种可行方案：

方案1：改用For...Next索引循环（推荐） #

直接基于单元格的位置索引循环，遇到触发条件时主动增加循环变量，实现跳过后续2个单元格：

Option Explicit

Sub LoopItems()
    Dim rRange As Range
    Dim i As Long
    
    Set rRange = Range("e2:e700")
    
    '从区域的第一个单元格循环到最后一个
    For i = 1 To rRange.Cells.Count
        Dim currentCell As Range
        Set currentCell = rRange.Cells(i)
        
        '遇到空单元格直接退出子程序
        If IsEmpty(currentCell) Then
            Exit Sub
        End If
        
        '当前单元格值为2时，执行操作并跳过后续2个单元格
        If currentCell.Value = 2 Then
            currentCell.Value = currentCell.Value + 2 '执行你的业务操作
            i = i + 2 '主动增加循环变量，跳过下2个单元格
        End If
    Next i
End Sub

方案2：保留For Each循环，用计数器控制跳过 #

维护一个跳过计数器，每次循环先检查计数器状态，若需跳过则递减计数器并跳过当前单元格；触发条件时设置计数器值为2：

Option Explicit

Sub LoopItemsWithSkip()
    Dim rRange As Range, oCell As Range
    Dim skipCount As Integer
    
    Set rRange = Range("e2:e700")
    skipCount = 0
    
    For Each oCell In rRange
        '如果处于跳过状态，递减计数器并跳过当前循环
        If skipCount > 0 Then
            skipCount = skipCount - 1
            GoTo NextCell
        End If
        
        '遇到空单元格直接退出子程序
        If IsEmpty(oCell) Then
            Exit Sub
        End If
        
        '触发条件时设置跳过计数器，同时执行业务操作
        If oCell.Value = 2 Then
            oCell.Value = oCell.Value + 2
            skipCount = 2 '标记需要跳过后续2个单元格
        End If
        
NextCell:
    Next oCell
End Sub

关键说明 #

• 方案1的索引循环逻辑更直观，便于精准控制遍历位置，适合需要明确跳过指定数量单元格的场景。
• 方案2保留了For Each的写法，但依赖额外计数器逻辑，适合不想改变原有循环结构的情况。

内容的提问来源于stack exchange，提问作者oqieurj