使用VBA在Excel中比较和更新工作表

Question

因此，我是一名学生，目前正在一家公司从事度假工作，并受命维护和更新数据库。 该数据库是在excel电子表格上创建的。 现在我遇到的问题是我无法进行比较。 在一个工作簿中，我有2张纸。 工作表1有6列，工作表2只有4列。 我想比较工作表1和工作表2中的A列，如果它们是同一工作表，则让工作表2的值成为工作表1中的值。但是，如果工作表1中的A列不等于工作表1中的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

经过测试和工作