Excel修改可见表标题行后如何同步至非常隐藏表？解决获取新值问题

问题核心 #

你当前代码存在两处关键问题：

1. 列号获取逻辑错误：intColumn = Target.Row 取的是标题行固定行号（3），而非修改单元格的列号，无法定位隐藏表对应位置；
2. 未处理事件循环触发问题，且事件绑定位置可能有误，导致值获取异常。

修正后的实现代码 #

将以下代码粘贴到可见工作表的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义监控的标题行范围
    Dim titleRange As Range
    Set titleRange = Me.Range("A3:Y3")
    
    ' 判断修改区域是否在标题行内
    If Not Intersect(Target, titleRange) Is Nothing Then
        ' 关闭事件触发，避免同步修改时循环触发
        Application.EnableEvents = False
        
        Dim hiddenSheet As Worksheet
        ' 替换为你的非常隐藏工作表名称
        Set hiddenSheet = ThisWorkbook.Worksheets("隐藏表名称")
        
        ' 定位隐藏表对应列的标题单元格（假设隐藏表标题在第1行）
        Dim targetCol As Integer
        targetCol = Target.Column
        hiddenSheet.Cells(1, targetCol).Value = Target.Value
        
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

关键说明 #

• 事件绑定位置：代码必须放在可见工作表的代码模块中，而非标准模块，否则Worksheet_Change事件不会触发；
• 新值获取：Worksheet_Change事件在单元格值修改完成后触发，Target.Value即为修改后的新值；
• 避免循环：添加Application.EnableEvents = False，防止同步修改隐藏表时再次触发当前事件造成死循环；
• 名称替换：把代码中的"隐藏表名称"替换为你实际的非常隐藏工作表名称（可在VBA编辑器工程窗口查看）。

异常排查 #

如果仍出现获取旧值的情况，检查两点：

• 确认代码是放在Worksheet_Change事件中，而非Worksheet_SelectionChange或其他事件；
• 关闭Excel的「启用迭代计算」选项（文件→选项→公式→取消勾选），避免循环计算干扰事件触发。

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