Excel VB中Do Until语句异常求助（含代码与问题详情）

需求回顾 #

• 底行区域：E13:P13，每个单元格值为对应前两行（如E11+E12=E13）的和
• 处理逻辑：遍历E13:P13每个单元格：
  • 若当前底行单元格值<10，就累加对应顶行单元格（如E11对应E13）的数值，直到底行值>10
  • 若底行值≥10则跳过，继续处理下一个单元格
  • 需添加计数器防止死循环

原代码问题修复 #

针对列出的三个问题，逐个修复：

1. Offset偏移错误 + 循环停止条件错误
   原代码中cell.Offset(2).Value是向下偏移2行（比如E13偏移到E15），完全偏离目标：

• 要判断的是当前底行单元格（cell本身，即E13）的值，直接用cell.Value即可
• 要累加的是对应顶行单元格（E13往上偏移2行是E11），用cell.Offset(-2).Value；同时因为底行是前两行之和，每次顶行+1后，必须重新计算底行值为cell.Offset(-2).Value + cell.Offset(-1).Value，原代码直接给底行+1的逻辑不符合需求设定

2. 计数器k未重置导致后续单元格无法处理
   原代码把k定义在For Each循环外，处理完一个单元格后k不会清零，导致后续单元格直接触发k=4000的条件停止。需要把k的声明和初始化放到For Each循环内部，每次处理新单元格时重置为0。

3. 死循环防护逻辑优化
   把计数器的判断条件放到循环里，同时确保每次循环都更新底行的数值（顶行变化后，底行必须重新计算为前两行之和）。

修复后完整代码 #

Sub For_Loop()
    Dim cell As Range
    Dim k As Integer ' 用Integer足够，4000在范围内
    
    For Each cell In Range("E13:P13")
        k = 0 ' 每个单元格处理前重置计数器
        ' 判断当前底行单元格值是否小于10
        If cell.Value < 10 Then
            ' 循环直到底行值>10 或计数器达到4000（防止死循环）
            Do Until cell.Value > 10 Or k = 4000
                k = k + 1
                ' 累加对应顶行单元格（往上偏移2行，比如E13对应E11）
                cell.Offset(-2).Value = cell.Offset(-2).Value + 1
                ' 重新计算底行单元格值（前两行之和）
                cell.Value = cell.Offset(-2).Value + cell.Offset(-1).Value
            Loop
        End If
        ' 若底行值≥10，直接跳过，无需额外操作
    Next cell
End Sub

代码说明 #

• 每次处理新单元格时，计数器k重置为0，确保每个单元格的死循环防护独立生效
• 正确使用Offset(-2)定位到对应顶行单元格，累加后重新计算底行值，符合“底行是前两行之和”的规则
• 循环条件直接判断当前底行单元格的值，确保满足条件后停止循环

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