[已解决]如何查找重复值

虚度此生

各位大侠，如附件，工作表中有很多数值，如何判断里面有没有相同的值并找出来，将其着色标记，数量少的话我知道可以用CTRL+F查出来，但是数值太多了，这样操作很要时间。请问有没有简单一点的方法？

最佳答案

月排行榜 / 总排行榜

007feiren

2013-1-18 12:01

我来给你解决这个问题：
我用的是excel2010版本，第一种方法：选中要设置条件格式的单元格—条件格式—突出显示单元格规则—重复值
第二种方法：我是用公式设置，这个适合任何版本2003或者2010，用countif

跳转到最佳答案楼层

suye1010

两种方式:
1.利用条件格式 ( 公式可以使用countif)
2.利用数据有效性,圈释无效数据

feedyu

版主很速度啊.
那我就补充一个,如果需要取出不重复数据,可以通过高级筛选(选择不重复记录)实现.

dpdmlym

1. Sub 找重复值()
   
2. Dim d, arr, str As String, brr, m As Integer
   
3. m = 3
   
4. arr = Sheet1.UsedRange
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To UBound(arr, 1)
   
7. For j = 1 To UBound(arr, 2)
   
8. If d.Exists(arr(i, j)) Then
   
9. str = d(arr(i, j))
   
10. brr = Split(str, "/")
    
11. If Cells(Val(brr(0)), Val(brr(1))).Font.ColorIndex = xlAutomatic Then
    
12. Cells(Val(brr(0)), Val(brr(1))).Font.ColorIndex = m
    
13. Cells(i, j).Font.ColorIndex = m
    
14. m = m + 1 '估计没有50个重复的
    
15. Else
    
16. Cells(i, j).Font.ColorIndex = Cells(Val(brr(0)), Val(brr(1))).Font.ColorIndex
    
17. End If
    
18. Else
    
19. d(arr(i, j)) = i & "/" & j
    
20. End If
    
21. Next j
    
22. Next i
    
23. Set d = Nothing
    
24. End Sub
    

复制代码

007feiren

我来给你解决这个问题：
我用的是excel2010版本，第一种方法：选中要设置条件格式的单元格—条件格式—突出显示单元格规则—重复值
第二种方法：我是用公式设置，这个适合任何版本2003或者2010，用countif

虚度此生

谢谢007，这正是我要的结果，很给力，同时谢谢其他朋友。