Question

所以我是一名正在公司做假期工作的学生，其任务是维护和更新数据库。数据库是在Excel电子表格上创建的。现在我遇到的问题是我无法进行比较。在一本工作簿中，我有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

经过测试和工作

使用VBA

1 个答案: