使用VBA跨前4个工作表隐藏活动单元格所在列的问题

当选中多个工作表时，ActiveCell仅指向当前活动工作表（选中组里的第一个表）的单元格，直接执行ActiveCell.EntireColumn.Hidden = True只会作用于这一个表。要实现跨选中工作表批量操作，需要遍历每个工作表并定位对应列：

Sub HideAcrossSheets()
    Dim ws As Worksheet
    Dim targetCol As Integer
    
    ' 获取活动单元格的列号，适配后续Offset调整需求
    targetCol = ActiveCell.Column
    
    ' 遍历所有选中的工作表
    For Each ws In ActiveWindow.SelectedSheets
        ws.Columns(targetCol).Hidden = True
    Next ws
End Sub

关键说明： #

• 用ActiveCell.Column动态获取当前选中单元格的列号，避免硬写固定单元格范围
• 借助ActiveWindow.SelectedSheets遍历你选中的所有工作表（不管是前4个还是任意选中的组）
• 对每个工作表的对应列统一执行隐藏操作

后续如果用Offset调整活动单元格位置，只需把targetCol = ActiveCell.Column替换为targetCol = ActiveCell.Offset(行偏移量, 列偏移量).Column即可适配任意目标单元格。

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