Excel 2016：按单元格颜色选择保留重复行的批量去重需求

阿华AIGC实验室

2026-5-20

按单元格颜色优先级删除Excel重复行解决方案

我之前处理过类似的大表格需求，Excel自带的删除重复功能确实没法按颜色优先级筛选保留项，不过咱们可以通过「VBA提取颜色+排序+删除重复」的组合方案来解决，四万多行的数据也能高效处理，先给你一步步拆解：

第一步：用VBA提取单元格填充色到辅助列

Excel自带公式没法直接读取单元格填充色，所以得写个简单的宏来提取。假设你的重复值在A列，我们把颜色信息写到旁边的B列：

打开你的Excel文件，按Alt + F11打开VBA编辑器；
右键左侧的工作表名称（比如「Sheet1」），选择「插入」→「模块」；
粘贴下面的代码：

Sub ExtractCellColors()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的目标工作表名称，比如 Sheets("数据表格")
    Set ws = ActiveSheet
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 关闭屏幕更新，提升四万行数据的处理速度
    Application.ScreenUpdating = False
    
    ' 遍历A列（从第2行开始，假设第1行是表头），把颜色索引写入B列
    For i = 2 To lastRow
        ' 用ColorIndex获取内置颜色编号，也可以用 .Interior.Color 获取RGB十进制值
        ws.Cells(i, "B").Value = ws.Cells(i, "A").Interior.ColorIndex
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "颜色提取完成！"
End Sub

按F5运行宏，完成后B列就会显示每个A列单元格的颜色索引值。

第二步：定义颜色优先级

接下来在C列设置优先级规则，比如你希望红色单元格的行优先保留，黄色的次之，其他颜色最后。假设红色的ColorIndex是3，黄色是6，那么在C2单元格输入公式：

=IF(B2=3, 1, IF(B2=6, 2, 3))

把公式下拉到最后一行，这样优先级数值越小，代表越要优先保留。

第三步：按「重复值+优先级」排序

这一步是关键，让高优先级的行排在每个重复组的最前面：

选中所有数据区域（包括A、B、C列和其他数据列）；
点击「数据」选项卡→「排序」；
设置排序规则：
- 主要关键字：选择你的重复值列（比如A列），排序依据「值」，次序「升序/降序都可以」；
- 添加条件：次要关键字选择优先级列（C列），排序依据「值」，次序「升序」；
点击确定，此时相同重复值的行里，优先级最高的会排在最上方。