请下载我上传的附件：统计当前行填充颜色的单元格数量.xls
'计算指定区域里面有颜色的个数
function ColorRangeCount(range as Range) as integer
dim tCount as integer
tcount = 0
for each r in range
if r.interior.colorindex <> xlnone then
tcount = tcount + 1
end if
next
ColorRangeCount = tcount
set range = nothing
end function
公式是无法识别颜色的，你可以使用VBA自定义识别颜色的函数，然后就可以了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024