エクセルでのデータの照合

質問

お世話になります。WindowsXPエクセル2003を使っているマクロ初心者です。

A B C D E F G
１ ２ ３　 １ ２ ２
２ ３ ４　 ２ ３ ４
３ ４ ５　 ２ ４ ５
４ ５ ６　 ４ ４ ６
５ ６ ７　 ５ ６ ８

（左グループを元データ、右グループを加工データとします）
A列とE列・B列とF列・C列とG列…という流れでデータを比較し、
元データと値の違うセルの色を変え、赤の太字にするようなマクロを作るには
どのように書けばいいのでしょうか。
上記例の場合では、E3・F5・G2・G7のセルを変化したいということになります。
条件付書式でも試してみたのですが、なかなかうまくいかなかったため、
これからマクロに触れる機会も増えることを考えて、マクロで対応したく思い、
連絡させていただきました。宜しくお願いいします^^

回答No.2

n-jun

Sub try()
Dim r As Range

' セルＥ１～Ｇ５の値を順番に調べる
For Each r In Range("E1:G5")

' 上記範囲の１個のセル値と左に４つ移動した値が同じ場合
' ⇒例えばＥ１とＡ１、Ｆ３とＢ３など
If r.Value = r.Offset(0, -4).Value Then

' 比較したセルの塗りつぶしを黄色にする
r.Interior.ColorIndex = 6

End If

Next
End Sub

回答No.1

S-Fuji

マクロでなくても、条件付書式で対応できます。
E1のセルに、「セルの値が」「次の値に等しくない」「=A1」
で、「書式」に、赤色と太字を設定。
後はその書式を他のセルへコピーすればOKです。