使用VBA在Excel中比较和更新工作表
使用VBA在Excel中比较和更新工作表
提问于 2016-12-01 17:38:42
因此，我是一名学生，目前在一家公司做假期工作，任务是维护和更新数据库。在excel电子表格上创建数据库。现在我遇到的问题是我不能进行比较。在一个工作簿中，我有两张工作表。图纸1有6列，图纸2只有4列。我想比较工作表1和工作表2中的列A，如果它们是同一个工作表，则工作表2的值变成工作表1中的值。但是，如果工作表1中的列A不等于工作表2中的列A，则必须将工作表2中的整行复制到工作表1中。
If A1 = A2 Then
B1 = B2
C1 = C2
D1 = D2
Else
'add into first empty row in sheet 1.您的帮助将不胜感激。谢谢
回答 1
Stack Overflow用户
发布于 2016-12-01 18:05:19
也许这会有帮助。此代码将比较表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经过测试和工作
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/40907058
复制相关文章
相似问题
腾讯云开发者
