VB代码匹配两个工作薄的表格信息，并修改

发布时间：2020-12-17 07:43:14 所属栏目：百科来源：网络整理

导读：Sub function() DimiAsInteger ''遍历第一个表格 DimjAsInteger ''遍历第二个表格 Fori=2To100 ''第一个表格的行数 Forj=2To7585 ''第二个表格的行数 IfSheets("Sheet1").Cells(i,14)=Sheets("Sheet2").Cells(j,5)Then ''第一个匹配条件 IfSheets("Sheet1").

Sub function()
DimiAsInteger ''遍历第一个表格
DimjAsInteger ''遍历第二个表格
Fori=2To100 ''第一个表格的行数
Forj=2To7585 ''第二个表格的行数
IfSheets("Sheet1").Cells(i,14)=Sheets("Sheet2").Cells(j,5)Then ''第一个匹配条件
IfSheets("Sheet1").Cells(i,15)=Sheets("Sheet2").Cells(j,6)Then ''第二个匹配条件
Sheets("Sheet1").Cells(i,11)=Sheets("Sheet2").Cells(j,1) ''要修改的东西 EndIf EndIf Nextj Nexti EndSub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!