예를 들면...
(서울시 강남구 대치동 000-00) 중에서 강남구만 (서울시 강남구 신사동 000-00)
이렇게 빨간색으로 주소목록 전체가 바뀌었으면 합니다.

[방법]
데이터가 A열에 있고, 찾으려는 값이 B1셀에 있다고 가정할 때

 

 아래와 같은 매크로를 이용하시면 될 듯...

 Sub test()
    Dim MyRange As Range, MyCell As Range
    Dim x As Integer
    Set MyRange = Range(Range("a1"), Range("a1").End(xlDown))
    For Each MyCell In MyRange
        x = InStr(1, MyCell, Range("b1"), 1)
        MyCell.Characters(Start:=x, Length:=Len(Range("b1"))).Font.Color = -16776961
    Next MyCell
    Set MyRange = Nothing
End Sub


Set MyRange = Range(Range("a1"), Range("a1").End(xlDown))
위 구문은 a1셀부터 a열의 마지막 데이터(공백)까지 범위를 잡아 MyRange에 담아둡니다.

위 빨강색부분을 실제 데이터가 있는 위치로 바꾸시면 되겠죠.

For Each MyCell In MyRange
위 구문은 MyRange범위를 한셀씩 순환합니다.

x = InStr(1, MyCell, Range("b1"), 1)
위 구문은 MyRange범위를 순환하면서 현재 선택된 셀(MyCell)의 B1셀 값의 위치를 찾아 x에 담아둡니다.

위 빨강색부분을 실제 데이터가 있는 위치로 바꾸시면 되겠죠.

MyCell.Characters(Start:=x, Length:=Len(Range("b1"))).Font.Color = -16776961
위 구문은 현재 선택된 셀의 윗 구문에서 찾은 위치부터 B1셀의 문자수만큼
문자색상을 빨강색(-16776961)으로 바꿉니다.

위 빨강색부분을 실제 데이터가 있는 위치/실제 색상으로 바꾸시면 되겠죠.

Next MyCell
위 구문은 MyRange범위의 마지막까지 계속 순환토록 합니다.

Set MyRange = Nothing
위 구문은 MyRange범위를 메모리상에서 지웁니다.