我这扫码是二维码，录入到A列，但二维码没有重复，提示重复

gyh1106

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        If Application.CountIf(Range("A:A"), Target.Value) > 1 Then
            MsgBox "二维码已经扫过，请仔细检查"
            Target.ClearContents
        End If
    End If
End Su


二维码
8415090625420508360202000026
8423090812520702456202000558
8451090812020704057202000399
8508090618920501357202000498

8508090618920501357202000101
8508090618920501357202000133
8508090618920501357202000514
8508090618920501357202000165
8508090618920501357202000210
8508090618920501357202000099
8508090618920501357202000128
8508090618920501357202000224

IVYQQQQQ

问题应该是全数字时，位数太多时，EXCEL只会区别前面的十几位，如果前面的一样就会认为重复。

gyh1106

IVYQQQQQ 发表于 2019-12-17 14:09
问题应该是全数字时，位数太多时，EXCEL只会区别前面的十几位，如果前面的一样就会认为重复。

如何解决，老师？

IVYQQQQQ

gyh1106 发表于 2019-12-17 14:16
如何解决，老师？

每个人的解决方案是不一样的，附件给你一个条件格式供你参考, 用条件格式突出显示也可以！

修改代码的思路就是把字符串（字符串 & ""）写入字典，判断是否存在。

魂断蓝桥

试一试 Target.Value & "'"

gyh1106

IVYQQQQQ 发表于 2019-12-17 14:27
每个人的解决方案是不一样的，附件给你一个条件格式供你参考, 用条件格式突出显示也可以！

修改代码的 ...

附件没有，判断

gyh1106

魂断蓝桥 发表于 2019-12-17 14:32
试一试 Target.Value & "'"

我试了，不行，这样就不判断是否重复了

lovemh1987

target.NumberFormatLocal = "@"   填上这句试试

gyh1106

lovemh1987 发表于 2019-12-17 14:52
target.NumberFormatLocal = "@"   填上这句试试

也不行，是不是得录入到数据库里面，才可以啊？

lovemh1987

gyh1106 发表于 2019-12-17 14:59
也不行，是不是得录入到数据库里面，才可以啊？

我以为写到这里也可以呢，看来应该在改变之前设置。 那你把a列设置成文本格式 这样在输入的时候 应该就可以解决这个问题了