在表格中输入已有的数据时，提示重复并且定位到第一次出现的位置

说明:

代码能够自动将空的单元格忽略掉，并且提示框出现之后，点确定，会将输入的重复的数据删除。

一、效果

二、代码

Private Sub Worksheet_Change(ByVal t As Range)
    If t.Column = 1 Then
    '区域存储进字典并且进行查重
    Dim rng
    Set rng = Range("A1:A100")
    Set d = CreateObject("Scripting.Dictionary")
    For Each ar In rng
       If ar.Value = "" Then GoTo x
        If d.Exists(ar.Value) Then
            Range(d(ar.Value)).Select
            MsgBox "此处已经有重复数据！！！"
            ar.Value = ""
        Else
            d(ar.Value) = ar.Address
        End If
x:
    Next
    End If
End Sub

 此代码注意要放在对应的sheet表中才可以使用事件，不可以放到模块中！！！