특정글자 색 바꾸기

엑셀에서 ctrl+F로 글자색을 바꾸려 하면 셀 전체의 글자색이 바뀐다.

이 코드는 원하는 글자의 색만 바꿔주는 코드다.

Sub chnColor()
 
    Dim i As Integer, intT As Integer
    Dim rngArea As Range, rngCell As Range
    
    '글자 영역 설정 및 기존 서식 복귀
    Set rngArea = Range("A1", Cells(Rows.Count, "A").End(xlUp))
    With rngArea.Offset(, 1).Font
        .Bold = False
        .ColorIndex = 1
    End With
    
    For Each rngCell In rngArea
        
        With rngCell
        
            '문장을 순환하며 글자색 변경
            i = Len(.Value)
            intT = InStr(.Offset(, 1), .Value)
        
            With .Offset(, 1).Characters(intT, i).Font
                .Bold = True
                .ColorIndex = 3
            End With
        End With
        
    Next rngCell
    
End Sub

문제.xlsm