遍历选定range奇数序号单元格的最优循环类型及语法

针对单行Range区域遍历固定间隔奇数位置单元格的场景，带自定义步长的For...Next循环是最优选择。
这种写法不需要在循环体内做奇偶性判断，直接通过步长参数控制每次遍历的位置，循环次数直接减半，无多余逻辑分支，性能最高，代码可读性也最好。

不推荐其他循环类型的原因：

• For Each循环：必须遍历区域内全部20个单元格，每轮都要额外做位置奇偶判断，存在一倍的冗余遍历操作，单元格数量越多性能损耗越明显
• Do/Loop循环：需要手动维护计数器、手动判断循环终止边界，代码冗余度高，容易出现边界计数错误

注意VBA中Range的Cells集合索引从1开始计数，和你需要的第1、3、5...位置的计数规则完全匹配，步长设置为2即可：

Sub TraverseOddPositionCells()
    Dim selectedRng As Range
    Dim totalCells As Long, idx As Long
    
    ' 绑定选中的单行目标区域
    Set selectedRng = Selection
    totalCells = selectedRng.Cells.Count
    
    ' 从第1位开始，步长为2，仅遍历奇数位置单元格
    For idx = 1 To totalCells Step 2
        ' 以下替换为你需要对单元格执行的实际逻辑
        ' 示例：打印单元格地址、修改单元格填充色
        Debug.Print "当前处理第" & idx & "个单元格，地址：" & selectedRng.Cells(idx).Address
        selectedRng.Cells(idx).Interior.Color = RGB(255, 255, 153)
    Next idx
End Sub

• 单行选中场景下，Cells(idx)默认按从左到右的顺序计数，完全匹配你需要的位置规则，不需要额外处理行列索引
• 20个单元格的场景下，该写法只会执行10次循环，无任何多余判断，是所有实现方案中效率最高的
• 如果后续需要调整遍历间隔，只需要修改Step后面的步长值即可，比如要遍历偶数位置只需要把循环起始值改成2，不需要改动其他逻辑

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