[已解决]求助，如何统计出附件中每一行不同颜色单元格的个数呢？

xiajing920

求助，如何统计出附件中每一行不同颜色单元格的个数呢？

最佳答案

月排行榜 / 总排行榜

xdragon

2014-1-8 16:49

1. Function CountByColor(区域 As Range, 是否包含背景颜色 As Boolean)
   
2.   Dim rng, d As Object
   
3.   Set d = CreateObject("scripting.dictionary")
   
4.   For Each rng In 区域
   
5.     d(rng.Interior.Color) = ""
   
6.   Next
   
7.   If 是否包含背景颜色 = False And d.exists(16777215) Then d.Remove (16777215)
   
8.   CountByColor = d.Count
   
9.   Set d = Nothing
   
10. End Function

复制代码

自定义函数做的，不知道可行不？

跳转到最佳答案楼层

CheryBTL

是统计不同颜色单元格的个数？还是统计某一区域内某种颜色单元格的个数？

另外，附件内为自定义函数，但没有代码.

xdragon

1. Function CountByColor(区域 As Range, 是否包含背景颜色 As Boolean)
   
2.   Dim rng, d As Object
   
3.   Set d = CreateObject("scripting.dictionary")
   
4.   For Each rng In 区域
   
5.     d(rng.Interior.Color) = ""
   
6.   Next
   
7.   If 是否包含背景颜色 = False And d.exists(16777215) Then d.Remove (16777215)
   
8.   CountByColor = d.Count
   
9.   Set d = Nothing
   
10. End Function

复制代码

自定义函数做的，不知道可行不？