エクセルで縦方向のオートフィルタはできないので、

E4～Z4セルに、その列を表示させる場合は１を、させない場合は０が立つようにして

If Range("E4").Value = 0 Then
Columns("E:E").Select
Selection.EntireColumn.Hidden = True
End If
If Range("F4").Value = 0 Then
Columns("F:F").Select
Selection.EntireColumn.Hidden = True
End If

とZまで繰り返したマクロにしてみたらできましたが、
例えばDD列まであるような横長の表の場合、とても長いマクロになってしまいます。
もっとすっきりとしたものにできるでしょうか。

エクセル2003使用のマクロ初心者です。
よろしくお願いします。

No.3 ベストアンサー 回答者： mar00 回答日時： 2011/02/27 17:18

Sub Macro1()

For i = 5 To Cells(4, Columns.Count).End(xlToLeft).Column
If Cells(4, i).Value = 0 Then
Columns(i).EntireColumn.Hidden = True
End If
Next i
End Sub

この回答へのお礼

うまくいきました。
とても助かりました。本当にありがとうございます。
No.２の方の方法もうまくいきましたが、
こちらの方法は縦の項目が増えても自動的に範囲を広げてくれるので
本当に助かります。

またよろしくお願いします。

お礼日時：2011/03/02 01:41

No.4 回答者： layy 回答日時： 2011/02/27 17:44

＞縦方向のオートフィルタはできない

別のシートに行列を逆転させたシートを作成、
はどうなのでしょうか？。

あと、VBAについて参考サイト。
セル操作の参考に。
http://www.voicechatjapan.com/excelvba/VBArei3.htm
http://www.asahi-net.or.jp/~ef2o-inue/menu/menu0 …
＞If Range("F4").Value = 0 Then
＞Columns("F:F").Select
にある「F」や「4」は固定文字でなくて変数で同じことを表現できるので
それで繰り返し部をスッキリさせます。
セルの表記、OFFSET、繰り返し処理、が参考になると思います。

この回答へのお礼

逆転シートも考えましたが、No.３のmar00さんの方法でやってみることにしました。
勉強になるサイトを教えていただきありがとうございます。
毎日少しずつ勉強して、いつの日か私が回答者になれるくらい頑張ります。

お礼日時：2011/03/02 01:39

No.2 回答者： KURUMITO 回答日時： 2011/02/27 17:00

例えば20列までを対象にするのでしたら次のようにします。

For ColPos = 5 To 20
If Cells(4, ColPos) <> "" And Cells(4, ColPos).Value = 0 Then
Columns(ColPos).Select
Selection.EntireColumn.Hidden = True
End If
Next

この回答へのお礼

うまく動きました。
ありがとうございました。

お礼日時：2011/03/02 01:37

No.1 回答者： mshr1962 回答日時： 2011/02/27 16:35

Sub MACRO()

For Each RG In Range("E4:DD4")
If RG = 0 Then
RG.EntireColumn.Hidden = True
ELSE
RG.EntireColumn.Hidden = False
End If
Next RG
End Sub

この回答へのお礼

うーん、うまく動きませんでしたが、

ありがとうございました。

お礼日時：2011/03/02 01:36