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

2025-03-13 15:50:53

推荐回答（5个）

回答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

End Function

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

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

回答2：

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

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

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

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

回答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

复制以上代码备用
按键盘上的Alt+F11打开VBA程序
单击插入命令/插入模块
在右边空白处粘贴代码
回到你的表格中
在你需要显示个数的位置I1输入公式=colorcount(C1,A1:H3)回车即可

效果如下图

回答4：

如图操作：

然后如图：

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

回答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

最新问答

王安石变法的保马法和保甲法是啥意思?

怎么挑选32寸立式安卓电容触摸查询一体机

用BT下载电视剧，对电脑有什么损害呢？

我是新手，在香网发表签约了《美人谋：梨花倾城》，为什么木有人看呢？点击少得可怜，是我写的太差了吗？

上海有没有玩水的地方？

为什么毛里求斯货币上会印着中国人头像

藏香猪的喂养管理

怎么让笔记本连接电视后的主显示器为电视机?

河流地貌发育的理想模式是经过了几个阶段，各阶段的地貌形态有什么特点

文庭楼怎么样？好不好？值不值得买？