打开 VBA 编辑器
按下 Alt + F11,转到“插入” > “模块”,然后粘贴自定义 VBA 代码。
定义 CountColor 函数
粘贴代码:Function CountColor(rng As Range, cellColor As Range) As Long。使用 Interior.Color 属性来识别颜色。
在工作表中使用函数
输入 =CountColor(A1:A10, B1),其中 A1:A10 是你的范围,B1 是包含目标颜色的单元格。
=CountColor(range, color_cell)不会,仅更改单元格颜色不会触发 Excel 重新计算。你必须按 F9 键进行刷新。