特定の文字が含まれるセルに色を付ける
A列で「県」という文字が含まれるセル全てに黄色で色を付けます。
Sub Sample88()
Dim R As Range, A As String
Set R = Range("A:A").Find("県", Range("A1"), , xlPart)
If Not R Is Nothing Then
A = R.Address
Do
R.Interior.ColorIndex = 6
Set R = Range("A:A").FindNext(R)
Loop Until A = R.Address
End If
End Sub