VBA 複数ファイルの同じ項目を一行に合計したいです

VBAを使って、2つのファイルで、複数項目が同じものを他のファイルに一行にまとめたいです。

具体的には、ファイル①と②で、売上月と商品名が同じものを③のような形にしたいです。
「23年10月に／営業1部門の／購買チームが／りんごを／700円売上げ／出荷準備中が1件／出荷済が1件」という内容です。
想定としては、ファイル③でマクロを実行すると、①と②を開いて、上記処理をするというように考えております。

調べてもなかなかできずに困っております。。
お力をいただけると大変助かります。何卒よろしくお願いいたします。

①ファイル名：Book1
●シート名：売上明細
　　A列　　B列　　C列　　D列　　　　E列　　　F列
1　売上月　部門　チーム　商品コード　商品名　合計金額
2　2310　 営業1　購買　　1212　　　りんご　100
3　2310　 営業1　購買　　1212　　　りんご　600
4　2311　 営業1　購買　　1212　　　りんご　200
5　2311　 営業2　販売　　1213　　　みかん　300

②ファイル名：Book2
●シート名：進捗状況
　　A列　　　　B列　　C列
1　進捗状況　　売上月　商品名
2　出荷準備中　2310　　りんご
3　出荷済　　　2310　　りんご
4　確認中　　　2311　　りんご
5　確認中　　　2311　　みかん

③ファイル名：一覧表
●シート名：Sheet1
上記2つの内容を、以下のように1つにまとめたいです。
　　A列　　B列　　C列　　D列　　　　E列　　　F列　　　G列　　H列　　　　I列
1　売上月　部門　チーム　商品コード　商品名　合計金額　確認中　出荷準備中　出荷済
2　2310　 営業1　購買　　1212　　　りんご　700　　　　0　　　1　　　　　1
3　2311　 営業1　購買　　1212　　　りんご　200　　　　1　　　0　　　　　0
4　2311　 営業2　販売　　1213　　　みかん　300　　　　1　　　0　　　　　0

質問者からの補足コメント

• 補足いたします。
  
  1.①②の拡張子は「.xlsx」となります。
  2.①②③全て同じフォルダ内に格納されております。

    補足日時：2023/12/14 11:12

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/12/14 12:47

下記URLにアップしました。

https://ideone.com/HwqSKb

この回答へのお礼

ありがとうございます！！
試してみます。

お礼日時：2023/12/14 21:58

No.4 回答者： tatsumaru77 回答日時： 2023/12/14 13:56

追伸：

No3です。
以下のようなデータはエラーとしています。
エラーケース１
売上明細
　　売上月　部門　チーム　商品コード　商品名　合計金額
①　2310　 営業1　購買　　1212　　　りんご　100
②　2310　 営業2　販売　　1212　　　りんご　600

上記の場合、②はエラーとなります。
理由：進捗状況の出荷準備中　2310　　りんご を
①に割り当てるか、②に割り当てるか判断ができない為


エラーケース２
進捗状況が、出荷準備中、出荷済、確認中の何れでもないもの

No.2 回答者： tatsumaru77 回答日時： 2023/12/14 10:38

No1です。

質問をよく見ていませんでした。No1の補足要求は、取り消します。
あらためて、補足要求を行います。
１．ファイルの拡張子の確認です。
①のファイル名は、Book1.xlsx
②のファイル名は、Book2.xlsx
であってますか。

２．フォルダの確認です。
①、②のファイルは、③のファイルと同じフォルダ内に格納されていますか。それとも別のフォルダですか。

この回答へのお礼

ありがとうございます。
補足コメント追加いたしました。
よろしくお願いいたします。

お礼日時：2023/12/14 11:13

No.1 回答者： tatsumaru77 回答日時： 2023/12/14 10:32

補足要求です。

１．マクロはどのブックに格納するのでしょうか。
上記の３つのブックのいずれかですか。そうであれば、そのブック名を提示してください。それとも、上記の３つ以外でしょうか。
が考えられます。

２．上記の３つのブックの拡張子は何でしょうか。

３．上記の３つのブックは、予めオープンされている前提なのでしょうか。
それとも、オープンするところから開始するのでしょうか。その場合、３つのブックは、同じフォルダー内に格納されているのでしょうか。それとも別々のフォルダー内に格納されているのでしょうか。