VBAで、条件に基づきセルに色を付ける方法

Question

お世話になっております。
上の行と異なる場合のみ、そのセルの背景色に色を付ける方法を探しております。

【満たしたい要件】
１．Excelの6行目以降の、偶数行に、変更前という行があります。
２．Excelの7行目以降の、奇数行に、変更後という行があります。
３．上記の行の4列目以降（D列）以降にだけ、適用させたいルールがあります。
４．奇数行の時、上のセルと異なる値の場合、セルの背景色を赤くしたい

【考えた方法】
VBAで、ある特定のセル範囲に条件付き書式を適用させればいいとまで分かり

writeRow = 6

for i = writeRow To 10000
  '　奇数
  If writeRow Mod 2 <> 0 Then
    ' 色を付ける
    Range(Cells(writeRow, 4), Cells(writeRow, 100)).FormatConditions.Add(xlExpression, xlNotEqual, "=$D7<>$D6").Interior.Color = RGB(255, 0, 0)
  End If
writeRow = writeRow + 1
next i

上記のように、書いたのですが方法が思いつかず悩んでおります。
何か不足している情報がありましたら、ご教授ください。

Comments

[退会済みユーザー]

状況を第三者が再現できるように、もう少し前提になるワークシートの状態を図で示したりできないでしょうか。

Answer 1

若干無駄は出ますが、手動で対象範囲全体に（D6:~）条件付き書式を設定してしまった方が楽な気がします。

条件は

４．奇数行の時、上のセルと異なる値の場合

となりますので

= AND(「奇数行」,「上のセルと異なる」)

となる数式を条件付き書式の数式に入れれば良いでしょう。

奇数行の条件は

MOD(ROW(), 2) <> 0

上のセルと値が違う条件は

D5<>D6 # 絶対参照ではなく、相対参照

となります。

以上を踏まえればD6:~の範囲に以下の条件で条件付き書式を設定すればよいです。

=AND( MOD(ROW(), 2)<>0 , D5<>D6 )