Sub test()
Dim objR As Range, objR2 As Range
Set objR = Range("src")
Set objR2 = Range("dst")
Dim i As Integer
i = 1
For Each r In objR2
For Each l In objR
If InStr(r, l) <> 0 Then
objR2(i, 1).Interior.Color = RGB(0, 0, 255) ''青色に設定します
End If
Next l
i = i + 1
Next r
End Sub