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