Excel VBA隐藏第n个可见列

Question

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

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

有没有办法获取第二到第六可见列的范围并将其隐藏？

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

Answer 1

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

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