[已解决]跨工作表查重复值

虚度此生

如题，sheet2,sheet3有一些数据，当我在sheet1的A列输入有和sheet2和sheet3相同的数据时，它会自动标识出来。
同一表同一列的我知道可以用条件格式，但是跨工作表我就不知道怎么办了，各位大神请指教,多谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-8 12:31

附件请测试。
注：加入了自动批注功能，告诉你跟哪个工作表的哪个单元格重复，不需要的话把
Target.NoteText Sheets(i).Name & "," & Target.Address(0, 0)
删除。

跳转到最佳答案楼层

大灰狼1976

前提会用VBA。

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. If Target = "" Then Target.Interior.Pattern = xlNone: Exit Sub
   
5. Dim rng As Range, i&
   
6. For i = 2 To Sheets.Count
   
7.   With Sheets(i)
   
8.     Set rng = .[a:d].Find(Target, lookat:=xlWhole)
   
9.     If Not rng Is Nothing Then Target.Interior.Color = vbYellow: Exit Sub
   
10.   End With
    
11. Next i
    
12. If i = Sheets.Count + 1 Then Target.Interior.Pattern = xlNone
    
13. End Sub

复制代码

砂海

跨表 用定义名称 , 曲线救国

虚度此生

大灰狼1976 发表于 2017-5-6 11:41
前提会用VBA。

谢谢回复，VBA没有学过，能不能帮我做一下我直接用？见附件，前面有四个表有数据，要在最后一个表里面查重复值，就是说“查重复值”这个表里的A列我输入数据后，如果和前面四个表里任何数据有重复，都高亮标出了。谢谢了！！

大灰狼1976

附件请测试。
注：加入了自动批注功能，告诉你跟哪个工作表的哪个单元格重复，不需要的话把
Target.NoteText Sheets(i).Name & "," & Target.Address(0, 0)
删除。

大灰狼1976

Target.NoteText Sheets(i).Name & "," & Target.Address(0, 0)错误，
改成：Target.NoteText Sheets(i).Name & "," & rng.Address(0, 0)

虚度此生

大灰狼1976 发表于 2017-5-8 12:31
附件请测试。
注：加入了自动批注功能，告诉你跟哪个工作表的哪个单元格重复，不需要的话把
Target.NoteT ...

非常感谢！这正是我想要的