如何实现单元格颜色匹配？求适配条件格式的VBA代码

原代码无法识别条件格式生成的颜色，核心原因是Interior.Color只能读取手动设置的单元格填充色，而条件格式触发的显示颜色需要通过DisplayFormat对象获取——这个对象返回的是单元格当前实际显示的格式样式。

针对你要复制A3:A6到C3:C6的需求，修改后的代码如下：

Sub CopyConditionalFormatColors()
    Dim srcRange As Range, destRange As Range
    Dim cell As Range, destCell As Range
    Dim i As Integer
    
    ' 指定源区域和目标区域
    Set srcRange = Range("A3:A6")
    Set destRange = Range("C3:C6")
    
    ' 逐个单元格复制实际显示的背景色
    For i = 1 To srcRange.Cells.Count
        Set cell = srcRange.Cells(i)
        Set destCell = destRange.Cells(i)
        ' 用DisplayFormat获取包含条件格式的显示颜色
        destCell.Interior.Color = cell.DisplayFormat.Interior.Color
    Next i
End Sub

关键说明： #

• DisplayFormat.Interior.Color：直接读取单元格当前屏幕上显示的背景色，不管颜色来自手动设置还是条件格式规则。
• 该属性支持Excel 2010及以上版本，如果你使用更早版本，可能需要通过解析条件格式规则来模拟颜色判断，但目前主流版本都兼容此方法。

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