データ入力時に重複を避けたいので、次のようにした
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        For i = 1 To .Row
            If .Value <> "" Then
                If .Value = Cells(i, .Column) Then
                    MsgBox "重複しています"
                    .Select
                    Exit For
                End If
            End If
        Next
    End With
End Sub

入力規則でできるのでは？と言われたので、やってみた。
例）B列の設定
入力規則で
ユーザー設定　=COUNTIF(B:B,B1)=1
ついでに条件付書式で
数式　=COUNTIF(B:B,B1)>1
　書式-パターン-赤
VBAよりシンプルだ。でもVBAで処理する方が素敵だと、いつも自分に言い聞かす