重複時の網掛けについて
以前、重複行を網掛けにする処理で質問を載せましたが、
もう少し深くやりたくて試しているのですが、
無限ループが発生して困っております。
A B
1 aaa
1 aaa
1 aaa
2 aaa
2 aaa
2 aaa
3 bbb
3 bbb
4 aaa
4 aaa
上記データがあって結果を
A B C
1 aaa 重複
1 aaa 重複
1 aaa 重複
2 aaa 重複
2 aaa 重複
2 aaa 重複
3 bbb パス
3 bbb パス
4 aaa パス
4 aaa パス
B列の値が同じの場合は、A列の番号が大きいもののみパスと
するように処理を作成しようと思っております。
下記でまずはどのように値が返ってくるか試したのですが、
無限ループになってしまいました。
Dim i As Integer
Dim n As Integer
LastRow = Range("A65356").End(xlUp).Row
For i = 1 To LastRow
A_retsu = Cells(i, 1).Value
B_retsu = Cells(i, 2).Value
For n = 1 To LastRow
If A_retsu = Cells(n, 1).Value And B_retsu = Cells(n, 2) Then
MsgBox "パス"
Else
MsgBox "重複"
End If
Next
Next
End Sub
最終結果は、
3 bbb パス
3 bbb パス
4 aaa パス
4 aaa パス
上記だけを残して他は削除させる処理を作りたいです。
すいませんがお願いします
