Excel VBAで規則性がある列の非表示

質問

A列からDM列まで、二列おきに非表示にするマクロを書きたくて、
少しだけ自動マクロを作ったのですが、ダイレクトに列番号（？）が記録されているだけでした。
ループが何かを使って書くにはどう書けばよいのでしょうか。
行の削除や非表示処理はサンプルの検索ができたのですが、
列に関しては見つけられませんでした。
よろしくお願いします。

Range("B:C,E:FH:i,K:L").Select

Selection.EntireColumn.Hidden = True

回答No.2

HokkienMee

Columns(Cells(1, i).Column).Hidden = True
は、
Columns(i).Hidden = True
でもいけますよ。

回答No.1

hige_082

一例です

Sub test()
Dim i As Long
For i = 1 To 256
If Not i Mod 3 = 1 Then
Columns(Cells(1, i).Column).Hidden = True
End If
Next i
End Sub