Master工作表隐藏列时同步隐藏其他表同名列的VBA问题排查

核心问题：事件类型选错 #

Worksheet_Change 事件仅在单元格内容（值、公式、批注等）被修改时触发，手动隐藏/显示列属于工作表格式变更，不会触发该事件——你的代码从始至终都没执行过，这是功能失效的根本原因。

其他潜在问题 #

• 隐藏状态判断错误：直接使用 Target.Hidden 无法正确获取整列的隐藏状态，整列的隐藏属性需要通过 Target.EntireColumn.Hidden 读取；若选中多列，批量判断时逻辑易出错。
• 逻辑不完整：当前代码只处理「隐藏列」的同步，未覆盖「取消隐藏」的反向同步场景。
• 列索引函数依赖风险：若 ColumnIndexReturn 函数无法正确匹配列名（如列名不存在、参数传递错误），会直接导致同步失败甚至报错。

修正后的代码 #

改用 Worksheet_SelectionChange 事件（用户操作列后通常会触发选择变更），实现Master表列隐藏状态与其他表的双向同步：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim masterCol As Range
    Dim ws As Worksheet
    Dim colHeader As String
    Dim targetColIdx As Long
    
    ' 遍历Master表的所有有效列（假设第一行是表头）
    For Each masterCol In Me.UsedRange.Columns
        colHeader = masterCol.Cells(1, 1).Value
        If colHeader <> "" Then ' 跳过空表头列
            For Each ws In ThisWorkbook.Worksheets
                ' 跳过不需要同步的表
                If ws.Name <> "Master" And ws.Name <> "Affiliate Codes" Then
                    ' 调用列索引函数获取目标列位置
                    targetColIdx = ColumnIndexReturn(ws.Name, colHeader, 3)
                    If targetColIdx > 0 Then ' 确认找到对应列
                        ' 同步隐藏状态（双向：隐藏/取消隐藏都同步）
                        ws.Columns(targetColIdx).Hidden = masterCol.EntireColumn.Hidden
                    End If
                End If
            Next ws
        End If
    Next masterCol
End Sub

额外优化建议 #

• 给 ColumnIndexReturn 函数添加错误处理，避免因列名不存在引发运行时错误；
• 若Master表列数量较多，可记录上次列状态，仅同步发生变化的列，提升性能；
• 若需要更精准的触发时机（如用户刚完成隐藏操作就同步），可结合类模块监听工作表格式变更，但实现复杂度较高。

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