エクセルで指定した項目の列だけ残し、残りは削除したい

たびたびマクロで質問です。
windows-xp、エクセル2003を使っています。

教えてください。
１行目に表の「項目」がいろいろ入っています。
そこで、指定する項目「品目コード、個数、」の行だけを残し、それ以外は全て削除というコードを教えて頂けませんでしょうか。

１行目に表の「項目」がくるというのはたぶん今後も変わらないと思うのですが、項目位置がときどき変わることがあるかもしれません。
（たとえばＢ列の項目が、時にはＦ列の項目になっていたり・・・）
なので、指定する項目（品目コード、手番、在庫・・・）だけを残して列を削除する。ということをしたいのです。
本をみたりしたのですが、列の削除ってそんなになくて。。。行の削除ならあるのですが・・・

すみませんが、宜しくお願い致します。

No.4 ベストアンサー 回答者： ka_na_de 回答日時： 2007/05/16 21:33

再度の補足です。

エクセルのマクロにはFor文だけでなく、DOループが用意されている
ようです。これを使えばもっと簡潔に記述できます。


Sub Macro2()

　Dim i

　i = 2 　　 '探索開始列

　Do
　　If Cells(1, i) <> "品目コード" And Cells(1, i) <> "手番" Then
　　　Columns(i).Delete
　　Else
　　　i = i + 1
　　End If
　Loop Until Cells(1, i) = ""

End Sub

No.3 回答者： ka_na_de 回答日時： 2007/05/15 02:48

２番に回答した者です。

補足説明です。
１列目を残して２列目以降にこの処理をしたければ、
For i = 2 To
としてくださいね。

いきなり試さず、データをバックアップした上で
自己責任でお願いします。

No.2 回答者： ka_na_de 回答日時： 2007/05/15 02:18

こんなんでどうでしょう？

１行目のセルの中身を見て空白セルなら終了。
そうでなければ、「品目コード」「手番」かチェックし違うなら列削除
削除した場合は、次の列が左へシフトしてるので、もう一度同じ列を
チェックするためにカウンター（i）を戻す（１引く）
この例では、抽出する列を10と仮定してループをまわしています。

Sub Macro1()

　For i = 1 To 10
　　If Cells(1, i) = "" Then
　　　Exit For
　　ElseIf Cells(1, i) <> "品目コード" And Cells(1, i) <> "手番" Then
　　　Columns(i).Delete
　　　i = i - 1
　　End If
　Next i

End Sub

この回答へのお礼

お礼が遅くなり大変申し訳ありません。
いろいろなやり方、大変参考になりました。
ありがとうございました！！

お礼日時：2007/07/15 13:34

No.1 回答者： noname#153377 回答日時： 2007/05/14 22:16

アルファベット部分（一番上のバー）を横へドラッグして右クリック→削除では当たり前すぎですか？

この回答への補足

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

はぃ、やはりマクロがいいです。
いちいち項目を見ながら、これは残して、消して、という作業をするのは面倒だと思います。

なので、コードを教えて頂けたらと思った次第です。

補足日時：2007/05/14 23:04