VBAを使って別表に転記したいです。

Question

エクセルVBAを使って以下の処理がしたいです。

ファイルには２シートあります。「入庫リスト」と「販売管理」です。
「入庫リスト」は下記の構成です。

「販売管理」は下記の構成です。

「販売管理」シートは予め品番、ロットNo、日付などイメージ図の状態になっています。

★やりたいことは
「入庫リスト」に従い、「販売管理」の品番、ロットNo、日付が一致する箇所の入庫数欄に数字を転記したいです。
例
入庫リスト　２行目
アイシス、A1802、2018/6/1、10　

販売管理
６行目　６／１　入庫数　１０　と転記
元々数字が入っている場合は、上書きしたいです。
入庫リストに記載されていない日に数字が入っている場合は消したいです。

　　　販売数、残はそのままとしたいです。

対象が多く（1000～2000）
販売管理の日付は２ヶ月（６０日）「G列～BN列」
販売管理の品番行は（6行目～1506行目）
できるだけ高速しょりしたいです。

処理コードを教えて下さい。

Answer 1

以下の式を販売管理!G6に貼り付けて、その後で各品番の入庫数欄にコピーして下さい。
※入庫シートの行数は999にしてますので不足があれば変更して下さい。

=SUMPRODUCT((入庫リスト!$E$2:$E$999)*(入庫リスト!$A$2:$A$999=$B6)*(入庫リスト!$B$2:$B$999=$C6)*(入庫リスト!$D$2:$D$999=G$5))