Excel VBA隐藏第n个可见列

【问题标题】：Excel VBA hide nth visible columnExcel VBA隐藏第n个可见列
【发布时间】：2011-11-17 00:16:50
【问题描述】：

我有一个工作表，用于记录在不同任务上花费的时间 - 每个工作日都是一列。

当每周结束时，我想隐藏这些列（6 列，包括总数）并继续工作。

有没有办法从第 2 到第 6 个可见列中获取范围并将其隐藏？

也就是说，我隐藏的第一周是 B:G 列，然后是 H:M，然后是 N:S 等

【问题讨论】：

【解决方案1】：

这会保持 A 列显示并隐藏接下来的 6 个可见列：

With ActiveSheet
    .Range(.Cells(1, 2), .Cells(1, .Columns.Count)).SpecialCells(xlCellTypeVisible).Range("A:F").EntireColumn.Hidden = True
End With

【讨论】：