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

質問

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

回答No.6

kagakusuki · ベストアンサー

>いただきましたサンプルでエラーを起こしています。
>対策を教えていただけませんでしょうか?
>↓右の表を並び変える箇所でエラーをエラー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

との事ですが、私がこの御質問に対して回答した回答内容でお伝えしたVBAの構文中には

>With outSheet.Range(FirstColumn2 & i)

と記述されている箇所も

>＞With .Resize(1, ListColumns).Value = .Offset(TargetRow - i).Value

と記述されている箇所も

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

と記述されている箇所も存在していません。
　何か別の方が作られたVBAとお間違えなのではないでしょうか？

お礼

所望のコードができました。
頂いたのは叩き台だと言うことを忘れていました。
また、要件もださずに大変申し訳ございませんでした。
ありがとうございました。

補足

サンプルをベースに改良しましたが機能しません。
大変申し訳ございませんが、↓の3つのキー項目、11つの列項目で機能するサンプルまたはアドバイスをいただけませんか?
また、いたいだいたサンプルでは、右表ではキー項目の商品番号が右寄せになり、下段に移動せずにセルだけが薄緑色で塗りつぶされているケースがあります。

＊↓の商品番号、枝番、売上日の3つのキー項目、列項目を使用します。

・商品番号(A列)
・枝番(B列)
・売上日(C列)
・商品名(D列)
・金額(E列)
・仕入原価(F列)
・仕入先番号(G列)
・仕入先社名(H列)
・仕入先担当者(I列)
・仕入先住所(J列)
・備考(K列)