第3个回答 2013-09-21
假设这些单元格在一列,选中第一个待统计颜色的单元格,同时按Alt和F11,右键点左边窗口的Sheet1,在右边新出来的窗口粘贴如下代码:
Sub test()
Dim i, j, Counter As Integer
i = Selection.Interior.ColorIndex
Counter = 1
For j = 1 To 1000
Selection.Offset(1, 0).Select
If Selection.Interior.ColorIndex = i Then Counter = Counter + 1
Next j
MsgBox Counter
End Sub
然后按F5,完成
如果行数比较多,把上面的1000改了。