Excelで特定の文字が入っている時のVBA

こんな感じでどうでしょう。

Sub color_nihon()
    For c = 4 To 26     ' D～Z列
        For r = 5 To 105
            If InStr(Cells(r, c).Value, "日本") <> 0 Then
                Set a = Range(Cells(r, c), Cells(r + 1, c))
                a.Font.Bold = True          ' 太字
                a.Font.Color = -16776961    ' 文字色：赤
                a.Interior.Color = 49407    ' 背景色：オレンジ
            End If
        Next
    Next
End Sub