特定の文字が含まれるセルに色を付ける
JUGEMテーマ：PC関連
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
広告リンク
- 2016.05.11 Wednesday
- excel
- 17:28
- comments(0)
- trackbacks(0)
- -
- -
- by nombo
