Excelで置換した文字に色をつけたい
よろしくお願いします
Excelで、「対象シート」のB列を参照して、
「置換リスト」シートの一覧のC列の文字列をE列の文字列に置換するようにしています。
「対象シート」のA列には置換前のデータも入っているので、
「対象シート」のA列、B列それぞれの置換前、置換後の文字列に色をつけたいと思っています。
どの文字がどの文字に置換されたかを比較するためです。
置換後のB列のみ下記式で色をつけられたのですが、
該当文字が含まれる、セル内全部の文字の色が変わってしまいました。
該当文字だけの色を変えるにはどうすればよいでしょうか。
また、「置換リスト」シートのC列にある場は「対象シート」のA列の該当文字のみを赤くする方法も教えていただけないでしょうか。
Sub list置換_Click()
Dim list_sheet As Worksheet
Dim chg_sheet As Worksheet
'こっちは置換する元の文字と置換文字のリスト
Set list_sheet = Worksheets("置換リスト")
'こっちは一括置換したい対象のシート
Set chg_sheet = Worksheets("対象シート")
cnt = list_sheet.Range("c4").CurrentRegion.Rows.Count
For i = 4 To cnt
srcword = list_sheet.Cells(i, "C").Value
repword = list_sheet.Cells(i, "E").Value
With Application.ReplaceFormat.Font
.Subscript = False
.Color = 255
.TintAndShade = 0
End With
Columns("B:B").Replace What:=srcword, Replacement:=repword, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
Next i
End Sub
よろしくお願いいたします。
お礼
すごい単純ですね！ ありがとうございます！助かりました