唐草 @luz__blanca

Sub 任意の語を含む行に色をつける()

Const 判断列 As Long = 7 'この列に任意の語が入っていたら
Const キーワード = "t" 'ここで任意の語を設定
Const 色番号 = 45 'ここで色番号を設定　45はオレンジ

Dim 作業行, 最終行

Application.ScreenUpdating = False

最終行 = Cells(Rows.Count, 判断列).End(xlUp).Row

For 作業行 = 2 To 最終行

If Cells(作業行, 判断列) = キーワード Then
Rows(作業行).Interior.ColorIndex = 色番号
End If
Next


End Sub