Excel VBA 2013; 並び替え、セル比較

質問

コーディングの方法を知りたいのですが、突き合わせ作業をおこないたいです。
同一列項目からなるデータを左右に並べて、左側を正として、例えば商品番号、売上日を連結するなりキーとしてマッチしたら右側の同一行に並へ
変えていきます。
そして、各行単位で比較して、差異があるセルに色付けしたいと考えています。
行数は不定です。
やり方がまったくわかりません。
サンプルを添付させていただきます。
アイデアをいただけませんでしょうか?

回答No.5

kagakusuki

回答No.4に対して頂いた補足内容を拝見しました事により、質問者様がやりたい事が更に解らなくなりました。

>左の表だけが存在する場合(右の表は空欄)、右の表だけが存在(左の表は空欄)する場合もあります。

という事は、左の表を基準にするのではなく、両方の表を並べ変えるという事なのでしょうか？
　そうしますと、何を並べ替えの基準にすれば宜しいのでしょうか？
　右の表を並べ替えると、左の表の空欄となる行の位置が変わってしまいますので、左の表の空欄となる行の位置が定まりません。

>リストの所々で左の表だけが存在する場合(右の表は空欄)、右の表だけが存在(左の表は空欄)する場合もあります。
>商品番号、売上日を連結したキー順に左右にリストしていきます。
>最終行に移動はしないです。

との事ですが、それでは右の表だけが存在するデータはどこに移動させれば宜しいのでしょうか？
　左の表に「左右の表の両方に存在している商品番号と日付の組み合わせ」が入力されている行に、並べ替え前の右の表には「左の表には存在しない商品番号と日付の組み合わせ」が入力されている場合もあり得るのでは？

>＞左右の各表において「商品番号と売上日の両方が同じデータ」がどちらも複数存在する場合には、
>(返答)
>あくまでキーなる商品番号、売上日がマッチしたキー順に左右にリストしていきます。
>「商品名」～「仕入先」は考慮しません

　それでは複数存在する「商品番号、売上日がマッチしたキー」をどの様な基準の順番で右の表に並べていけば宜しいのでしょうか？

>「商品名」～「仕入先」は考慮しません

と仰るだけで代わりとなる基準を示さないのでは困ります。
　例えば、回答No.3で述べている様に、右の表の中に複数存在している「商品番号と売上日の両方がマッチするデータ」の内、一番上にある1行のデータのみをコピーして貼り付ける様にすれば宜しいのですか？

>＞もしも「商品番号と売上日の両方が同じデータ」となっている行の数が右の表の方が多い場合には、
>(返答)
>リストの所々で左の表だけが存在する場合(右の表は空欄)、右の表だけが存在(左の表は空欄)する場合もあります。
>商品番号、売上日を連結したキー順に左右にリストしていきます。
>最終行に移動はしないです。

　それでは右の表の「商品番号と売上日の両方が同じデータ」の中で余ったデータをどこに移動させれば宜しいのでしょうか？

>最終行に移動はしないです。

と仰るだけで代わりとなる移動先を示さないのでは困ります。
　左の表に「左右の表の両方に存在している商品番号と日付の組み合わせ」が入力されている行に、並べ替え前の右の表には「左の表においてまた別の行に入力されている商品番号と日付の組み合わせ」で尚且つ「余っているデータ」が入力されている場合もあり得るのでは？

>＞もしも「商品番号と売上日の両方が同じデータ」となっている行の数が右の表の方が少ない場合には、左の表に「商品番号と売上日の両方が同じデータ」が入力されている行の右表のセル範囲に対して上から順番に、右の表の「商品番号と売上日の両方がマッチするデータ」を割り振って行き、割り当てるべきデータが不足している行に関しては空欄とする。
>(返答)
>リストの所々で左の表だけが存在する場合(右の表は空欄)、右の表だけが存在(左の表は空欄)する場合もあります。
>商品番号、売上日を連結したキー順に左右にリストしていきます。
>最終行に移動はしないです。

　返答になっておりません。

>割り当てるべきデータが不足している行に関しては空欄とする。

のは、「商品番号と売上日の両方が同じデータ」が左右どちらの表にも存在していて、尚且つ、「同じ商品番号と売上日の組み合わせのデータ」が入力されている行の数が、左の表の方が多く、右の表の方が少ない場合に関する提案であって、

>左の表だけが存在する場合

では御座いません。
　その上、

>割り当てるべきデータが不足している行に関しては空欄とする。

という提案に対して、

>最終行に移動はしないです。

と返答して来られても何の話なのか意味不明です。
　こちらは、

>商品番号、売上日を連結したキー順に左右にリスト

して行った結果、右の表に存在する「商品番号、売上日を連結したキー」が不足した場合に関する話をしているというのに

>商品番号、売上日を連結したキー順に左右にリストしていきます。

とは、どういう事なのでしょうか？
　リストすべきキーを表の上部で使い切って、リストする事が出来るデータがもう残っていないというのに、何をリストすると仰るのでしょうか？

補足

混乱をまねき申し訳ございませんでした。

ご指摘のとうり、
左の表を正としてしてキー項目がヒットした項目を最も列項目がマッチしたものから右の表に並べていき、ビットしなかったり、左右で行数が異なっていれば
下のほうに配置するのが自然とおもいます。
混乱をまねき申し訳ございませんでした。

別途、質問させてください。

いただきましたサンプルでエラーを起こしています。
対策を教えていただけませんでしょうか?
↓右の表を並び変える箇所でエラーをエラー1004「アプリケーション定義またはオブジェクト定義のエラーです。」起こしています。

With outSheet.Range(FirstColumn2 & i)
＞With .Resize(1, ListColumns).Value = .Offset(TargetRow - i).Value
End With
＞With Range(FirstColumn2 & TargetRow).Resize(LastRow2 + SearchRows - TargetRow + 1, ListColumns)..Value = .Offset(1).Value
End With
.
.

・TargetRowは"0"がセットされていました。
・Resizeプロパティの前に、Worksheets("Sheet1")などのシート定義、Rangeプロパティなどのセルの定義は必要ないでしょうか?