|
Dim i As Long
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Sort Key1:=Columns(1), _
Order1:=xlAscending, Key2:=Columns(2), Order2:=_
xlAscending, Header:=xlYes, Orientation:=xlSortColumns
For i = 2 To Range("A65536").End(xlUp).Row - 1
If Cells(i, 1).Value = Cells(i + 1, 1).Value Then
If Cells(i, 2).Value <> .Cells(i + 1, 2).Value Then
Cells(i + 1, 1).Resize(, 4).Interior.ColorIndex = 6
End If
End If
Next i
Application.ScreenUpdating = True
テストはしてませんが、以上のようなコードになるかと思います。
なお、名前が変化すれば電話番号も変わる、という常識的判断をしています。
|
|