エクセルVBAでデータ中の文字列セルに色をつけたい

こんにちは。 ＞下記のようなデータがあり、●、■文字のセルに色をつけたいです。●、■以外の何種類かの文字列にも各々の色をつけます。ここでは２種類にします。 それは、以下のコードで出来ます。 ＞空白には何も入れないで色つけをしたいです。 しかし、パターンの色付けということですか？ 別のコードにするしかないかもしれませんね。 '<標準モジュール> Sub Sample1() Dim myWords As Variant, myColors As Variant Dim myFadd As String, c As Range, i As Long '========================================= 'ユーザー設定部分（[,]コンマで切ること） Const 検索値 As String = "●,■" Const 色番号 As String = "3,5" ' 赤

[mellow_punch]

文字色、colorindex、色番号