Excel VBA Worksheet_Change事件For循环运行异常，修改单元格影响所有行

问题根源 #

For循环完全可以在Worksheet_Change事件中正常运行，你遇到的全表被修改的问题是代码逻辑错误导致的，核心问题有2个：

• 第一个判断条件没有绑定当前变更行Target，全局遍历所有行时只要任意行满足F列=Yes、G列=Full，就会触发修改逻辑，影响所有符合条件的行
• Intersect判断逻辑错误：Intersect(Target, Range("G" & i & ":G" & LR))的判定范围是G列i行到最后一行，只要Target在这个区间内，所有i小于等于Target行的判断都会成立，最终批量修改所有行

修正后代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim LR As Long, i As Long, rng As Range
    ' 禁用事件防止触发递归
    Application.EnableEvents = False
    
    LR = Cells(Rows.Count, "C").End(xlUp).Row
    ' 只遍历变更涉及的行，不需要遍历全表
    For Each rng In Target.Rows
        i = rng.Row
        ' 只处理2行到最后有效行范围内的变更
        If i < 2 Or i > LR Then GoTo NextRow
        
        ' 仅当前行F列为Yes时才执行后续逻辑
        If Cells(i, 6).Value <> "Yes" Then GoTo NextRow
        
        ' 判断当前行G列是否为变更对象
        If Not Intersect(Target, Range("G" & i)) Is Nothing Then
            Select Case Cells(i, 7).Value
                Case "Full"
                    Cells(i, 8).Value = Cells(i, 3).Value
                    Cells(i, 9).ClearContents
                    Cells(i, 10).Value = Cells(i, 8).Value + Cells(i, 9).Value
                Case "Portion"
                    Cells(i, 8).Value = Cells(i, 3).Value
                    Cells(i, 10).Value = Cells(i, 8).Value + Cells(i, 9).Value
            End Select
        End If
NextRow:
    Next rng
    
    ' 恢复事件
    Application.EnableEvents = True
End Sub

改动说明 #

• 取消全表遍历逻辑，仅遍历本次变更涉及的行，性能提升同时避免误操作其他行
• 所有判断都绑定当前变更行，只有当前行满足条件才会执行修改
• 移除了原代码中无意义的Target.Value = Cells(i, 3).Value赋值逻辑，该逻辑会反复覆盖当前修改单元格的内容，不符合常规业务逻辑，如你确实需要该功能可自行加回对应判断分支中
• 合并重复逻辑，用Select Case简化判断
• 将EnableEvents开关提到最外层，避免重复开关导致的事件失效问题
• 新增行号合法性校验，避免操作表头或无效行

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