こんばんは。

もし、もう解決済みでしたら、以下は無視してくださって結構です。

'標準モジュールです。

Private Const の後にところに、それぞれ、選んで書き入れてください。


'-------------------------------------------------
'Option Explicit
'フォントの種類
Private Const FNAME As String = "ＭＳ 明朝" 'ＭＳ ゴシック
'文字のスタイル
Private Const FSTYLE As String = "標準"　'太字, イタリック
'文字の大きさ
Private Const FSIZE As Single = 11
'文字の色
Private Const FCOLT As Integer = xlAutomatic　 '色は以下から数字を選ぶ

'黒(1),白(2),赤(3),黄緑(4),青(5),黄色(6),ピンク(7),
'水色 (8), 茶(9), 緑(10), 藍(11), 黄土色(12), 紫(13), 濃緑(14)
'灰色 (15),　xlAutomatic のみ「自動」（ColorIndexを調べると分かります)

Sub ReplaceFormatInCells()
'セルの書式の一部を変更するマクロ
　Dim mWhat As String
　Dim mFadd As String
　Dim c As Range
　
　mWhat = Application.InputBox("検索する単語を入れてください。", Type:=2)

　
　If mWhat = "False" Or mWhat = "" Then Exit Sub

　Set c = ActiveSheet.UsedRange.Find( _
　　What:=mWhat, _
　　LookIn:=xlValues, _
　　LookAt:=xlPart, _
　　SearchDirection:=xlNext, _
　　MatchCase:=True, _
　　MatchByte:=True)
　　　　　 If Not c Is Nothing Then
　　　　　　mFadd = c.Address
　　　　　　ReplaceFont c, mWhat
　　　　　　Do
　　　　　　Set c = ActiveSheet.UsedRange.FindNext(c)
　　　　　　If c.Address = mFadd Then Exit Sub
　　　　　　　ReplaceFont c, mWhat
　　　　　　Loop Until c Is Nothing
　　　　　End If
End Sub
Private Sub ReplaceFont(rng As Range, strSearch As String)
Dim i As Integer
Dim Ln As Integer
　　　　　　Ln = Len(strSearch)
　　　　　　i = InStr(rng.Value, strSearch)
　　　　　　With rng.Characters(i, Ln).Font
　　　　　　　.Name = FNAME
　　　　　　　.FontStyle = FSTYLE
　　　　　　　.Size = FSIZE
　　　　　　　.ColorIndex = FCOLT
　　　　　　End With
End Sub

２番です。

下記のページの紹介にはフォントの変更はありませんが、ちょっと手を加えるとフォントの設定も可能になります。

.ColorIndex = tmpColorIndex 'カラー
の他に
.Name = tmpFont 'フォント
を付け足します。
そしてtmpFontの値は
tmpFont = "ＭＳ 明朝"
tmpFont = "ＭＳ Ｐ明朝"
tmpFont = "ＭＳ ゴシック"
tmpFont = "ＭＳ Ｐゴシック"
などとします。

私はフォント設定も追加してユーザーフォームを作っております。

はじめまして

ココは参考になると思うのですが、いかがでしょうか?

http://www.excel7.com/personal/personal1-4.htm

置換したいセル範囲だけ選択しておいて、置換すればよいのでは？

多分、飛び飛びに離れたセル範囲でもOKだと思いますよ。

フォントの書式は、置換直後、選択された状態のまま変更すればよかったと思います。