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

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