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