使用Do While循环的VBA代码无法正常循环，请求技术协助

代码问题排查 #

• 核心错误为循环计数器的增量逻辑错误：你代码中i = i + 10的写法会导致第一次循环结束后i值直接变为11，不再满足Do While i <= 10的循环条件，因此整个循环只会执行1次，无法完成10行的遍历操作。
• 附加问题：代码依赖ActiveCell和Select操作，运行前如果未选中目标列的起始单元格，会出现标记范围错位的问题，且频繁调用Select会降低代码运行效率。

修复后可正常运行的代码 #

Public Sub FunWithLoops()
' 功能：遍历当前选中单元格起始的10行数据，将数值大于10的单元格背景标红
    Dim i As Integer
    i = 1
    
    Do While i <= 10
        If ActiveCell.Value > 10 Then
            ActiveCell.Interior.Color = RGB(255, 0, 0)
        End If
        ActiveCell.Offset(1, 0).Select
        ' 修正增量为+1，逐行遍历
        i = i + 1
    Loop
    
End Sub

优化版代码（无需选中单元格，可自定义遍历范围） #

如果不想依赖选中单元格的位置，可以直接指定遍历的列和起始行，示例如下：

Public Sub FunWithLoops_Optimized()
' 功能：遍历A列第1行到第10行的数据，将数值大于10的单元格背景标红
    Dim i As Integer
    i = 1
    
    Do While i <= 10
        ' 直接指定单元格位置，无需Select操作
        If Cells(i, "A").Value > 10 Then
            Cells(i, "A").Interior.Color = RGB(255, 0, 0)
        End If
        i = i + 1
    Loop
End Sub

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