如何基于Excel条件格式颜色自动分配行优先级编号？

完全可行，以下提供两种适配不同场景的实现方法，即使是VBA新手也能快速上手：

非VBA方案（零代码，精准匹配色阶逻辑） #

Excel的标准色阶本质是基于单元格数值（即E列的"上次联系至今天数"）生成的，直接通过数值计算优先级比读取颜色更准确，步骤如下：

• 假设数据从第2行开始，在A2单元格输入公式：

  =COUNTIF($E$2:$E$100,">"&E2)+1
  

  （把$E$2:$E$100替换成你实际的E列数据范围）
• 公式解释：统计比当前单元格天数多的记录数，加1后得到优先级编号——天数越多（对应色阶红色），编号越小（优先级越高）；相同天数的记录会按出现顺序分配连续编号。
• 下拉填充公式到所有行，A列就会自动生成匹配色阶逻辑的优先级编号。

如果需要相同天数的记录共享同一优先级编号，改用这个公式：

=RANK.EQ(E2,$E$2:$E$100,0)

VBA方案（基于单元格颜色分配编号） #

如果你的色阶是手动调整过、无法直接用数值匹配的，可通过简单VBA读取单元格颜色来分配编号，操作步骤：

1. 按Alt + F11打开VBA编辑器
2. 右键左侧的工作簿名称，选择「插入」→「模块」
3. 粘贴以下代码：

Sub AssignPriorityByColor()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim colorRank As Variant
    Dim tempColor As Long, tempRow As Integer
    
    ' 指定目标工作表，替换成你的表名
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 存储E列单元格颜色与对应行号
    ReDim colorRank(1 To lastRow - 1, 1 To 2)
    For i = 2 To lastRow
        colorRank(i - 1, 1) = ws.Cells(i, "E").Interior.Color
        colorRank(i - 1, 2) = i
    Next i
    
    ' 按颜色RGB值降序排序（红色RGB值更大，优先级更高）
    For i = 1 To UBound(colorRank) - 1
        For j = i + 1 To UBound(colorRank)
            If colorRank(i, 1) < colorRank(j, 1) Then
                tempColor = colorRank(i, 1)
                tempRow = colorRank(i, 2)
                colorRank(i, 1) = colorRank(j, 1)
                colorRank(i, 2) = colorRank(j, 2)
                colorRank(j, 1) = tempColor
                colorRank(j, 2) = tempRow
            End If
        Next j
    Next i
    
    ' 填充A列优先级编号
    For i = 1 To UBound(colorRank)
        ws.Cells(colorRank(i, 2), "A").Value = i
    Next i
End Sub

4. 修改代码中的"Sheet1"为你的实际工作表名称
5. 按F5运行代码，A列会自动按照E列色阶颜色（红色→高优先级，绿色→低优先级）填充连续编号。

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