エクセルの列の非表示、削除について

エクセルの列の編集の仕方で困っています。
１～５０００くらいある列を１は表示して、２～４非表示または削除、５は表示とこれを続けております。
５列間隔で最初と最後の列だけ表示し真ん中の列は削除をしておりこれを繰り返しマウスで作業しています。もっと簡単にできるやり方はないでしょうか？よろしくお願い致します。

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/06/21 00:54

２，３，４行を行番号右クリックして非表示にする

１：５行を行選択する
５の数字の右下に現れる■を下向きにえいやーっっとオートフィルドラッグする。

もしくは１：５列をコピーし，６行目以下を丸ごと選んで形式を選んで書式のみ貼り付ける。

No.3 回答者： imogasi 回答日時： 2011/06/21 09:36

数が多くて手作業の操作では、面倒ということか。

ーー
マクロの記録モードにして、１単位の操作をして、どういうコードになるか見て、列の指定のルールを計算式かで表して
繰り返しをするなどで出来る
ーー
または
空き行（第１行目に列挿入しても良い）に、１，５，９，１３，１７・・列に１を立てて、その列だけ削除するプログラムにする。
下記。
ーー
Ａ列に１、Ｂ，Ｃ，Ｄ列空白、Ａ１：Ｄ１をコピー、Ｅ１：最終列を範囲指定ー貼り付け
で中３列あけて１が入れられる。
最終列まで範囲指定はＡ１：Ｄ１をコピー
Ｅ１をクリックＳＨＩＦＴキーを押しながら名前ボックスにＡＺ１（最右列、最終列「）など入力し、ＥＮＴＥＲキーを押す。
その後直ぐ編集ー貼り付け
ーーー
ＶＢＡでは第１列目に１が入った列を列削除するコード
Sub test01()
Range("A1:IV1").Select '最終列まで範囲指定
Selection.SpecialCells(xlCellTypeConstants, 23).Select '定数（この場合１）のセルを範囲指定
Selection.EntireColumn.Delete '選択列を削除
End Sub
ーー
これを操作でやる場合は
第１行を全列選択しておく（＝行番号１の（左端）部でクリック）
変数ージャンプーセル選択ー定数
これで１のセルだけ選択される
編集ー削除ー列全体
ーー
上記の１は１でなくても１，２，３・・でも良いと思うので、Ａ１：Ｄ１（Ａ１だけ１）を範囲指定して、＋ハンドルを引っ張る方法でもできると思う。

No.2 回答者： KURUMITO 回答日時： 2011/06/21 07:03

例えばシート1にデータがあるとして、5000くらいある列とありますが行のことと判断して、次のようにしてはどうでしょう。

例えばシート1のデータが1行目は項目名などでJ列まであるとします。2行目から下方のデータをお望みのような形で表を別のシートに作るとします。
別のシートでは1行目のJ列まで項目名を入力します。
次にA2セルには次の式を入力します。

=IF(INDEX(Sheet1!$A:$J,(ROW(A1)-1)*4+2,COLUMN(A1))="","",INDEX(Sheet1!$A:$J,(ROW(A1)-1)*4+2,COLUMN(A1)))

このA2セルを右クリックしてコピーします。
その後に「名前ボックス」（表の右端上にA2と表示されているところ）に例えばA2:J5000と入力します。
それによってA2からJ5000までのセル範囲が選択されます。
そこで右クリックで「貼り付け」を行います。

これでお求めの表が別のシートに表示されます。

なおシート1の1行目からのデータをお望みのとおりに表にするにはA１セルへの入力の式は次のようにします。

=IF(INDEX(Sheet1!$A:$J,(ROW(A1)-1)*4+1,COLUMN(A1))="","",INDEX(Sheet1!$A:$J,(ROW(A1)-1)*4+1,COLUMN(A1)))