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

因此，我是一名学生，目前正在某公司从事假期工作，并负责维护和更新数据库。数据库是在Excel电子表格上创建的。现在我遇到的问题是我无法进行比较。在一本工作簿中，我有两张纸。工作表1有6列，工作表2只有4列。我想比较工作表1和工作表2中的A列，如果它们是同一工作表，则让工作表2的值成为工作表1中的那些值。但是，我可以这样做，如果工作表1中的A列不等于A列工作表2必须将工作表2的整行复制到工作表1中。使用VBA在Excel中比较和更新工作表

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

您的帮助将不胜感激。谢谢

来源

2016-12-01 Kishan Narotam

开始，不知道你需要VBA为此，VLookup'的'一个简单的公式会做 –

你想整个行复制到工作表Sheet1尽管存在不同数量的列，但来自sheet2？ – 2016-12-01 09:45:52

也许这会有所帮助。该代码将比较工作表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`工作

来源

2016-12-01 10:05:18 Mick17

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

回答

相关问题