セルの選択、変色

質問

お願いします。
A列において、あるセルの値と1つ下のセルの値が同じ場合は、2つともセルの色を黄色に変えるという作業を10000行まで行うプログラムを知りたいです。よろしくお願いします。

回答No.1

haruko2005 · ベストアンサー

Sub test()

Dim i As Integer

For i = 1 To 10000
If Range("A" & i) = Range("A" & i + 1) Then
Range("A" & i & ":A" & i + 1).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
Next

End Sub

以上でいかがでしょうか？

お礼

ありがとうございました。助かりました。