shell1 - honu_aloha2 @ ウィキ

Sub test1()

Dim c As Range
Dim d As Range
Dim n As Integer
Dim i As Integer
Dim j As Integer

For Each c In Range("A1:A10")
c.Resize(, 7).Font.ColorIndex = 3

For i = 1 To Len(c.Value)
n = InStr(c.Offset(, 4).Value, Mid(c.Value, i, 2))
If n <> 0 Then
c.Characters(Start:=i, Length:=1).Font.ColorIndex = 1
c.Offset(, 4).Characters(Start:=n, Length:=1).Font.ColorIndex = 1

End If
Next i
Next
 
End Sub