Excelで、別の列の言葉と共通部分に書式設定

質問

Excelのシートの
C列・G列・J列・K列には、日本語の言葉が入っています。

例えば、以下のような感じです。

Ｃ列　　　　　　　　　　　　　　Ｇ列　　　　　　　　　　　　　　　Ｊ列　　　　　　　　　　　　　Ｋ列
こんにちは鈴木さん　　　こんにちは佐藤さん　　　　こんにちは山田さん　　　こんにちは
今日はさんざんだった　　　　太郎さん　　　　　　　　　　　さんすう　　　　　　　　さん
とり　　　　　　　　　　　　　　　にわとり　　　　　　　　　　　　　とっとり県　　　　　　　　とり
川口さん　　　　　　　　　　　　利根川　　　　　　　　　　　　　　河川　　　　　　　　　川

Ｃ列・Ｇ列・Ｊ列の言葉は、Ｋ列の言葉を含みます。（言葉の意味とか読み方は気にしないことにします。）
Ｃ列の言葉（例えば、上の例で一番上の行で言うと、「こんにちは鈴木さん」）のうち、
Ｋ列の言葉の部分（「こんにちは」）に、自動で、なんらかの書式（太文字とか、網掛けとか、色をつけるとか。）を設定したいです。
つまり、「こんにちは鈴木さん」のうち「こんにちは」に書式設定したいです。（Ｋ列に書式設定するのではありません。）
どうすればよいですか？

Ｇ列・Ｊ列の言葉も同様に、Ｋ列の言葉の部分に書式設定したいです。

Excel2002

回答No.1

mshr1962 · ベストアンサー

エクセルではできないのでは？
エクセルでできるのは、対象だけでないセル全体の書式の変更（条件付書式）です。
ワードなら対象文字のみの変更を置換（オプションで書式）で設定できます。

お礼

ご回答ありがとうございます。

回答No.2

imogasi

最近同類の質問が続いているように思うが、
エクセルではセルの文字単位の書式設定は、個別に手動でスタート位置とエンド位置を指定してでしかきない。
それが面倒であれば、ＶＢＡにやらすしかない。
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
se = Cells(i, "E")
sa = Cells(i, "A")
p = InStr(1, sa, se)
If p = 0 Then Exit For
Cells(i, "A").Characters(p, Len(se)).Font.ColorIndex = 3
Next i
End Sub
のようなコードにすれば良い。
Ａ列各セルについてＥ列の語句・文章があれば、Ａ列の語句・文章の該当箇所を赤色文字にするもの。
Ｂ，Ｃ、Ｄ列なども同じことをしたいときは、
Sub test01()
d = Range("A65536").End(xlUp).Row
For j = 1 To 4
For i = 1 To d
se = Cells(i, "E")
sa = Cells(i, j)
p = InStr(1, sa, se)
If p = 0 Then Exit For
Cells(i, j).Characters(p, Len(se)).Font.ColorIndex = 3
Next i
Next j
End Sub
のように、ＦｏｒＮｅｘｔをネストさせるとできる。

補足

ご回答ありがとうございます。