在《VBA代码解决方案》这套教程中，给大家介绍了一种利用工作表函数CountIf来判断是否录入了重复值的方案。这种方案虽然不是我推荐的，但对于利用EXCEL多年的朋友是乐于接受的，在这节的代码中，我给出了： Private Sub Worksheet_Change(ByVal Target As Range) '51 利用VBA代码，限制重复值的录入 With Target If .Column <> 1 Or .Count > 1 Then Exit Sub If WorksheetFunction.CountIf(Range("A:A"), .Value) > 1 Then .Select MsgBox "不能输入重复的人员编号!", 64 Application.EnableEvents = False .Value = "" Application.EnableEvents = True End If End WithEnd Sub 这里需要注意几点：1 代码的书写位置，代码是写在哪里的？为什么？2 工作表函数的利用方法。3 判断的触发条件;判断值的重复在什么情况下触发;如何设置触发4 程序控制权的理解，代码中为什么要有程序控制权的处理？5 工作表事件中值的传递，在工作表中输入的数据是如何传递给程序的。 如果大家学习到这节，一定要再问一下自己上述的5个问题是否可以解答。如果能够解答，那么说明自己的VBA水平是达到预期的，如果还有部分问题不能解答，就需要再努把力了。学习的过程是循序渐进的，要在每节的代码中学到些自己需要的知识点。当你学到我的第三套教程《VBA数组与字典解决方案》时会有更好的排重方案。 【分享成果，随喜正能量】 我20多年的VBA实践经验，全部浓缩在下面的各个教程中： 【分享成果，随喜正能量】世人不知因果，常谓人死后，则告了脱，无善恶果报，此为最误天下后世之邪见。须知人死之后，神识不灭。如人人能知神识不灭，则乐于为善。若不知神识不灭，则任意纵欲，杀父杀母，种种罪恶，由此而生。此种极恶逆之作为，皆断灭邪见所致之结果。人人能诸恶莫作，众善奉行，并须敦伦尽分，闲邪存诚，则国运可转，灾难可消。则天下太平，人民安乐。然此尚非究竟法。何为究竟法？是在念佛求生西方，了生脱死。。
