|
▼トキノハジメ さん:
>ぜひ、VBAでの方法でしりたいのです。
>
では、今まででてきた計算式のロジックを書いただけですが。
アップされたサンプル、1行目だけではなく2行目、3行目もあるのかな?
と思えるんですが、とりあえず1行目だけです。
それと、薄紫 って、どの色をイメージしておられるのか不明だったので適当に。
エクセルバージョンによって色合いも異なるようですし、お気に召さなければ別のColorIndexなり
別のColorコードなりで処理してください。
Sub Test()
Dim c As Range
Dim flag As Boolean
With Range("A1", Cells(1, Columns.Count).End(xlToLeft))
.Interior.ColorIndex = xlNone
For Each c In .Cells
flag = False
If c.Value = c.Offset(, 1).Value Then
flag = True
Else
If c.Column > 1 Then
If c.Value = c.Offset(, -1).Value Then flag = True
End If
End If
If flag Then c.Interior.ColorIndex = 39
Next
End With
End Sub
|
|