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