如何时时检测出重复值？

lovelfg

A列有若干数据，现在沿A列继续往下输入数字，现在需要一但输入的数字与它以上的任意行的数字产生重复，立即标上底色且提示与之重复的上面的数字的行号，求教应该如何编写代码？
注意，不是寻找A列重复的数字，而是时时侦测是否有重复数字的产生。

大灰狼1976

工作表change事件可以实现。

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column > 1 Then Exit Sub
   
4. Dim i&, r&
   
5. For i = 1 To Target.Row - 1
   
6.   If Cells(i, 1) = Target Then r = i: Exit For
   
7. Next i
   
8. If r Then
   
9.   Target.Interior.Color = vbYellow
   
10.   MsgBox r
    
11. End If
    
12. End Sub

复制代码

lovelfg

大灰狼1976 发表于 2019-8-23 15:28
工作表change事件可以实现。

这个我不太会用，可否给个示例？

大灰狼1976

发你的贴子正在审核中，请稍候。

lovelfg

大灰狼1976 发表于 2019-8-23 15:33
发你的贴子正在审核中，请稍候。

感谢，静候

lovelfg

大灰狼1976 发表于 2019-8-23 15:33
发你的贴子正在审核中，请稍候。

大哥，已经二十分钟过去了，还是没审核好，可否麻烦您截个图发出来?

一把小刀闯天下

'给你敲点试一下，仅判断当前单元格，，，

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  If Target.Column <> 1 Then Exit Sub
  Application.EnableEvents = False
  Dim i
  [a:a].Interior.ColorIndex = xlNone
  If Len(Target.Value) > 0 Then
    For i = 2 To Target.Row - 1
      If Cells(i, "a").Value = Target.Value Then Cells(i, "a").Interior.Color = vbRed
    Next
  End If
  Application.EnableEvents = True
End Sub

w609053988

一个for循环搞定，字典也很好解决

jiangxiaoyun

数据验证就可以搞掂了。没必要用vba。百度一下大把例子。问，等都多余。