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

 Sub  function()
    Dim i As Integer    ''遍历第一个表格
    Dim j As Integer    ''遍历第二个表格
    For i = 2 To 100     ''第一个表格的行数
        For j = 2 To 7585  ''第二个表格的行数
         If Sheets("Sheet1").Cells(i, 14) = Sheets("Sheet2").Cells(j, 5) Then            ''第一个匹配条件
            If Sheets("Sheet1").Cells(i, 15) = Sheets("Sheet2").Cells(j, 6) Then         ''第二个匹配条件
               Sheets("Sheet1").Cells(i, 11) = Sheets("Sheet2").Cells(j, 1)                   ''要修改的东西
            End If
         End If
        Next j
    Next i
End Sub