如果绿色的单元格带有“条件格式”,看其条件是什么。使用同样的条件计数。
如果是普通文本,手动加上的绿色。公式我不知道怎么做?VBA可以帮到你:
获取单元格的背景颜色属性,以(1,1)单元格为例:
Sheets("sheet1").Cells(1, 1).Interior.Color
上述式子代表其背景色的值。
你找出绿色背景色的rgb值,假如都等于一个值。
那你就可以统计如下:
'假设数据有10,000行,数据少了真没必要这么折腾'有效数据是1-4列'在第5列取出统计数字'为了方便,只判断非白色底的单元格个数,防止绿色的rgb不同Dim ln As Integer, counter As IntegerFor ln = 1 To 10000counter = 0'一共4列,没必要循环了,列举出来吧If Sheets("sheet1").Cells(ln, 1).Interior.Color <> vbWhite Thencounter = counter + 1ElseIf Sheets("sheet1").Cells(ln, 2).Interior.Color <> vbWhite Thencounter = counter + 1ElseIf Sheets("sheet1").Cells(ln, 3).Interior.Color <> vbWhite Thencounter = counter + 1ElseIf Sheets("sheet1").Cells(ln, 4).Interior.Color <> vbWhite Thencounter = counter + 1End If'在第5列填入响应值Sheets("sheet1").Cells(ln, 5).Value = counterNext ln
over. :-)