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) ''青色に設定し…