求助帖，解决同一列不同内容标记成不同颜色！颜色随机

格子-。-

目标：寻找重复项，记录重复项个数。 如没有重复项则不用标记。
如文件， 如果条件格式选标记重复项 ，所有不同内容的重复项标记的都是同一颜色。
怎样能标记重复的内容，每一种重复的内容自动标记一种颜色。无重复的不用标记。

little-key

在2010中的条件格式不是有一个标示重复的功能吗

一根豆芽

不知道你是不是想找出重复出现的项目，排序之后，重复项就在一起，也是一目了然的。

格子-。-

一根豆芽 发表于 2016-1-5 20:33
不知道你是不是想找出重复出现的项目，排序之后，重复项就在一起，也是一目了然的。

找出重复项目 计数 或者标记就行 不用排序 主要是表的顺序不能变所以很头疼

格子-。-

little-key 发表于 2016-1-5 16:54
在2010中的条件格式不是有一个标示重复的功能吗

是有一个这个功能  但是 重复的不止一种 而只要是重复的标记的都是同一种颜色 所以无法统计重复项的数量

TFQWFN

用透视表轻松搞定重复项及计数

格子-。-

TFQWFN 发表于 2016-1-6 09:22
用透视表轻松搞定重复项及计数

求指导，应该怎么实现。

蓝桥玄霜

点击按钮即可。
在D列显示重复的个数。

1. Sub lqxs()
   
2. Dim Arr, i&, aa, ys, j&
   
3. Dim d, k, t
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Arr = [a1].CurrentRegion
   
6. Cells.Interior.ColorIndex = xlNone
   
7. [d:d].ClearContents
   
8. For i = 2 To UBound(Arr)
   
9.     d(Arr(i, 3)) = d(Arr(i, 3)) & i & ","
   
10. Next
    
11. k = d.keys: t = d.items: ys = 2
    
12. For i = 0 To UBound(k)
    
13.     t(i) = Left(t(i), Len(t(i)) - 1)
    
14.     If InStr(t(i), ",") Then
    
15.         aa = Split(t(i), ",")
    
16.         ys = ys + 1
    
17.         If ys > 56 Then ys = 3
    
18.         For j = 0 To UBound(aa)
    
19.             Cells(aa(j), 3).Interior.ColorIndex = ys
    
20.         Next
    
21.         Cells(aa(0), 4) = UBound(aa) + 1
    
22.     End If
    
23. Next
    
24. End Sub
    

复制代码

请见附件。

格子-。-

蓝桥玄霜 发表于 2016-1-6 10:49
点击按钮即可。
在D列显示重复的个数。
请见附件。

万分感谢，已经带走。准备研究下，方便易操作，太谢谢了

TFQWFN

格子-。- 发表于 2016-1-6 09:36
求指导，应该怎么实现。

这样不知是不是你想要的