VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。

【シート内の項目内容】
・A.xlsmというエクセルに3つのシート（「A」「B」「まとめ」）があります。
・「A」シートには、1列目＝手段、2列目＝行先、3列目＝車種、5列目＝受注NO、7列目＝受注数、9列目＝備考1、10列目＝備考2の項目にそれぞれのデータがあります。

・「B」シートには、1列目＝車種、3列目＝製造NO、4列目＝在庫数、5列目＝製品単量、6列目＝備考3、7列目＝備考4、6列目＝備考5の項目にそれぞれのデータがあります。

・「まとめ」シートには、1列目＝チェック、2列目＝手段、3列目＝行先、4列目＝車種、6列目＝受注NO、8列目＝受注数、10列目＝製造NO、11列目＝在庫数、12列目＝製品単量、14列目＝備考1、15列目＝備考2、16列目＝備考3、17列目＝備考4、18
列目＝備考5の項目があります。


【やりたいこと】
（1）「A」シートのデータあるだけ、「まとめシート」同じ項目同士の場所に転記します。

（2）「B」シートの内容を「まとめシート」に転記した「A」シートのデータの横に、同じ項目同士の場所に製造NOのデータを転記します。

≪（2）の転記条件≫
①車種が一致。

②車種の受注数を確認して、この数字以内の数字の製造NOを、「B」シートの上から順番に転記していく。転記は受注数を満たせば完了。同時にチェック項目のそれぞれの製造NO行に〇をつける。
※受注数に対して在庫数を充てるのは受注NOの頭文字A＝国内は±10％まで、B＝海外は-10％までを条件に入れる

③それぞれの車種に、備考4（不良）、備考5（不具合）があれば、②の下に転記する

④それぞれの車種に、転記できていない車種の製造NOがあれば、最大さらに4つの製造NOのデータを③の下に転記する。
同時にチェック項目のそれぞれの製造NO行に予備をつける。

⑤車種が同じものがあった場合、必ず行先が国内か海外かで違う（見分け方は受注NOの頭文字A＝国内、B＝海外）のでこの場合、国内を優先して製造NOのデータを転記する。

ややこしい内容ですが、どうか宜しくお願い致します。

やりたいことの、before after の画像は下記のアドレスを参照ください
https://gyazo.com/b03414810b3feb10a5a690b166883eb7

No.1 ベストアンサー 回答者： 河内のおやじ 回答日時： 2023/03/16 18:42

まず、(1)については比較的簡単な処理です。

以下の手順に従って、エクセルの関数を使用して、「A」シートのデータを「まとめ」シートに転記することができます。

「まとめ」シートの2行目以降の各セルに以下の関数を入力します。
=IFERROR(INDEX(A!$E:$E,MATCH($F2&A!$A:$A&A!$B:$B,$A:$A&$B:$B&$C:$C,0)),"")

各行の2列目には手段、3列目には行先、4列目には車種を入力してください。

各行の6列目以降には必要に応じて受注NO、受注数、備考1、備考2などの項目を追加します。

これで、「A」シートのデータが「まとめ」シートに転記されます。

次に、(2)については、車種ごとに受注数を確認し、その受注数に対応する製造NOを「まとめ」シートに転記する必要があります。以下は、その手順です。

「まとめ」シートの2行目以降の各行に、以下の関数を入力します。
=IFERROR(INDEX(B!$C:$C,MATCH($D2&B!$A:$A,$C:$C&$A:$A,0)+COUNTIFS($D2&B!$A:$A,$C2&$A2,$C2&$A2&B!$C:$C,"<>"&""),$I2),"")

各行の2列目には手段、3列目には行先、4列目には車種を入力してください。

各行の8列目以降には、受注数、製造NO、在庫数、製品単量、備考1、備考2、備考3、備考4、備考5の項目を追加します。

各行の受注数のセルに、以下の関数を入力します。
=VLOOKUP($F2,A!$E:$I,5,FALSE)

これにより、各車種の受注数が「まとめ」シートの各行に自動的に表示されます。

各行の製造NOのセルに、以下の関数を入力します。
=IFERROR(INDEX(B!$C:$C,MATCH($D2&B!$A:$A,$C:$C&$A:$A,0)+COUNTIFS($D2&B!$A:$A,$C2&$A2,$C2&$A2&B!$C:$C,"<>"&""),$I2),"")

(2)の転記条件について補足説明を行います。

①車種が一致する場合、製造NOのデータを転記します。
例えば、Aシートに「スポーツカー」「S1」「モデルA」「受注数10」のデータがあるとき、Bシートには「スポーツカー」「M0001」「在庫数20」「製品単量1」「備考3」「備考4」「備考5」のデータがある場合、製造NO「M0001」のデータを「まとめ」シートに転記します。

この回答へのお礼

ご連絡本当にありがとうございます。
関数でやれば行けるのですね。ありがとうございます。

もし可能ならば、本番のデータ量がかなり多いので、すべてVBAで対応したいとおもっております。そうなればどのようなコードを書けばよいでしょうか？ご迷惑をおかけしますが、宜しくお願い致します。

お礼日時：2023/03/16 19:05