如何用公式统计每行填充颜色的单元格的个数？

更新时间2019-01-17 09:30:30

用自定义函数：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

相关标签:公式