Excel VBA宏需求：公式单元格值变更时同步另一单元格

问题核心是Worksheet_Change事件仅响应手动编辑的单元格变更，公式单元格的计算结果更新不会触发该事件。你的P24是公式=A6，当A6下拉选项改变时，P24值更新但不会触发现有宏，导致P25无法同步。

方案一：直接监控数据源A6的变更（推荐，高效） #

因为P24的数值完全依赖A6，直接监控A6的变更事件，同步P24到P25，同时保留原有的P24/P25手动同步逻辑：

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    
    ' P24手动修改时同步到P25
    If Target.Address = "$P$24" Then
        Me.Cells(25, 16).Value = Me.Cells(24, 16).Value
    ' P25手动修改时同步到P24
    ElseIf Target.Address = "$P$25" Then
        Me.Cells(24, 16).Value = Me.Cells(25, 16).Value
    ' A6下拉选项变更时，同步P24的计算值到P25
    ElseIf Target.Address = "$A$6" Then
        Me.Cells(25, 16).Value = Me.Cells(24, 16).Value
    End If
    
    Application.EnableEvents = True
End Sub

方案说明 #

• 用Me替代ActiveSheet，避免切换工作表时出现错误
• 仅在A6、P24、P25发生变更时执行逻辑，性能更优

方案二：使用Worksheet_Calculate事件（适配多依赖场景） #

如果P24的公式依赖多个单元格，可通过监控工作表计算事件，对比P24的前后值变化来同步：

' 模块级变量，存储P24的上一次计算值
Private p24LastValue As Variant

Private Sub Worksheet_Activate()
    ' 激活工作表时初始化变量
    p24LastValue = Me.Cells(24, 16).Value
End Sub

Private Sub Worksheet_Calculate()
    Dim currentP24Value As Variant
    currentP24Value = Me.Cells(24, 16).Value
    
    ' 仅当P24值确实变化时同步
    If currentP24Value <> p24LastValue Then
        Application.EnableEvents = False
        Me.Cells(25, 16).Value = currentP24Value
        Application.EnableEvents = True
        p24LastValue = currentP24Value ' 更新记录值
    End If
End Sub

' 保留原有的手动修改同步逻辑
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Application.EnableEvents = False
    
    If Target.Address = "$P$24" Then
        Me.Cells(25, 16).Value = Me.Cells(24, 16).Value
        p24LastValue = Me.Cells(24, 16).Value ' 更新记录值
    ElseIf Target.Address = "$P$25" Then
        Me.Cells(24, 16).Value = Me.Cells(25, 16).Value
        p24LastValue = Me.Cells(24, 16).Value ' 更新记录值
    End If
    
    Application.EnableEvents = True
End Sub

方案说明 #

• 模块级变量p24LastValue用于记录P24的上一次值，避免每次计算都触发同步
• Worksheet_Activate初始化变量，确保打开工作表时记录的是当前值
• 若宏运行中出错导致事件禁用，可在VBA编辑器立即窗口输入Application.EnableEvents = True恢复

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