Excel VBA计算循环相互干扰问题排查与分离方法咨询

核心问题 #

第二个循环的calcRangeAll范围（F16:M83）完全包含了第一个循环的目标区域F16:F19，且这些行不在你设置的跳过行列表中，导致第二个循环会遍历到F16:F19的单元格，用outputValueF11覆盖第一个循环写入的outputValueF39计算结果。

解决方案1：在第二个循环中跳过目标单元格 #

直接在第二个循环的跳过判断里新增条件，排除F16:F19区域的单元格：

' 第二个循环修改后的代码
Dim calcRangeAll As Range
Set calcRangeAll = Sheets("Kalkulation Final").Range("F16:M83")

For Each cell In calcRangeAll
    ' 新增判断：跳过F列16-19行，保留原跳过行逻辑
    If cell.Row = 20 Or cell.Row = 27 Or cell.Row = 33 Or cell.Row = 38 Or cell.Row = 50 Or cell.Row = 57 Or cell.Row = 64 Or cell.Row = 68 Or cell.Row = 69 Or cell.Row = 70 Or cell.Row = 71 Or cell.Row = 72 Or cell.Row = 79 Or cell.Row = 83 _
        Or (cell.Column = 6 And cell.Row >= 16 And cell.Row <= 19) Then
        GoTo SkipCell
    End If
    
    If IsNumeric(cell.Value) Then
        cell.Value = Round((cell.Value + outputValueF11) / 2, 2)
    Else
        cell.Value = outputValueF11
    End If

SkipCell:
Next cell

解决方案2：重新定义第二个循环的范围（更高效） #

直接构造不包含F16:F19的区域，避免无效的单元格遍历：

' 重新定义第二个循环的范围，排除F16:F19
Dim calcRangeAll As Range
With Sheets("Kalkulation Final")
    Set calcRangeAll = Union(.Range("F21:F83"), .Range("G16:M83"))
End With

For Each cell In calcRangeAll
    If cell.Row = 20 Or cell.Row = 27 Or cell.Row = 33 Or cell.Row = 38 Or cell.Row = 50 Or cell.Row = 57 Or cell.Row = 64 Or cell.Row = 68 Or cell.Row = 69 Or cell.Row = 70 Or cell.Row = 71 Or cell.Row = 72 Or cell.Row = 79 Or cell.Row = 83 Then
        GoTo SkipCell
    End If
    
    If IsNumeric(cell.Value) Then
        cell.Value = Round((cell.Value + outputValueF11) / 2, 2)
    Else
        cell.Value = outputValueF11
    End If

SkipCell:
Next cell

补充说明 #

你之前尝试的Exit For是终止整个循环，而需求是跳过特定单元格，所以不适用。上述两种方法都能实现两个循环的逻辑分离，确保F16:F19仅被第一个循环处理。

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