Question

EXCEL如何用公式统计带颜色的单元格个数？

Answer 1

1、电脑打开Excel表格。

2、电脑打开Excel表格后，Alt+F11进入宏，然后点击插入模块。

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

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

4、输入代码后，不用关闭宏，直接返回Excel界面，在一个单元格中输入公式=SUMColor(A1,$A$1:$B$6)，A1就是要筛选的颜色的单元格，$A$1:$B$6是要筛选的区域，框选区域后，按F4键就可以了。

5、输入公式后，就可以得到带颜色的单元格个数了。

Answer 2

目前，Excel表格里面的函数暂时没法统计填充颜色的单元格个数，但可以通过替换的方式统计填充颜色的单元格个数，以Excel 2010为例：

一、先将该文件复制到其他文件夹里面进行保存，以免造成数据丢失而无法找回；

二、打开Excel表格，使用【Ctrl+H】组合键调出“替换”对话框，点击【选项】，【格式…】，【填充】，选择与单元格填充相匹配的颜色并【确定】；

三、点击【全部替换】就可以知道有多少个带有填充颜色的单元格了，之后按下【Ctrl+Z】组合键进行撤销恢复即可。如果有多种填充颜色的单元格，可以重复使用上述方法进行统计。

Answer 3

这个需要自定义函数

Function colorcount(y As Range, rng)

Application.Volatile

Dim c As Double

Dim x As Range

For Each x In rng

If x.Interior.ColorIndex = y.Interior.ColorIndex Then

c = 1

Else

c = 0

End If

colorcount = colorcount + c

Next x

End Function

1. 复制以上代码备用

2. 按键盘上的Alt+F11打开VBA程序

3. 单击插入命令/插入模块

4. 在右边空白处粘贴代码

5. 回到你的表格中

6. 在你需要显示个数的位置I1输入公式=colorcount(C1,A1:H3)回车即可

   效果如下图

Answer 4

如图操作：

然后如图：

再如图公式（数组公式，按CTRL+SHIFT+ENTER结束）就行了：

Answer 5

Sub 统计()
GetColor "Sheet1", 1, 1, 3, 3, 1, 6
End Sub
Sub GetColor(SheetName As String, StartX As Long, StartY As Long, EndX As Long, EndY As Long, ShowX As Long, ShowY As Long)
'sheetname 表名
'startx 开始坐标的列数 从1开始
'starty 开始坐标的行数 从1开始
'endx 结束坐标的列数 从1开始
'endy 结束坐标的行数 从1开始
'showx 显示统计结果的坐标的列数
'showy 显示统计结果的坐标的行数
'65535 是黄色的数值

Dim I As Long, J As Long, TotalNum As Long

For I = StartY To EndY
For J = StartX To EndX
ThisWorkbook.Sheets(SheetName).Cells(I, J) = ThisWorkbook.Sheets(SheetName).Cells(I, J).Interior.Color
If ThisWorkbook.Sheets(SheetName).Cells(I, J).Interior.Color = 65535 Then
TotalNum = TotalNum + 1
End If
Next J
Next I

ThisWorkbook.Sheets(SheetName).Cells(ShowY, ShowX) = TotalNum
End Sub

追问

看不懂，要具体操作方法

追答

..放到宏里用。。