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

lhhq138

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

请教一下：那怎样知道结果中的color38是粉色呢？如果颜色多的话就不太容易弄清楚了。。。请指导一下。

doitbest

先选定被统计区域,再执行宏
Public Sub rt()
Dim co(), x As Range, n, num(), i
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
For i = 1 To UBound(co)
[f3].Offset(i).Interior.ColorIndex = co(i)
Next i
[f3:h3] = Array("颜色", "颜色代码", "数量")
[g4].Resize(UBound(co), 1) = Application.Transpose(co)
[h4].Resize(UBound(num), 1) = Application.Transpose(num)
End Sub

lhhq138

doitbest 发表于 2011-10-11 16:20
先选定被统计区域,再执行宏
Public Sub rt()
Dim co(), x As Range, n, num(), i

太感谢了。。。。

doitbest

代码通用性没作太多考虑,有问题再提出来

百变千金

挺想学的。，特别适用

chenwelse

新人第一贴。
越看，越觉得EXCEL强大。

name004

找颜色，做个记号

忘得快

谢谢！学了。

xxiaoa

谢谢！拿来用了。

飞向新的天空

讲的非常好，谢谢！