Sub t()
Dim c As Range, fn As Range
For Each c In Range("A2", Cells(Rows.Count, 1).End(xlUp))
Set fn = Range("D:D").Find(c.Value, , xlValues)
If Not fn Is Nothing Then
If Trim(c.Value) & Trim(c.Offset(, 1).Value) = Trim(fn.Value) & Trim(fn.Offset(, 1).Value) Then
c.Resize(, 2).Interior.Color = vbYellow
fn.Resize(, 2).Interior.Color = vbYellow
End If
End If
Next
End Sub