如何用公式统计每行填充颜色的单元格的个数?
用自定义函数:tcs
代码是:
Public Function tcs(rag As Range, ColorrRag As Range)
'填充某一颜色的数字单元格个数,tcs——填充色
For Each cel In rag
If cel.Value <> "" And IsNumeric(cel.Value) And _
cel.Interior.ColorIndex = _
ColorrRag.Interior.ColorIndex Then n = n + 1
Next cel
tcs = n
End Function
下一篇:4G运存条装完以后,该咋办?
热门标签: