如何在Excel中查找同一行内所有同色填充的连续单元格区域

逐行扫描+连续段标记的实现逻辑可以100%规避零散单元格返回、颜色识别不准的问题，具体实现规则如下：

• 遍历逻辑固定采用逐行从左到右扫描，不要做跨行列泛洪填充，避免把不同行的同色单元格误判为同一连续区域
• 颜色取值统一用DisplayFormat.Interior.Color，该属性可以正确读取条件格式、表格样式生成的显示填充色；如果出现取色失败，优先检查工作表是否开启保护、目标单元格是否处于隐藏行/列
• 连续段判定规则：遍历时实时记录当前同色段的起始列、对应颜色值，遇到单元格颜色和当前记录值不一致时，先生成已扫描完成的连续段Range对象存入结果集，再重置标记开始新段的统计
• 默认跳过无填充单元格：无填充对应的常量值为xlNone（值为-4142），不需要统计无填充段时直接过滤该值即可

Sub GetSameColorContinuousRng()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim cellColor As Long, currentColor As Long, startCol As Long
    Dim resultRng As Range, currentBlock As Range
    
    ' 替换为实际需要处理的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.UsedRange.Rows.Count
    lastCol = ws.UsedRange.Columns.Count
    
    Set resultRng = Nothing
    
    ' 逐行遍历已用区域
    For i = 1 To lastRow
        ' 初始化当前行的段标记
        startCol = 0
        currentColor = -4142 ' 初始值设为无填充
        For j = 1 To lastCol + 1 ' 多遍历1列用于收尾每行最后一个连续段
            If j <= lastCol Then
                cellColor = ws.Cells(i, j).DisplayFormat.Interior.Color
            Else
                ' 超出已用列范围强制赋值无填充，触发最后一段的判定
                cellColor = -4142
            End If
            
            If cellColor <> currentColor Then
                ' 颜色变化时，先落盘之前统计的有效连续段
                If startCol > 0 And currentColor <> -4142 Then
                    Set currentBlock = ws.Range(ws.Cells(i, startCol), ws.Cells(i, j - 1))
                    ' 将当前连续块加入结果集合
                    If resultRng Is Nothing Then
                        Set resultRng = currentBlock
                    Else
                        Set resultRng = Union(resultRng, currentBlock)
                    End If
                    ' 自定义处理逻辑可写在此处，比如输出地址、打标记等
                    Debug.Print "识别到同色连续区域：" & currentBlock.Address & " 颜色值：" & currentColor
                End If
                ' 重置新段的标记参数
                startCol = j
                currentColor = cellColor
            End If
        Next j
    Next i
    
    ' 结果验证：弹窗显示识别到的区域总数
    MsgBox "识别完成，共找到 " & resultRng.Areas.Count & " 个同色连续区域"
End Sub

以上代码运行后针对示例场景，会正确识别出图中标注的3个同色连续区域，所有结果存在resultRng对象的Areas集合中，每个元素都是独立的同行连续同色单元格区域，不会返回零散单个单元格。

如果使用Python、C#等其他语言操作Excel，核心逻辑完全一致，仅需要替换对应语言的Excel API调用即可，不需要调整判定规则。

常见踩坑规避 #

• 不要用Interior.Color直接取色，该属性无法读取条件格式、套用表格样式生成的填充色，会导致颜色识别错误
• 每行遍历到最后一列后必须做一次收尾判定，否则每行末尾的同色连续段会被遗漏
• 存在合并单元格场景时，需要额外判断单元格是否属于合并区域，取合并区域左上角单元格的颜色做比对，避免合并区域内的空单元格干扰判定
• 不要跨行列合并同色块，逐行扫描的逻辑天然保证每个返回的区域都是同一行内的连续单元格，符合需求要求

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