エクセル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

Categories:

category