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