在07版Excel中统计一行中不同颜色的个数

545295535

在07版Excel中统计一行中不同颜色的个数

qy1219no2

这个只能使用VBA才能统计

qy1219no2

按ALT+F11，进入代码编辑器，执行主菜单“插入——模块”，将下述代码粘贴到右侧编辑区，然后，在需要得出结果的单元格输入：
=COUNTCOLOR(A1:M1)即可得出结果（不含空白单元格）。

1. Function CountColor(rng As Range) As Integer
   
2.     If rng.Count < 1 Then Exit Function
   
3.     Dim nColor()
   
4.     r = 0
   
5.     ReDim nColor(r)
   
6.     For Each c In rng
   
7.         If c.Interior.Pattern <> xlNone Then
   
8.             CI = Str(c.Interior.Color)
   
9.             temp = Filter(nColor, CI)
   
10.             If UBound(temp) < 0 Then
    
11.                 ReDim Preserve nColor(r)
    
12.                 nColor(r) = CI
    
13.                 r = r + 1
    
14.             End If
    
15.         End If
    
16.     Next
    
17.     CountColor = UBound(nColor) + 1
    
18. End Function

复制代码