按ALT+F11后,选择“视图”——“工程资源管理器”,然后在左边出现的资源管理器中空白处按右键——“插入”——“模块”,将以下代码复制到弹出的对话框里:
Sub 统计颜色()
Dim i As Integer, x As Integer, y As Integer, z As Integer
x = 0
y = 0
z = 0
For i = 1 To 12
If Cells(i, 3).Interior.ColorIndex = 33 Then x = x + 1
If Cells(i, 3).Interior.ColorIndex = 6 Then y = y + 1
If Cells(i, 3).Interior.ColorIndex = 14 Then z = z + 1
Next i
[A15] = x
[A16] = y
[A17] = z
End Sub然后将光标点击放在这些代码的里面,再点一下上面工具图标中的三角图标(常见的那个插放图标),再回到表格里看一下,数量就已经统计出来了
按颜色统计个数,建议使用VBA代码。根据具体的情况统计。比如哪种颜色。不同的颜色判断也不一样是。1600多万种颜色,需要核对具体的颜色代码。
Excel2007中可以按颜色筛选
利用字体颜色来筛选必须添加辅助列和自定义函数。
1.添加辅助列,假设辅助列为B列,数据列为A列;
2.将光标定位在B1单元格-插入-名称-定义-在名称处输入任意名称如a-在引用位置上写入=GET.CELL(24,Sheet1!A1)-点添加-在B1单元格里输入=a-将公式填充到其它单元格-B列显示A列字体颜色对应的数值;