excel统计填充色单元格数

前言

	通常使用EXCEL列出部门和个人目标后，会根据完成情况进行标记方便统计。但是最后等工作结束发现数格子是个很痛苦的事情。然后搜了一堆方法，逐一尝试后发现还是VBA自定义函数的方式简单直接。

一、打开Excel表格

      直接Alt+F11进入宏，然后点击插入模块如图

点击插入模块后，输入代码：

		Function SUMColor(rag1 As Range, rag2 As Range)
		
		Application.Volatile
		
		For Each i In rag2
		
		If i.Interior.ColorIndex = rag1.Interior.ColorIndex Then
		
		SUMColor = SUMColor + 1
		
		End If
		
		Next
		
		End Function

粘贴完代码后，返回excel页面，在一个单元格中输入公式（例如）

=SUMColor(A1,$A$1:$B$6)

，A1表示需要统计的颜色的单元格（根据自己表需要统计的选择就行），

$A$1:$z$66(改为自己表要统计的范围)，就可以了。