使用VBA排序条件格式颜色单元格时出现Run-time Error 1004

可能的错误诱因 #

• 表头判断冲突：Header:=xlGuess 可能误判数据范围的表头状态，导致排序逻辑出现矛盾。
• 颜色规则关联失效：单独赋值SortOnValue.Color的方式，可能未正确将目标颜色绑定到排序规则；或者指定的RGB值与单元格通过条件格式显示的实际颜色不匹配。
• 排序范围配置模糊：虽然你的代码中排序范围包含了键列，但模糊的表头设置可能导致范围识别错误。

修正后的代码 #

Private Sub NewLOW_Click()
    Dim ws As Worksheet
    Set ws = ActiveWorkbook.Worksheets("2025 Picks")
    
    ' 清除现有排序规则
    ws.Sort.SortFields.Clear
    
    ' 直接在添加排序规则时指定目标颜色，确保关联生效
    ws.Sort.SortFields.Add _
        Key:=ws.Range("T2:T31"), _
        SortOn:=xlSortOnCellColor, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal, _
        SortOnValue:=CreateObject("SortOnValue").Color = RGB(255, 153, 255)
    
    ' 明确配置排序参数
    With ws.Sort
        .SetRange ws.Range("A2:AA31")
        .Header = xlNo ' 数据从A2开始，明确指定无表头
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    
    ws.Range("A1:C1").Select
End Sub

额外排查要点 #

• 验证颜色匹配：检查T列中条件格式应用后的单元格实际显示颜色是否为RGB(255,153,255)，可通过以下代码获取单元格显示颜色的RGB值：

  ' 在VBA立即窗口输出T2单元格的显示颜色参数
  Debug.Print "R:" & (ws.Range("T2").DisplayFormat.Interior.Color Mod 256) & _
              " G:" & ((ws.Range("T2").DisplayFormat.Interior.Color \ 256) Mod 256) & _
              " B:" & (ws.Range("T2").DisplayFormat.Interior.Color \ 65536)
  

• 修正表头设置：若A1:AA1是数据表头，需将SetRange改为ws.Range("A1:AA31")，同时设置Header:=xlYes。
• 手动测试验证：先手动执行相同的颜色排序操作，若手动操作也报错，说明数据本身存在问题（如合并单元格、工作表保护等）。

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