Excel VBA隐藏第n个可见列

Question

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

当每个星期完成时，我想隐藏这些列（6，包括总计）并继续工作。

有没有办法从第2到第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