Sub zhaohaoma() Dim i, j, k As Integer For i = 1 To Sheets(1).UsedRange.Rows.Count For j = 1 To Sheets(2).UsedRange.Rows.Count If Sheets(1).Cells(i, 1) = Sheets(2).Cells(j, 1) _ And Sheets(1).Cells(i, 2) = Sheets(2).Cells(j, 2) _ And Sheets(1).Cells(i, 3) = Sheets(2).Cells(j, 3) _ Then Sheets(1).Cells(i, 5) = Sheets(2).Cells(j, 4) GoTo nexti End If Next j nexti: j = j Next i End Sub