Excel VBA中Range.Value赋值失效问题排查求助

兄弟，我碰到过一模一样的坑！你这情况大概率是事件递归触发在搞事情，另外还有几个常见的小问题也可能导致这个现象，咱们一步步来排查解决：

最可能的原因：事件递归触发 #

当你在Worksheet_Change事件里修改单元格值时，Excel会再次触发这个事件，相当于代码自己调用自己——要么导致逻辑混乱被打断，要么Excel自动阻止了后续的赋值操作。解决这个的核心是在操作单元格前临时关闭事件触发，操作完成后再恢复。

其他可能的诱因 #

• 工作表保护：如果Sheet1被保护，且H、J列的“Total”行单元格没解锁，赋值操作会静默失败（如果没开启错误提示的话你甚至看不到报错）。
• 工作表CodeName不匹配：你用了Sheet1，但要确认你的目标工作表的VBA CodeName确实是Sheet1（不是工作表标签名，是VBA编辑器里项目窗口中工作表的名称）。
• 手动计算模式：虽然直接赋值不受计算模式影响，但如果你的工作簿设为手动计算，偶尔也会有显示延迟的情况。

修改后的代码 #

给你的代码加上事件开关和错误处理，确保逻辑能正常执行：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 临时关闭事件触发，避免递归
    Application.EnableEvents = False
    ' 开启错误捕获，确保事件能恢复
    On Error GoTo Cleanup

    If Target.Column = 8 Then
        Dim rw As Long, i As Long
        Dim FreightTotal As Double, OtherTotal As Double
        
        For rw = 11 To 36
            If Range("A" & rw).Value = "Total" Then
                i = rw - 1
                FreightTotal = 0
                OtherTotal = 0
                ' 加上i >=11的判断，防止循环越界到表头
                Do While i >= 11 And Range("BA" & i).Value = Range("BA" & rw).Value
                    FreightTotal = FreightTotal + Range("H" & i).Value
                    OtherTotal = OtherTotal + Range("J" & i).Value
                    i = i - 1
                Loop
                ' 取消注释可在立即窗口查看变量值（调试用）
                ' Debug.Print "赋值行：" & rw & " FreightTotal：" & FreightTotal & " OtherTotal：" & OtherTotal
                Sheet1.Range("H" & rw).Value = FreightTotal
                Sheet1.Range("J" & rw).Value = OtherTotal
            End If
        Next
    End If

Cleanup:
    ' 无论是否报错，都恢复事件触发
    Application.EnableEvents = True
    ' 可选：抛出错误提示，方便调试
    If Err.Number <> 0 Then
        MsgBox "代码执行出错：" & Err.Description, vbExclamation
    End If
End Sub

额外调试建议 #

1. 运行代码前按Ctrl+G打开立即窗口，取消代码中Debug.Print的注释，确认变量值和目标行是否正确。
2. 检查Sheet1的H、J列对应单元格是否被保护：右键单元格→设置单元格格式→保护，取消“锁定”勾选（如果工作表处于保护状态）。

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