エクセルVBAで重複を見つける
その数値が、同じ列の下の方の数値と重複しているか簡単に見たい。色をつける。
その数値が入ったセルをアクティブにする。そして、以下のVBAを実行。
Sub 重複発見()
Dim a As String
Dim c As Integer
Dim d As Integer
Dim i As Integer
a = ActiveCell
c = ActiveCell.Column
d = ActiveCell.End(xlDown).Row
For i = 1 To d
If a = Cells(i, c) Then
Cells(i, c).Interior.Color = RGB(252, 215, 161)
End If
Next i
End Sub