不要項目の行削除方法について

Question

EXCEL_VBA初心者です。
大変申し訳ございませんが行削除EXCEL_VBAコードについてご教授願います。

「対象シート」に果物の項目があり
A列：種類No、B列：種類、C列：名称No、D列：名称、E列：金額
となっています。
この「対象シート」から必要な果物以外を行ごと削除したいと思っています。
「対象項目」のシートのA列に削除したい果物の種類Noが記載されています
「対象項目」のシートのC列には削除されたくない果物の名称Noが記載されています。
分かり難いのですが、「対象項目」のシートの種類に記載されている果物で名称に記載されている果物は削除せず、それ以外を削除したいです。
例えば、果物の種類No ：01みかんの場合はAA清美、ABマドンナ、AE不知火の3名称は削除せず、その他のACセトカ、ADデコポンは削除する。
07柿の場合はCA富有柿は削除せず、CB	おけさ柿は削除する
「対象シート」が「削除後」シートの結果になるEXCEL_VBAコードを教えて下さい。
実際は果物の品種は数十種類となり「対象シート」も何百行にもなります。
よろしくお願いします。

tatsumaru77 · Accepted Answer

No6です。下記にアップしました。
標準モジュールに登録してください。
https://ideone.com/Xb7Imq

不明点があれば、補足してください。

いんちょ · Answer

みかん全削除でないなら「対象項目」シート6行目は不要ではないですか？

tatsumaru77 · Answer

No3です。
補足ありがとうございました。

>２について：空白行の役割ですが、例えば対象シートにはないのですがメロンがあった場合に、メロンをすべて削除したい場合は対象項目シートABにメロンの情報を記載し、C、Dは空白になります。
>VBAを実行すると必要なミカンまで削除され、結果は一緒でした。

すみません。よく理解できませんでした。

以下のようなケースは、どうなってほしいのでしょうか。
対象項目のシートに、以下の指定があります。
（名称Noが空白のみかんはありません）

種類No　種類　　名称No　名称
01　　　みかん　AA　　　清美
01　　　みかん　AB　　　マドンナ
01　　　みかん　AE　　　不知火

対象シートは、以下のようになっています。
種類No　種類　　名称No　名称　　　金額
01　　　みかん　AA　　　清美　　　100円・・・①
01　　　みかん　AB　　　マドンナ　500円・・・②
01　　　みかん　AC　　　セトカ　　150円・・・③
01　　　みかん　AD　　　デコポン　150円・・・④
01　　　みかん　AE　　　不知火　　150円・・・⑤

①②⑤が残るのはわかりますが、③④はどうなってほしいのでしょうか。
③④は残ってほしいのでしょうか。それとも、消えてほしいのでしょうか。
（対象項目のシートには、名称Noが空白のみかんはありません。あなたが提示した添付図の６行目だけがない場合です）

いんちょ · Answer

りんごは削除しないのですね。「削除後」シートにりんごが無いのは間違いですか？
「対象項目」C,D列空白ならA,B列に書かれている種類は全削除とのことですが、6行目01-みかんは全削除ですか？それだと4,5行目の意味が無いですが...

fujillin · Answer

No1です。

＞A列に該当するがC列に該当しない果物の行を削除できるのでしょうか？
別のセル範囲に設定して「抽出」するので、「削除」はしません。

No1に挙げた例は、
　「Ａ列とＣ列が両方とも一致する行だけを抽出する」
という内容のものです。

tatsumaru77 · Answer

補足要求です。以下の点が不明です。

１．対象シートの０６ りんご　ですが、
対象項目に０６ りんご　が存在しないので、削除しないと理解しましたが、
間違いないでしょうか。

２．対象項目のシートで、名称が空白になっている行の役割は何でしょうか。
例として、６行目の０１ みかん　です。（名称No、名称が空白）
もし、この行がなかった場合、削除結果は、どうなりますか。
①ある場合と同じになる。
つまり、
０１ みかん AA 清美
０１ みかん AB マドンナ
０１ みかん AA 不知火
のみが残り、ほかのみかんは全て削除される。

②01 みかんは、一切削除されない。

①、②のどちらでしょうか。

３．種類Ｎｏと種類は、必ず１：１で対応しますか。
つまり
種類Ｎｏ　種類
01　　　　みかん
01　　　　オレンジ
のようなケースはないと考えて良いですか。

４．名称Ｎｏと名称は、必ず１：１で対応しますか。
つまり
名称Ｎｏ　名称
AA　　　　清美
AA　　　　キヨミ
のようなケースはないと考えて良いですか。

以上、補足をお願いします。

いんちょ · Answer

対象項目のC,D列にある果物だけ抽出したいのでしょうか？それなら、その行だけ削除後にコピペして、金額はvlookupとかで持ってくれば済むでしょう。ただ、C,D列空白の行が何を意味するのか、りんごのふじは本当に削除でいいのか、気になるところです。

fujillin · Answer

こんにちは

ご説明では、A~Dの4項目が全部一致で判断するような説明になっていますけれど、「種類No」と「種類」、「名称No」と「名称」は必ず対になっているような印象を受けます。
もしそうであるなら、比較するのは2項目で済むのではないでしょうか？

また、最近のスピル機能を使えるバージョンであれば、関数でも簡単に抽出が可能です。
例えば、削除後シートのA2セルに

=FILTER(対象シートのデータ範囲,COUNTIF(対象項目A列範囲,対象シートA列範囲)*COUNTIF(対象項目C列範囲,対象シートC列範囲),"")

のような式を入力すれば、結果が自動で右方・下方にスピルされます。
（A列とC列の2項目の一致を確認すれば良いものと仮定しました）
空白セル同しは一致とは見做されませんので、セル範囲を広めに設定しておけば宜しいでしょう。（例えば1000行迄とか）

どうしてもマクロで行いたいのであれば・・
　「A2セルに関数式を設定し、A:E列を値をペーストで固定値化する」
処理でも、ご質問と同様の結果を得られます。
こちらであれば処理も簡単なので、ご自身で作成可能であろう推測します。

不要項目の行削除方法について

No6です。

みかん全削除でないなら「対象項目」シート6行目は不要ではないですか？

No3です。

りんごは削除しないのですね。

No1です。

補足要求です。

対象項目のC,D列にある果物だけ抽出したいのでしょうか？それなら、その行だけ削除後にコピペして、金額はvlookupとかで持ってくれば済むでしょう。

こんにちは

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング