各セルを読み込んで特定文字がある場合、背景色を黄色く強調するVBAのサンプルコード

Sub ボタン1_Click()

    '対象範囲を選択する(ヘッダー行は除く)
    With Range("A3").CurrentRegion
        'そのままだとA1:C7まで選択されるので、
        '行数を7行から5行へ2行減らす、かつアクティブセルをA1からA3まで2行ずらす
        .Resize(.Rows.Count - 2).Offset(2).Select
    End With

    '選択したセル範囲を全てループ
    For Each c In Selection

        If (InStr(1, c.Value, "か") > 0) Then
            '背景色を黄色にする
            c.Interior.Color = ColorConstants.vbYellow
        Else
            '背景色を白色にする
            c.Interior.Color = ColorConstants.vbWhite
        End If
    
    Next

End Sub