たびたびマクロで質問です。
windows-xp、エクセル2003を使っています。
教えてください。
1行目に表の「項目」がいろいろ入っています。
そこで、指定する項目「品目コード、個数、」の行だけを残し、それ以外は全て削除というコードを教えて頂けませんでしょうか。
1行目に表の「項目」がくるというのはたぶん今後も変わらないと思うのですが、項目位置がときどき変わることがあるかもしれません。
(たとえばB列の項目が、時にはF列の項目になっていたり・・・)
なので、指定する項目(品目コード、手番、在庫・・・)だけを残して列を削除する。ということをしたいのです。
本をみたりしたのですが、列の削除ってそんなになくて。。。行の削除ならあるのですが・・・
すみませんが、宜しくお願い致します。
No.4ベストアンサー
- 回答日時:
再度の補足です。
エクセルのマクロには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
- 回答日時:
2番に回答した者です。
補足説明です。
1列目を残して2列目以降にこの処理をしたければ、
For i = 2 To
としてくださいね。
いきなり試さず、データをバックアップした上で
自己責任でお願いします。
No.2
- 回答日時:
こんなんでどうでしょう?
1行目のセルの中身を見て空白セルなら終了。
そうでなければ、「品目コード」「手番」かチェックし違うなら列削除
削除した場合は、次の列が左へシフトしてるので、もう一度同じ列を
チェックするためにカウンター(i)を戻す(1引く)
この例では、抽出する列を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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- Visual Basic(VBA) 【至急】 当方初心者です。 マクロについて知恵をお貸しください。 ★したい動作 ①リストE列2行目か 4 2022/09/29 18:56
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Visual Basic(VBA) 重複データをまとめて合計を合算する 4 2022/10/25 20:25
- Excel(エクセル) ExcelVBAでリストの項目に必要数と同じ手配数を分配していくマクロを作りたいです。 1 2022/07/29 18:36
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Mac OS リマインダーの実行済み項目を削除したい 2 2022/05/25 00:21
- JavaScript javascriptでテーブルに追加した項目のid追加してローカルストレージを操作したい 5 2023/01/01 15:52
- その他(Microsoft Office) Excel 2列の値を返す数式についてです 1 2022/11/23 22:59
- Mac OS 「ゴミ箱を空にしています」と24時間も終らない現象 2 2022/05/23 08:39
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【Excel VBA】特定の列以外を削除
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセルマクロ 特定の文字列を含む行のみを残す (マクロ修正)
Excel(エクセル)
-
-
4
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
5
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
6
エクセルで複数列の検索をマクロで行いたい
Excel(エクセル)
-
7
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
8
VBAマクロ実行時エラーの修正について
Visual Basic(VBA)
-
9
VBAでシート名を選んで転記する方法
Visual Basic(VBA)
-
10
指定した項目の列削除
Visual Basic(VBA)
-
11
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
12
i=cells(Rows.Count, 1)とi=cells(Rows.Count, 2)の違い
Visual Basic(VBA)
-
13
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
14
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
haoショートカット削除できない
-
エクセルで指定した項目の列だ...
-
アプリケーションの追加と削除
-
winSxSというフォルダを削除し...
-
ノートンのアンインストール方法
-
レジストリエディタでの不要な...
-
スタンバイができない、IEの動...
-
IEのお気に入りにある「リンク...
-
ユーザープロファイルの削除方法
-
webの画面スクロールがカクカク...
-
レジストリに文字化け (添付画...
-
初期からある写真アプリに関し...
-
Windows11のデスクトップアイコ...
-
ファイルを隠し設定していない...
-
ファイル名の文字の色を変えたい
-
『HP/nx6120』の“Swsetup”とい...
-
Windows11なのですがPDFにパス...
-
アイコンが半透明になってしま...
-
メモ帳を開くと毎回同じ位置・...
-
Curdirを実行すると違う場所が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レジストリに文字化け (添付画...
-
フォルダがクリック等の操作で...
-
エクセルで指定した項目の列だ...
-
webの画面スクロールがカクカク...
-
児童ポルノダウンロードについて
-
windows インストーラパッケージ
-
winSxSというフォルダを削除し...
-
IEのお気に入りにある「リンク...
-
パソコン初心者です、Cドライブ...
-
何で内容を確認しないで質問を...
-
画面下に出る広告の削除について
-
windows media playerで削除し...
-
ノートンのアンインストール方法
-
ユーザープロファイルの削除方法
-
mp3ファイルで「Windows Media ...
-
haoショートカット削除できない
-
ThinkPad T61のCドライブにある...
-
リカバリ、データ消去ソフトを...
-
テレビでみておもったんだけど...
-
送るの削除
おすすめ情報