统计一列当中颜色个数

林莉珠

哪位大神帮忙求解一下，百度了也还是不行
需求：工作薄中每一列统计相同颜色的个数（只要2种颜色即可）
在线等，着急着急，谢谢！！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim d As Object
   
5.   Set d = CreateObject("scripting.dictionary")
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     For j = 4 To 11
   
9.       d.RemoveAll
   
10.       For i = 4 To r
    
11.         ys = .Cells(i, j).DisplayFormat.Interior.ColorIndex
    
12.         d(ys) = d(ys) + 1
    
13.       Next
    
14.       .Cells(2, j) = Application.Max(d.items)
    
15.       .Cells(3, j) = Application.Min(d.items)
    
16.     Next
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

详见附件。

林莉珠

chxw68 发表于 2019-2-12 19:28

可以了，太感谢了，高手都在这，谢谢谢谢

林莉珠

chxw68 发表于 2019-2-12 19:29
详见附件。

大神再咨询一下，能不能做条件格式，1、标出最高值，2、标出最低值，3、重复值不标色

chxw68

林莉珠 发表于 2019-2-13 10:53
大神再咨询一下，能不能做条件格式，1、标出最高值，2、标出最低值，3、重复值不标色

这个用vba很好实现，用条件格式我就不知道了。

hcm19522

D2:K2=SUMPRODUCT(N(D4:D18=$B4:$B18))

D3:K3=SUMPRODUCT((D4:D18=$C4:$C18)*($B4:$B18<>$C4:$C18))

(先 藍色)D4:K18=格式化=(COUNTIF($D4:D4,D4)=1)*(MIN($D4:$K4)=D4)

(後 紅色)D4:K18=(COUNTIF($D4:D4,D4)=1)*(MAX($D4:$K4)=D4)

林莉珠

hcm19522 发表于 2019-2-13 12:22
D2:K2=SUMPRODUCT(N(D4:D18=$B4:$B18))

D3:K3=SUMPRODUCT((D4:D18=$C4:$C18)*($B4:$B18$C4:$C18))

最大值统计的时候区域值一样忽略，统计个数需要公式怎么调整，谢谢！！！！