如何统计表格中每一行的有色单元格数量

• 方法1：VBA自定义函数（可批量下拉统计，效率最高）

1. 打开目标表格后按Alt + F11调出VBA编辑器
2. 在左侧工程栏右键点击当前工作簿名称，依次选择「插入」→「模块」
3. 将以下代码粘贴到弹出的编辑窗口中：

Function CountColoredCells(rng As Range) As Long
    Dim cell As Range
    For Each cell In rng
        ' 普通填充色统计用这行
        If cell.Interior.ColorIndex <> xlNone Then
            CountColoredCells = CountColoredCells + 1
        End If
        ' 如果是条件格式生成的颜色，把上面的判断替换为下面这行即可
        ' If cell.DisplayFormat.Interior.ColorIndex <> xlNone Then
    Next cell
End Function

4. 将文件另存为Excel 启用宏的工作簿(*.xlsm)格式，返回表格界面
5. 假设你要统计第1行A到H列的有色单元格数量，在空白单元格输入公式=CountColoredCells(A1:H1)，下拉公式即可批量得到所有行的统计结果，完全匹配你需要的输出格式。

• 方法2：无宏手动统计（适合少量行的场景）

1. 选中需要统计的单行单元格范围，按Ctrl + F调出查找窗口
2. 点击「选项」→「格式」→「从单元格选择格式」，点击任意一个你要统计的有色单元格
3. 点击「查找全部」，窗口底部会显示当前选中行的有色单元格总数，逐行操作即可得到所有行的统计值。

内容的提问来源于stack exchange，提问作者Chadi N