Sub Sample2() Dim str_1 ,str_2 as String Dim i , j , ro , col as Integer '変数str_1にセルA1の文字列を格納(置換え前の文字) str_1 = Range("A1").Value '変数str_2にセルA2の文字列を格納(置換えたい文字) str_2 = Range("A2").Value '置き換えたい文字数を変数iに格納 i = len(str_2) For ro = 2 to 100 For col = 1 to 20 'セルの中に変数str_1(文字列)があるか検索 If InStr(Cells(ro, col).Value, str_1) <> 0 Then 'Replace = 置き換えたいセルの位置,変更前の文字,変更後の文字を記述 Cells(ro, col).Value = Replace(Cells(ro, col), str_1, str_2) 'InStr = セルの中に含む値開始位置取得 j = InStr(Cells(ro, col).Value, Str_2) 'Characters = セルの中に含む値開始位置で取得した文字数の文字色を赤に変更 Cells(ro, col).Characters(Start:=j, Length:=i).Font.ColorIndex = 3 End If next next End Sub