ByVal Target As Range在自动刷新/更新工作簿中失效问题求助

问题根源 #

Worksheet_Change事件仅在手动编辑单元格时触发，当A1通过公式计算、外部数据源同步、其他VBA代码修改等方式自动更新时，该事件不会执行。

解决方案1：针对A1为公式计算结果的场景 #

使用Worksheet_Calculate事件，配合模块级变量记录A1的上一次值，避免每次计算都重复写入：

' 在工作表模块顶部声明模块级变量
Private lastA1Value As Variant

Private Sub Worksheet_Calculate()
    ' 检查A1当前值与上一次记录值是否不同
    If Range("A1").Value <> lastA1Value Then
        ' 将A1的值写入B列最后一行的下一行
        Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
        ' 更新上一次记录的值
        lastA1Value = Range("A1").Value
    End If
End Sub

Private Sub Worksheet_Activate()
    ' 工作表激活时初始化变量
    lastA1Value = Range("A1").Value
End Sub

解决方案2：针对A1由其他VBA代码更新的场景 #

直接在修改A1的代码末尾添加写入B列的逻辑，比如：

' 假设这是修改A1的代码
Sub UpdateA1()
    Range("A1").Value = "新的自动更新值"
    ' 直接调用写入B列的操作
    Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A1").Value
End Sub

注意事项 #

• 模块级变量lastA1Value必须声明在工作表模块的最顶部，不能放在任何过程内部。
• 如果A1的值是易失性函数（比如NOW()、RAND()），Worksheet_Calculate会频繁触发，变量判断能有效避免重复写入相同值。

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