如何在一列里求相同颜色的个数，万分感谢

xxb888@126.com

如何在一列中把相同颜色的个数统计出来，谢谢！

Semi_Alan

-。-！本人只会用筛选的方式，，一列一列的统计出来再求和。
请高手帮忙，学习。。。3Q

doitbest

累死我了，原来是条件格式的假颜色啊，一看你的条件公式就知道是三种颜色
=COUNTIF($B$4:$E$20,">0")＝28 粉色
=COUNTIF($B$4:$E$20,"<0")＝37 绿色
=COUNTIF($B$4:$E$20,"0")＝3 白色

doitbest

如果是真颜色就用此宏
Public Sub rt()
Dim co(), x As Range, n, num()
For i = 1 To Selection.Count
    If i = 1 Then n = n + 1: ReDim Preserve co(1 To n): co(n) = Selection(i).Interior.ColorIndex: GoTo 100
    If IsNumeric(Application.Match(Selection(i).Interior.ColorIndex, co, 0)) = False Then
        n = n + 1
        ReDim Preserve co(1 To n): co(n) = Selection(i).Interior.ColorIndex
    End If
100:
Next
ReDim num(1 To n)
For i = 1 To Selection.Count
num(Application.Match(Selection(i).Interior.ColorIndex, co, 0)) = num(Application.Match(Selection(i).Interior.ColorIndex, co, 0)) + 1
Next i
MsgBox "color" & Join(co) & Chr(10) & "sum" & Join(num)
End Sub

doitbest

请参考附件

Semi_Alan

谢谢~doitbest!先消化一下先~···

xxb888@126.com

doitbest 发表于 2011-8-10 21:06
请参考附件

谢谢！好久没有上来了，今天又遇到新问题马上上来请教，看到您的回复，后谢谢了。

带左轮的耗子

看看学习一下

xiaoH+U+A

doitbest 发表于 2011-8-10 21:03
如果是真颜色就用此宏
Public Sub rt()
Dim co(), x As Range, n, num()

向高手学习！

WBQWQ

学习了，真假颜色的两种方法。