excel不允许输入重复值

lvxiaowei

我做了屏幕录像，主要是懒得截图。呵呵，希望大家指教，或有更好的方法推荐。

chenyuanwen

谢谢提供的录象。
手输可以防止重复录入，但遭遇填充（拖拉复制或Ctrl+D复制）时却会傻眼，重复出现易如反掌。
一直想求一段VBA代码，能防止填充导致的重复录入。

gzfjg

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim cntA As Integer
     For Each rngA In Target
        If rngA = "" Then
        Else
            cntA = Application.WorksheetFunction.CountIf(ActiveSheet.Range("A:A"), rngA)'查找的列范围
            If cntA > 1 Then
                MsgBox "重复数据[" & rngA & "]", vbCritical, "错误"
                rngA = ""
            End If
            End Sub

ppss110119

显示 没有End if 根据你的代码 楼上的

ppss110119

那位老师能给写一段正确的VBA 代码啊
根据2楼的意思 那位老师能给写一段啊 感谢

gzfjg

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim cntA As Integer
    For Each rngA In Target
        If rngA = "" Then
        Else
            cntA = Application.WorksheetFunction.CountIf(ActiveSheet.Range("A:A"), rngA)'查找的列范围
      If cntA > 1 Then
                MsgBox "重复数据[" & rngA & "]", vbCritical, "错误"
                 rngA=""
            End If
        End If
    Next
End Sub

chenyuanwen

非常非常好用，非常非常灵光，非常非常感谢6楼的这位朋友。

whqllx

以上VBA过程，对新身份证号码无效！

chenyuanwen

回6楼的，刚发现，您的VBA，对新身份证号无效，不重复的号码也报重复，关键是您用的工作表函数COUNTIF() 对超过15位的数字和文本数字，均认为是重复的。
望6楼的高手再作修改，谢谢！！！

whqllx

用Countif("A:A",A1&"*")=1设置数据有效性就可以了。