隐藏第n列

我想要一个代码隐藏每隔两列的间隔为1列。 任何人都可以帮助一个VBA脚本。 例如。 Col C＆D，F＆G，I＆J需要隐藏起来。

范围是dynamic的，随着logging的增加而变化。

Answer 1

你可以试试这个：

Dim i As Integer For i = 1 To Selection.Columns.Count Step 3 Selection.Columns(i + 1).Hidden = True Selection.Columns(i + 2).Hidden = True Next i 

应该与任何select一起工作。

 Dim st As Long, sp As Long st = Selection.Column sp = Selection.End(xlToRight).Column Dim i As Integer For i = st To sp Step 3 Cells.Columns(i + 1).Hidden = True Cells.Columns(i + 2).Hidden = True Next i 

将从当前单元格开始每隔3位隐藏2列，直到所选单元格的行中使用的最后一列。