[分享]【工作表Change事件之一】数据的不重复录入

doing911

在数据录入过程中，为了防止录入重复数据，我们除了使用数据有效性中的自定义公式外，利用工作表的Worksheet_Change事件结合工作表CountIf函数可以达到同样的目的，并可根据需要进行其他操作，比数据有效性更加方便灵活。附件中对A到E列进行了设置，同列中不能输入重复值，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a As Integer
    Dim k As Byte
    If Target.Column < 6 And Target.Row > 1 Then
        If Target.Count = 1 Then
            a = Cells(65536, Target.Column).End(xlUp).Row
            k = Application.WorksheetFunction.CountIf(Range(Cells(2, Target.Column), Cells(a, Target.Column)), Target.Text)
            If Trim(Target.Text) <> "" And k > 1 Then
                Target.Value = "": Target.Select
                MsgBox "输入重复!", 64, "提示"
            End If
        End If
    End If
End Sub

X2HOCpWY.rar (6.32 KB, 下载次数: 34)

2008-2-24 11:49 上传

点击文件名下载附件
[分享]【工作表Change事件之一】数据的不重复录入

laosanjie

谢谢分享！[em23][em23]

mxg825

谢谢分享！

mxg825

换了我的条件格式法！整个工作薄的反应速度略快一点了！

hhzjxss

谢谢分享！

wsmnjj

多谢楼主

iedcsve

楼主，如果输入的数据已经存在，你现在的结果是清除，能不能清除后跳转到已存在数据的单元格位置，非常感谢