1セルの文字列の、2回目以後出現した日本にも赤色をつけるために Sub test1() Dim rng As Range, cl As Range, i As Long With ActiveSheet Set rng = .Range("a1:z100") '範囲の設定 txt = InputBox("色をつける文字の指定") '------ For Each cl In rng s = 1 While s <= Len(cl) p = InStr(s, cl, txt, 1) If p > 0 Then cl.Characters(p, Len(txt)) _ .Font.Color = vbRed s = s + p Else GoTo p1 End If Wend p1: Next End With End Sub を標準モジュールに貼り付けて実行してみてください。 (例) 日本の
![エクセルで特定文字列に色をつけたいです。](https://cdn-ak-scissors.b.st-hatena.com/image/square/c16f1150a5379d4c0ab404bddba45b907656dc5d/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2099_3.jpg)