说明:
代码能够自动将空的单元格忽略掉,并且提示框出现之后,点确定,会将输入的重复的数据删除。
一、效果
二、代码
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