1、打开Excel表格，点击【开发工具】，【Bisual Basic】。（如果Excel表格上面没有显示出【开发工具】，可以按照第二、三步进行操作）
3、点击【自定义功能区】，在右侧将“开发工具”勾上。
5、点击【宏设置】，【启用所有宏】，之后点击【确定】，保存Excel表格后将它关闭、重新打开。（如果Excel表格上面已经启用宏功能，可以忽略第四、五步）
7、双击打开“模块1”，之后在代码窗口里面输入以下代码：Sub Count()Dim a, b巳呀屋饔, c, d, i, j As Long '定义数据类型a = Worksheets(媪青怍牙"Sheet1").Range("A3").Interior.Color '将A3单元格的颜色值赋给ab = Worksheets("Sheet1").Range("D4").Interior.Color '将D4单元格的颜色值赋给bc = 0 '对c进行初始化赋值d = 0 '对d进行初始化赋值For i = 2 To 100 '从第2行到100行进行循环执行For j = 1 To 9 '从第1列到第9列进行循环执行 '查找的范围相当于A2:I100If Worksheets("Sheet1").Cells(i, j).Interior.Color = a Thenc = c + 1 '如果找到的单元格颜色与A3单元格相同，则加1Worksheets("Sheet1").Range("J3") = c '将结果输出到Sheet1表格的J3单元格End IfIf Worksheets("Sheet1").Cells(i, j).Interior.Color = b Thend = d + 1 '如果找到的单元格颜色与D4单元格相同，则加1Worksheets("Sheet1").Range("J5") = d '将结果输出到Sheet1表格的J3单元格End IfNextNextEnd Sub
9、如果Excel表格想要继续保留VBA程序的功能，则将它另存为”启用宏的工作薄“，即：点击【文件】，【另存为】，保存类型里面选择”Excel 启用宏的工作薄“。
