Porównanie i aktualizacja arkusza w programie Excel przy użyciu VBA - excel, vba, excel-vba

Jestem studentem, który obecnie wykonuje pracę wakacyjnąw firmie i zadanie polegało na utrzymaniu i aktualizacji bazy danych. Baza danych jest tworzona w arkuszu kalkulacyjnym Excel. Teraz mam problem z tym, że nie mogę przeprowadzić porównania. W jednym zeszytów mam 2 arkusze. Arkusz 1 ma 6 kolumn, a arkusz 2 ma tylko 4 kolumny. Chcę porównać kolumnę A w arkuszu 1 i arkuszu 2, a jeśli są one tym samym arkuszem, niech wartości arkusza 2 staną się wartościami w arkuszu 1. Jednak mogę to zrobić, jeśli kolumna A z arkusza 1 nie jest równa kolumnie A arkusz 2 cały wiersz z arkusza 2 należy skopiować do arkusza 1.

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

Twoja pomoc byłaby bardzo mile widziana. Dziękuję Ci

Odpowiedzi:

Może to pomoże. Ten kod porówna kolumnę formularza danych a w arkuszu 2 z danymi z kolumny a w arkuszu 1, a jeśli są takie same, pierwsze 4 wartości kolumn w tym wierszu zostaną skopiowane.

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

Przetestowane i działające