excel怎么用公式统计相同单元格颜色数量

2024-10-30 01:31:28

推荐回答（4个）

回答（1）：

按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

然后将光标点击放在这些代码的里面，再点一下上面工具图标中的三角图标(常见的那个插放图标)，再回到表格里看一下，数量就已经统计出来了

回答（2）：

首先，需要搞清楚是否需要使用函数，因为可以直接选定你要查找的行，或者列，用CTRL+F出现查找对话框---选项---格式---选择你要的颜色---查找全部，下面就会显示个数和数据，你可以直接统计
其次，如果你真的是有必要要把这个数据显示出来，而且颜色种类特别特别多，不方便用手工统计，则可用到宏的get.cell函数，如果颜色种类不是特别特别多，那就直接按照上面的方法手工统计一下就好了

回答（3）：

Sub 统计黄色()
Dim i As Integer
Dim count As Integer
For i = 1 To 12
t = Sheets(1).Cells(i, 3).Interior.Color
If t = 65535 Then
count = count + 1
End If
Next
Sheets(1).Cells(16, 1).Value = count
End Sub

回答（4）：

用GET.CELL得出颜色标示，求和具体的需要你的表格，发个图上来