如何使用VBA在Excel中按列统计单元格颜色模式出现次数

AI 小北

2026-5-19

嘿，这个需求我之前帮朋友处理过，给你两个靠谱的方案，不管你是偏好纯Excel操作还是愿意用点小脚本都能搞定：

方法一：纯Excel公式实现（无需编程）

这种方法适合不想碰代码的朋友，通过辅助列把颜色转成状态再统计：

步骤1：把单元格颜色转成对应状态文本
Excel没有直接读取单元格颜色的内置函数，但可以用旧版的GET.CELL配合自定义名称实现：
1. 点击「公式」选项卡 → 「定义名称」，名称设为GetCellColor，引用位置填=GET.CELL(63, Sheet1!A1)（把Sheet1改成你的工作表名，A1是数据区域的第一个单元格）
2. 在数据区域旁边插入辅助列（比如G列），G1输入=GetCellColor，下拉填充到所有行，这会得到每个单元格的颜色索引（比如红色可能是3，黄色是6，蓝色是5，你可以自己核对实际值）
3. 再插入一列（比如H列），用条件判断转成状态：=IF(G1=3,"hot",IF(G1=6,"med",IF(G1=5,"cold","")))，下拉填充，这样每列的颜色就对应成了hot/med/cold文本
步骤2：合并每行的状态为模式字符串
插入新列（比如I列），I1输入=CONCAT(B1:G1)（假设你的状态列是B到G，对应原来的6列数据），下拉后每行就变成了一个模式字符串，比如你要的「蓝、黄、黄、黄、红、黄」会变成coldmedmedmedhotmed
步骤3：统计目标模式的频次
直接用COUNTIF函数，比如要统计上述模式，输入=COUNTIF(I:I,"coldmedmedmedhotmed")，就能得到该模式出现的次数了

方法二：VBA脚本批量统计（高效无辅助列）

如果数据量比较大，或者不想加一堆辅助列，用VBA脚本直接读取颜色统计更高效：

Sub CountTargetColorPattern()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRowPattern As String
    Dim targetPattern As String
    Dim matchCount As Integer
    Dim colIndex As Integer
    
    ' 配置参数：改成你的实际信息
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换成你的工作表名称
    targetPattern = "cold,med,med,med,hot,med" ' 目标模式，按列顺序用逗号分隔
    matchCount = 0
    
    ' 获取数据最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行
    For i = 1 To lastRow
        currentRowPattern = ""
        ' 遍历6列，构建当前行的模式字符串
        For colIndex = 1 To 6
            Select Case ws.Cells(i, colIndex).Interior.ColorIndex
                Case 3 ' 红色对应hot，可根据实际颜色索引修改
                    currentRowPattern = currentRowPattern & "hot,"
                Case 6 ' 黄色对应med
                    currentRowPattern = currentRowPattern & "med,"
                Case 5 ' 蓝色对应cold
                    currentRowPattern = currentRowPattern & "cold,"
                Case Else
                    currentRowPattern = currentRowPattern & "unknown,"
            End Select
        Next colIndex
        ' 去掉末尾多余的逗号
        currentRowPattern = Left(currentRowPattern, Len(currentRowPattern) - 1)
        
        ' 匹配目标模式，计数+1
        If currentRowPattern = targetPattern Then
            matchCount = matchCount + 1
        End If
    Next i
    
    ' 输出结果：可以弹窗显示，也可以写入单元格
    MsgBox "目标颜色模式出现的次数：" & matchCount
    ' 或者写入到指定单元格，比如J1：
    ' ws.Range("J1").Value = "目标模式出现次数：" & matchCount
End Sub

使用说明：

按Alt+F11打开VBA编辑器，右键点击你的工作簿 → 插入 → 模块，把上面的代码粘贴进去
核对颜色索引：如果不确定颜色对应的ColorIndex，可以在单元格输入=CELL("color", A1)查看，或者改用RGB值判断更准确（比如把Case 3改成Case RGB(255, 0, 0)对应红色）
修改工作表名和目标模式后，点击运行按钮（绿色三角）即可得到结果

内容的提问来源于stack exchange，提问作者Scott Purtan