请各位大神指导小女子，如何在相同的单元格标记同一种颜色，不同值不同颜色

caiweihong

蓝桥玄霜 发表于 2017-7-30 10:23

谢谢大神，仰慕你很久了，祝你身体健康

caiweihong

蓝桥玄霜 发表于 2017-7-30 10:23

你好，按照你代码复制到Sheet2中，提示子过程或函数未定义，本人对这个一点也不懂，请问要如何设置？

caiweihong

jiangxiaoyun 发表于 2017-7-30 10:17
来来来，继续审核》》》》》》》》》》》》

你好，按照你代码复制到Sheet2中，点击运行出来的结果同一颜色有不同值

我需要
相同值的单元格标记同一种颜色，但是不同值不同颜色，唯一值不标记颜色

请问要如何修改呢？我对这个一点也不懂，麻烦你指导一下，感谢

jiangxiaoyun

caiweihong 发表于 2017-7-30 15:20
你好，按照你代码复制到Sheet2中，点击运行出来的结果同一颜色有不同值

我需要

只是相似，并不是相同值，参考颜色代码

caiweihong

jiangxiaoyun 发表于 2017-7-30 15:32
只是相似，并不是相同值，参考颜色代码

刚才再试了一下，仔细看了，还是相同颜色，有两个不同值，麻烦你看看我的附件

caiweihong

jiangxiaoyun 发表于 2017-7-30 15:32
只是相似，并不是相同值，参考颜色代码

按照7楼“”蓝桥玄霜“”给的代码，复制到Sheet2中，提示子过程或函数未定义
本人对这个一点也不懂，你是否可以帮我看一下？感谢

1. Sub Macro1()
   
2. Dim arr, d As Object, k, t, i&, n%, aa, j&
   
3. Columns("f:f").Interior.ColorIndex = xlNone
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Range("e4:e" & Range("e65536").End(xlUp).Row)
   
6. For i = 1 To UBound(arr)
   
7.         d(arr(i, 1)) = d(arr(i, 1)) & i & ","
   
8. Next i
   
9. k = d.keys: t = d.items: n = 1
   
10. For i = 0 To UBound(k)
    
11.     t(i) = Left(t(i), Len(t(i)) - 1)
    
12.     If InStr(t(i), ",") Then
    
13.         n = n + 1
    
14.         aa = Split(t(i), ",")
    
15.         For j = 0 To UBound(aa)
    
16.             Cella(aa(j) + 3, 6).Interior.ColorIndex = n
    
17.         Next
    
18.     End If
    
19. Next
    
20. End Sub
    

复制代码

caiweihong

麻烦帮忙指导一下

caiweihong

帮忙指导一下，等了很久了

caiweihong

感谢各位支持

yfanzi

Cella(aa(j) + 3, 6).Interior.ColorIndex = n
改成

Cells(aa(j) + 3, 6).Interior.ColorIndex = n