
1个回答
展开全部
假设这些单元格在一列,选中第一个待统计颜色的单元格,同时按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 + 1Next jMsgBox CounterEnd Sub然后按F5,完成
如果行数比较多,把上面的1000改了。
i = Selection.Interior.ColorIndex
Counter = 1
For j = 1 To 1000
Selection.Offset(1, 0).Select
If Selection.Interior.ColorIndex = i Then Counter = Counter + 1Next jMsgBox CounterEnd Sub然后按F5,完成
如果行数比较多,把上面的1000改了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询