如何在Excel中按颜色变化统计每行连续同色单元格数量？

VBA代码方案（推荐） #

Excel原生公式无法直接读取单元格填充色，VBA是最直接高效的解决方案。以下代码会遍历指定区域的每一行，统计连续同色单元格的数量，并将结果输出到每行的最后一列右侧（可自行调整输出列）：

Sub CountContiguousColors()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim currentRow As Long, currentCol As Long
    Dim currentColor As Long, count As Long
    Dim result As String
    
    ' 设置目标工作表，可改为你的表名，比如Sheet1
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    For currentRow = 1 To lastRow
        result = "Row " & currentRow & vbTab
        currentColor = ws.Cells(currentRow, 1).Interior.Color
        count = 1
        
        For currentCol = 2 To lastCol
            If ws.Cells(currentRow, currentCol).Interior.Color = currentColor Then
                count = count + 1
            Else
                ' 记录当前颜色段
                result = result & "Color " & GetColorName(currentColor) & " = " & count & vbTab
                currentColor = ws.Cells(currentRow, currentCol).Interior.Color
                count = 1
            End If
        Next currentCol
        
        ' 记录最后一个颜色段
        result = result & "Color " & GetColorName(currentColor) & " = " & count
        ' 输出结果到lastCol+1列，可改为固定列比如ws.Cells(currentRow, "Z")
        ws.Cells(currentRow, lastCol + 1).Value = result
    Next currentRow
End Sub

' 辅助函数：将颜色值转为自定义名称（可根据你的实际颜色修改对应关系）
Function GetColorName(colorVal As Long) As String
    Select Case colorVal
        ' 示例：替换为你实际使用的颜色值和名称
        Case RGB(255, 0, 0): GetColorName = "A" ' 红色对应Color A
        Case RGB(0, 255, 0): GetColorName = "B" ' 绿色对应Color B
        Case RGB(0, 0, 255): GetColorName = "C" ' 蓝色对应Color C
        Case RGB(255, 255, 0): GetColorName = "F" ' 黄色对应Color F
        ' 可继续添加更多颜色映射
        Case Else: GetColorName = "Unknown"
    End Select
End Function

操作步骤： #

1. 打开你的Excel文件，按下Alt+F11打开VBA编辑器；
2. 右键点击左侧的工作表名，选择「插入」→「模块」；
3. 将上述代码粘贴到模块窗口中；
4. 修改GetColorName函数里的颜色映射，把RGB值换成你表格中实际使用的颜色，名称对应你的Color A/B/C等；
5. 运行宏：点击工具栏的「运行」按钮（绿色三角），或按F5。

运行完成后，每行的右侧会自动生成你需要的统计结果格式。

公式辅助方案（仅适合无重复颜色分段的行） #

如果不想用VBA，需要先把单元格颜色转换为对应的文本标签，再用公式统计，但无法处理同一颜色多次出现的连续段：

1. 先添加自定义函数获取颜色标签：

Function GetColorLabel(cell As Range) As String
    Select Case cell.Interior.Color
        Case RGB(255, 0, 0): GetColorLabel = "Color A"
        Case RGB(0, 255, 0): GetColorLabel = "Color B"
        Case RGB(0, 0, 255): GetColorLabel = "Color C"
        Case RGB(255, 255, 0): GetColorLabel = "Color F"
        Case Else: GetColorLabel = "Color Unknown"
    End Select
End Function

2. 在每行旁插入辅助列，用=GetColorLabel(A1)填充，得到每行每个单元格的颜色标签；
3. 用数组公式拼接统计结果（以第1行为例，假设辅助列是UY到ZZ列）：

=TEXTJOIN(CHAR(9),TRUE,"Row 1",TEXTJOIN(" = ",TRUE,UNIQUE(UY1:ZZ1),COUNTIF(UY1:ZZ1,UNIQUE(UY1:ZZ1))))

内容的提问来源于stack exchange，提问作者Rose Glazewski