Public Sub replace()
For i = 1 To 10
For j = 1 To 8
If Sheet1.Cells(i, 1) <> "" And Sheet2.Cells(j, 2) <> "" And Sheet1.Cells(i, 1).Value = Sheet2.Cells(j, 2).Value Then
'MsgBox (Cells(J, 2).Value)
Sheet1.Cells(j, 3) = Sheet2.Cells(j, 2)
End If
Next j
Next i
End Sub
持续改进：从不同表取值
