隐藏第n列

Question

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

范围是动态的，随着记录的增加而变化。

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

适用于任何选择。

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列，直至所选单元格行中使用的最后一列。