Office 365中Excel单元格更新宏仅运行一次后失效问题咨询

你的宏在Office 365/2016/2019中只能运行一次，核心原因是**Worksheet_Change事件的递归触发干扰了Excel的事件处理机制**：

• 当你在G列输入值时，宏会修改前一列（F列）的值并清空G列单元格，这两个操作都会触发新的Worksheet_Change事件。
• 旧版Office 2007对这种重复触发的容忍度较高，不会影响后续事件；但Office 365的事件引擎会因为这种无意义的递归触发进入“抑制”状态，导致后续的G列输入不再触发宏。

解决这个问题的关键是在修改单元格内容时临时禁用事件触发，避免递归，同时添加错误处理确保事件状态能恢复：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim FirstNum As Currency
    Dim SecNum As Currency
    
    ' 跳过批量单元格修改（比如粘贴多值到G列）
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Target.Column = 7 Then ' 仅响应G列（第7列）的修改
        ' 临时关闭事件触发，防止修改单元格时递归调用自身
        Application.EnableEvents = False
        
        ' 错误捕获：确保即使出错也能恢复事件状态
        On Error GoTo Cleanup
        
        FirstNum = Target.Offset(0, -1).Value
        SecNum = Target.Value
        
        ' 计算并更新前一列（F列）的值
        Target.Offset(0, -1).Value = FirstNum + SecNum
        ' 清空当前输入的G列单元格
        Target.Clear
        
    Cleanup:
        ' 无论执行成功还是出错，必须恢复事件触发
        Application.EnableEvents = True
        ' 如果有错误，提示用户
        If Err.Number <> 0 Then
            MsgBox "宏执行出错: " & Err.Description, vbExclamation
        End If
    End If
End Sub

• Application.EnableEvents = False/True：这是核心修复点。关闭事件后，修改F列和清空G列的操作不会再次触发Worksheet_Change，避免了递归导致的事件引擎异常。
• 批量操作过滤：If Target.Cells.Count >1 Then Exit Sub防止用户批量粘贴内容到G列时，宏因为处理多个单元格而出错。
• 错误捕获：On Error GoTo Cleanup确保即使代码执行中遇到错误（比如G列输入的不是数值），也能恢复事件触发状态——如果漏掉这一步，Excel的事件会一直处于关闭状态，后续所有工作表事件都无法运行。

1. 将上述代码替换你原有的Sheet1绑定代码；
2. 保存文档并重新打开（或在VBA编辑器中按F5重新加载宏）；
3. 在G列任意单元格输入数值，测试宏是否能重复正常执行：前一列值更新、当前列清空，且可以连续多次操作。

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