VBAを使用してExcelでシートを比較して更新する

Question

私は現在、会社で休暇を取っている学生で、データベースの保守と更新を担当しています。データベースは、Excelスプレッドシート上に作成されます。今私が持っている問題は、私が比較を行うことができないということです。 1つのワークブックには2枚あります。シート1は6列、シート2は4列しかありません。私はシート1とシート2の列Aを比較し、同じシートであればシート2の値をシート1のものにします。ただし、シート1の列Aが列Aと等しくない場合シート2シート2の行全体をシート1にコピーする必要があります。

If A1 = A2 Then 
     B1 = B2 
     C1 = C2 
     D1 = D2 
Else 
     'add into first empty row in sheet 1. 

ご協力いただけると幸いです。ありがとうございます

Answer 1

おそらくこれが役立ちます。 このコードは、シート2のデータフォーム列aとシート1の列aのデータを比較し、同じ場合はその行の最初の4列の値がコピーされます。

sub test 
application.screenupdating = false 
For i = 1 to x 'number of rows you want to search in 
For j = 2 to 4 
If sheets("sheet1").range("A"&i).value = sheets("sheet2").range("A"&i).value 
then sheets("sheet2").Cells(i,j).value = sheets("sheet1").Cells(i,j).value 
next j 
next i 
end sub 

検査済みとVLookup` `読んで